Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

RE: RE: More Lisp-In-Perl (and recursive autoloading)

by runrig (Abbot)
on Nov 08, 2000 at 03:20 UTC ( [id://40442]=note: print w/replies, xml ) Need Help??


in reply to RE: More Lisp-In-Perl
in thread More Lisp-In-Perl

Well, seeing that I don't currently have any webspace or access to upload to any public ftp site, but I do already have an account on CPAN (and can delete files if I need to), I went ahead and uploaded the file to my directory here. You'll need a PAUSE account to get to it until it makes its way around to public servers (I think thats how it works).

This is neither a Lisp compiler nor interpreter yet, and it may be YALM, but I was dissatisfied by the other modules for such basic reasons that I thought an entirely new module was warranted.

The module in Lisp-In-Perl was ok, but implemented lists in a way that requires its own garbage collector, which though novel, is sort of absurd when perl can take out the garbage on its own. And the perl-lisp distribution on CPAN implemented lists using arrays, which made using Lisp list functions impossible.

And I just wanted to create a more OO way of manipulating the lists. Also I wanted to experiment with autoloading, where I came up with this recursive autoloading routine (which is but one of the things I am looking for input on):
sub AUTOLOAD { return if $AUTOLOAD =~ /::DESTROY$/; # Autoload cadr, caddr, etc. if ($AUTOLOAD =~ /::c([ad]+)([ad])r$/) { no strict 'refs'; my $meth1 = "c$1r"; my $meth2 = "c$2r"; *{$AUTOLOAD} = sub { shift->$meth2->$meth1 }; goto &$AUTOLOAD; } carp $AUTOLOAD =~ /(.*)::(.*)$/ ? qq!Couldn't load sub/method "$2" via package "$1"! : "Couldn't load subroutine $AUTOLOAD"; }
Update: It seems to have made its way to CPAN and can be found here. I'm thinking that maybe I should rename it as it might conflict with perl-lisp, because I forgot that some OS's are case-insensitive when it comes to file names.

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others having an uproarious good time at the Monastery: (6)
As of 2024-03-28 12:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found