view release on metacpan or  search on metacpan

Skin.xs  view on Meta::CPAN

void
xs_parse (self, hash_ref, lines) 
        SV* self;
	SV* hash_ref;	
        char *lines;        
    PREINIT:
	HV* vars;
        struct tnode * syntax_tree;
        SV* buffer;
        char log_message[256];
    PPCODE:	
	/* check that the reference we got is a real reference */
	if (!SvROK(hash_ref)) {
	  vars = newHV();
	}
        else if ( SvTYPE( SvRV( hash_ref ) ) != SVt_PVHV) {
          /* send a message to the log file that hash_ref is not a 
	     reference to hash */   
	  sprintf(log_message, 
		  "The second argument is not a hash reference");
	  write_log(self, log_message, 3);