Re: I can't fid my booboo

[ToddAndMargo via perl6-users]

>
> On Thu, Nov 17, 2022 at 7:25 PM ToddAndMargo via perl6-users
> <perl6-users@perl.org <mailto:perl6-users@perl.org>> wrote:
>
>     Hi All,
>
>     I need a second pair of eyes to look at my
>     code and tell me where I messed up.
>
>     http://vpaste.net/ngl1h <http://vpaste.net/ngl1h>
>
>     raku PopUpTest.pl6
>     ===SORRY!=== Error while compiling K:\Windows\NtUtil/PopUpTest.pl6
>     Unable to parse expression in argument list;
>     couldn't find final ')' (corresponding starter
>     was at line 167) at K:\Windows\NtUtil/PopUpTest.pl6:168
>
>     ------>    DWORD<HERE> $dwProcessId,
>           expecting any of:
>               infix
>               infix stopper
>
>     167: ProcessIdToSessionId(
>     168:   DWORD $dwProcessId,
>     169:   DWORD $pSessionId is rw
>     170: )
>     171:   is native("processthreadsapi")
>     172:   is symbol("ProcessIdToSessionId")
>     173:   returns Bool
>     174:   { * };


On 11/17/22 21:09, William Michels via perl6-users wrote:

Gee Todd, I don't know.

167-169: Maybe Raku doesn't like the `(` parens-enclosed signature `)` spread out over three lines?

That's my best guess for now. Try those three lines all on one line and tell us how you go.

Best Regards, Bill

I do that all-the-time.  This works.

sub WTSSendMessageA(

   HANDLE,        # [in]

   DWORD,         # [in] SessionId,

   LPSTR,         # [in] pTitle,

   DWORD,         # [in] TitleLength,

   LPSTR,         # [in] pMessage,

   DWORD,         # [in] MessageLength,

   DWORD,         # [in] Style,

   DWORD,         # [in] Timeout,

   DWORD is rw,   # [out] *pResponse,

   BOOL           # [in] BOOL

)

   is native("wtsapi32")

   is symbol("WTSSendMessageA")

   { * };