Re: I can't fid my booboo

[ToddAndMargo via perl6-users]

On 11/17/22 21:26, ToddAndMargo via perl6-users wrote:

 >
 > On Thu, Nov 17, 2022 at 7:25 PM ToddAndMargo via perl6-users
 > 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 
 >
 > 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 $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")
    { * };


Found it

Bad:
ProcessIdToSessionId(

Fixed:
sub ProcessIdToSessionId(


I forgot the stinkin' "sub".


!!!

Re: I can't fid my booboo

[ToddAndMargo via perl6-users]

>
> On Thu, Nov 17, 2022 at 7:25 PM ToddAndMargo via perl6-users
> 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 
>
> 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 $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")

   { * };

Re: I can't fid my booboo

[William Michels via perl6-users]

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

On Thu, Nov 17, 2022 at 7:25 PM ToddAndMargo via perl6-users <
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
>
> 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 $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:   { * };
>