Attached is a patch that does this, but I'm not quite sure about the last 2
statements.
Hence, this is submitted as a patch instead of me applying it myself.
kjs
On Wed, Jul 30, 2008 at 7:47 PM, via RT Will Coleda <
[EMAIL PROTECTED]> wrote:
> # New Ticket Created by Will Coleda
> # Please include the string: [perl #57428]
> # in the subject line of all future correspondence about this issue.
> # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=57428 >
>
>
> While deprecated, there's currently no other way to achieve this
> functionality. See RT #57426 for its replacement.
>
> =item .HLL <hll_name>, <hll_lib> [deprecated]
>
> An old form of the .HLL directive that also loaded a shared lib for the
> HLL. Use C<.loadlib> instead.
>
>
> --
> Will "Coke" Coleda
>
Index: compilers/imcc/imcc.y
===================================================================
--- compilers/imcc/imcc.y (revision 29908)
+++ compilers/imcc/imcc.y (working copy)
@@ -768,6 +768,17 @@
IMCC_INFO(interp)->cur_namespace = NULL;
$$ = 0;
}
+ /* .HLL "language" variant (without the library name) */
+ | HLL STRINGC
+ {
+ STRING * const hll_name = string_unescape_cstring(interp, $2 + 1, '"', NULL);
+ CONTEXT(interp)->current_HLL =
+ Parrot_register_HLL(interp, hll_name);
+
+ IMCC_INFO(interp)->cur_namespace = NULL;
+ $$ = 0;
+ }
+
| HLL_MAP STRINGC comma_will_be_equals STRINGC
{
Parrot_Context *ctx = CONTEXT(interp);
