Perl & XS -- Modifying a char*

Collapse
This topic is closed.
X
X
 
  • Time
  • Show
Clear All
new posts
  • Shawn Zabel

    Perl & XS -- Modifying a char*

    I'm looking for suggestions on how to modify a char* argument passed into an
    XS function. It's been two days now that a co-worker and I have been trying
    to figure this out. We've seen examples on how to modify integers, but
    nothing on strings or char pointers. The example below is meant only to
    provide a crude example of what we are trying to accomplish. We are very
    appreciative of any and all help provided of this issue.


    ***Example Perl Code***
    my $p = "old value";

    getLastPrompt($ p);
    or
    getLastPrompt(\ $p);

    $p now equals "new prompt"


    ***Example XS Code***
    int getLastPrompt(p rompt)
    char * prompt
    CODE:
    prompt = "new prompt";
    RETVAL = 1;
    OUTPUT:
    prompt
    RETVAL


    - Shawn



Working...