Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re^3: Inline::C and NULL pointers

by Chrysotoxum (Novice)
on Dec 19, 2021 at 22:09 UTC ( [id://11139746]=note: print w/replies, xml ) Need Help??


in reply to Re^2: Inline::C and NULL pointers
in thread Inline::C and NULL pointers

Just updated the program to take on board your helpful critique.

use strict; use warnings; my $point = pack 'f2', 1.2, 2.3; func(undef); # pass in 'NULL pointer' func($pointer); Inline C => <<'C_END'; typedef struct { float x, y; } Point; void func(SV *buf) { if (!SvOK(buf)) { printf("got a null pointer\n"); } else if (SvPOK(buf) && SvCUR(BUF) == sizeof(Point)) { Point *point = (Point *)SvPV_nolen(buf); printf("x=%.2f, y=%.2f\n"); } else { croak("invalid scalar"); } } C_END

Replies are listed 'Best First'.
Re^4: Inline::C and NULL pointers
by etj (Deacon) on Dec 27, 2021 at 08:42 UTC
    Sorry to only just notice this (and thanks for the kind words)! I think your printf line needs two more args, point[0], point[1]?

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11139746]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others meditating upon the Monastery: (7)
As of 2024-04-25 08:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found