Changeset 3926 for src/perl5

Show
Ignore:
Timestamp:
05/27/05 00:16:07 (4 years ago)
Author:
autrijus
svk:copy_cache_prev:
5515
Message:

* remove all stubs

Location:
src/perl5
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • src/perl5/pugsembed.c

    r3924 r3926  
    1818    return (sv); 
    1919} 
    20  
    21 Val *pugs_Eval ( char *code ) { return NULL; } 
    22 Val *pugs_Apply ( Val *sub, Val *inv, Val **args ) { return NULL; } 

  • src/perl5/pugsembed.h

    r3924 r3926  
    44#ifndef PugsValDefined 
    55#define PugsValDefined 1 
    6 /* #define PUGS_EXTERN extern */ 
    7 #define PUGS_EXTERN   
    86typedef HsStablePtr Val; 
    97#endif 
    108 
    11 PUGS_EXTERN Val *pugs_Eval ( char *code ); 
    12 PUGS_EXTERN Val *pugs_Apply ( Val *sub, Val *inv, Val **args ); 
     9extern Val *pugs_Eval ( char *code ); 
     10extern Val *pugs_Apply ( Val *sub, Val *inv, Val **args ); 
    1311 
    1412extern Val *pugs_IvToVal ( IV iv ); 
    … …  
    1614extern Val *pugs_PvToVal ( char *pv ); 
    1715 
     16extern Val *pugs_MkSvRef  ( SV *sv ); 
     17extern SV  *pugs_ValToSv ( Val *val ); 
     18 
    1819Val *pugs_SvToVal ( SV *sv ); 
    1920SV  *pugs_MkValRef ( Val *val ); 
    2021 
    21 extern Val *pugs_MkSvRef  ( SV *sv ); 
    22 extern SV  *pugs_ValToSv ( Val *val ); 
    23