Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

Re: Re: dilemma

by liz (Monsignor)
on Aug 07, 2003 at 16:24 UTC ( #281956=note: print w/replies, xml ) Need Help??

in reply to Re: dilemma
in thread dilemma

...In other words, make your stuff smart so the user can be dumb. :-)

Unfortunately, apart from the technical difficulties (I would appreciate it if someone could tell me how to make the PROTOTYPE: conditional in the XS code, depending on the perl version), this does not address the source incompatibility issue with the real threads module. It's not just about share(), it's also about lock(), cond_wait(), cond_signal() and cond_broadcast().

I don't see as a substitute for the real threads module, just as a teaching and prototyping tool. I would like people to be able to try threaded programming by just downloading a CPAN module, rather than having to upgrade/rebuild perl. I would like the source incompatibility issue to be as small as possible.

That's why I'm considering the last option as the most favorable: if you want to try out threads programming in 5.6.x, then you know you will have to change your code when you upgrade to 5.8.x and/or real threads. If you want to try out threads programming in (unthreaded) 5.8.x, then you won't need to change anything when you upgrade. So, 5.6.x support is for really toying around, higher perls support a real upgrade path.


Replies are listed 'Best First'.
Re: Re: Re: dilemma
by Courage (Parson) on Aug 09, 2003 at 14:37 UTC
    As I understand this problem, dragonchild actually proposed a solution that actually solves your problem, but you somehow overlooked that.

    Consider: you'll define functions in XS with some changed name (use some prefix for example), without PROTOTYPE keyword and then provide prototype in, and those wrapper functions will call proper XS function.
    Why this will not work in your case?

    I did same thing for Tcl perl module, where I solved another problem this way: it was too complicated for me to do logic in XS, so I decided to move it to Perl side.

    I'm not knowledgable enough to say you how to do a PROTOTYPE in perl-5.6.x

    Courage, the Cowardly Dog

      I have no doubt that is possible. To an extent, this is already done in (because different subroutines are "imported" depending on whether you are using a threaded or an unthreaded perl).

      But this doesn't solve the migration path problem! Code written with the 5.6.x version of won't work in 5.8.x without change. I'm trying to find a solution that will allow a smooth upgrade path, so that code does not have to be changed. I believe using a source filter when running in 5.6.x will solve this problem. I'm working on that this weekend. Hopefully there'll be an update again to the original node when it's uploaded to CPAN.


        For sure we were talking apples and oranges.

        Initially I thought that you can not use *XS* feature in perl-5.6.1 that was appeared in perl-5.8.0.

        Now I see that in perl-5.6.1 there is no way at all to prototype a subroutine that takes a reference to array or hash as its first argument. I checked sources and realized that.

        In this case may be source filters could be kind of solution as a hack. But source filter not necessarily installed everywhere.

        May be it's better to introduce three prototyped functions for each: share_a, share_s, share_h (for sharing array, scalar and hash respectively)?

        Also I did some RTFSing (f=fine here), and now understand a little bit more on situation. Following code is a maximum that I reached on this matter, it finds a prototype for a subroutine:

        use B; sub share(\[@%$]) {print qq/[@_]/} %stash = B::svref_2object(\%{"::"})->ARRAY; $c=B::svref_2object(\&share); #... or this $c=B::svref_2object(\&share); print 'prototype equals to '. $stash{share}->CV->PV,"\n";

        Courage, the Cowardly Dog

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://281956]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (5)
As of 2018-06-19 22:39 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (115 votes). Check out past polls.