view release on metacpan or  search on metacpan

Spec/Spec.xs  view on Meta::CPAN

    FSRef  ref;
    static char path[1024];
    if (self == NULL){ return NULL; }
    if (!SvROK(self)){ return NULL; }
    if (!sv_isa(self, ClassName)){ return NULL; };
    sp = (FSSpec *)SvPV_nolen(SvRV(self));
    FSpMakeFSRef(sp, &ref);
    FSRefMakePath(&ref, path, 1024);
    return path;
}


MODULE = MacOSX::File::Spec		PACKAGE = MacOSX::File::Spec	

PROTOTYPES: ENABLE

SV *
new(class, path)
    char *class;
    char *path;
    CODE:
        RETVAL = new(class, path);
    OUTPUT:
	RETVAL

SV *
vRefNum(self)
    SV *self;
    CODE:
        RETVAL = vRefNum(self);
    OUTPUT:
	RETVAL

SV *
parID(self)
    SV *self;
    CODE:
        RETVAL = parID(self);
    OUTPUT:
	RETVAL

SV *
name(self)
    SV *self;
    CODE:
        RETVAL = name(self);
    OUTPUT:
	RETVAL

char *
path(self)
    SV *self;
    CODE:
        RETVAL = path(self);
    OUTPUT:
	RETVAL

void
as_array(self)
    SV *self;
    PPCODE:
	if (SvROK(self) && sv_isa(self, ClassName)){
	    EXTEND(SP, 3);
	    PUSHs(sv_2mortal(vRefNum(self)));
	    PUSHs(sv_2mortal(parID(self)));
	    PUSHs(sv_2mortal(name(self)));
	}