Re: How *do* they do that?

Hello

If you look at the opendir(3) manpage, you will see that perl's opendir, readdir and closedir are handled directly by their C counterparts. The DIR * data type is defined I believe in dirent.h or in sys/types.h.

I believe implementing opendir, readdir and closedir are straightforward in XS given that this is their calling syntax:

DIR *opendir(const char *name);
int closedir(DIR *dir);
struct dirent *readdir(DIR *dir);
[download]

Did I answer the question?

Aziz,,,

Comment on Re: How do they do that? Download Code

Replies are listed 'Best First'.
Re: Re: How do they do that? by gellyfish (Monsignor) on Aug 12, 2001 at 17:20 UTC
In an XS program it appears that it is slightly more complicated than this as the XSUB.h for perl 5.72 has : `# define opendir PerlDir_open` [download] having previously undefined opendir. PerlDir_open itself is defined in iperlsys.h in 5.72 - this is so that it can be made to fit in with the whole PerlIO thing. Probably the easiest way of finding out what is going on in here is to look at the implementation of pp_open_dir in pp_sys.c and then work backward from there. `/J\` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Re: How *do* they do that?
by gellyfish (Monsignor) on Aug 12, 2001 at 17:20 UTC

In an XS program it appears that it is slightly more complicated than this as the XSUB.h for perl 5.72 has :


   #    define opendir             PerlDir_open
[download]

PerlDir_open itself is defined in iperlsys.h in 5.72 - this is so that it can be made to fit in with the whole PerlIO thing.

Probably the easiest way of finding out what is going on in here is to look at the implementation of pp_open_dir in pp_sys.c and then work backward from there.

/J\
[download]

[reply]
[d/l]
[select]