ext/Devel/PPPort/parts/inc/cop

   1 ################################################################################
   2 ##
   3 ##  $Revision: 3 $
   4 ##  $Author: mhx $
   5 ##  $Date: 2004/08/13 12:45:54 +0200 $
   6 ##
   7 ################################################################################
   8 ##
   9 ##  Version 3.x, Copyright (C) 2004, Marcus Holland-Moritz.
  10 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
  11 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
  12 ##
  13 ##  This program is free software; you can redistribute it and/or
  14 ##  modify it under the same terms as Perl itself.
  15 ##
  16 ################################################################################
  17
  18 =provides
  19
  20 __UNDEFINED__
  21
  22 =implementation
  23
  24 #ifdef USE_ITHREADS
  25
  26 __UNDEFINED__  CopFILE(c)               ((c)->cop_file)
  27 __UNDEFINED__  CopFILEGV(c)             (CopFILE(c) ? gv_fetchfile(CopFILE(c)) : Nullgv)
  28 __UNDEFINED__  CopFILE_set(c,pv)        ((c)->cop_file = savepv(pv))
  29 __UNDEFINED__  CopFILESV(c)             (CopFILE(c) ? GvSV(gv_fetchfile(CopFILE(c))) : Nullsv)
  30 __UNDEFINED__  CopFILEAV(c)             (CopFILE(c) ? GvAV(gv_fetchfile(CopFILE(c))) : Nullav)
  31 __UNDEFINED__  CopSTASHPV(c)            ((c)->cop_stashpv)
  32 __UNDEFINED__  CopSTASHPV_set(c,pv)     ((c)->cop_stashpv = ((pv) ? savepv(pv) : Nullch))
  33 __UNDEFINED__  CopSTASH(c)              (CopSTASHPV(c) ? gv_stashpv(CopSTASHPV(c),GV_ADD) : Nullhv)
  34 __UNDEFINED__  CopSTASH_set(c,hv)       CopSTASHPV_set(c, (hv) ? HvNAME(hv) : Nullch)
  35 __UNDEFINED__  CopSTASH_eq(c,hv)        ((hv) && (CopSTASHPV(c) == HvNAME(hv) \
  36                                         || (CopSTASHPV(c) && HvNAME(hv) \
  37                                         && strEQ(CopSTASHPV(c), HvNAME(hv)))))
  38
  39 #else
  40
  41 __UNDEFINED__  CopFILEGV(c)             ((c)->cop_filegv)
  42 __UNDEFINED__  CopFILEGV_set(c,gv)      ((c)->cop_filegv = (GV*)SvREFCNT_inc(gv))
  43 __UNDEFINED__  CopFILE_set(c,pv)        CopFILEGV_set((c), gv_fetchfile(pv))
  44 __UNDEFINED__  CopFILESV(c)             (CopFILEGV(c) ? GvSV(CopFILEGV(c)) : Nullsv)
  45 __UNDEFINED__  CopFILEAV(c)             (CopFILEGV(c) ? GvAV(CopFILEGV(c)) : Nullav)
  46 __UNDEFINED__  CopFILE(c)               (CopFILESV(c) ? SvPVX(CopFILESV(c)) : Nullch)
  47 __UNDEFINED__  CopSTASH(c)              ((c)->cop_stash)
  48 __UNDEFINED__  CopSTASH_set(c,hv)       ((c)->cop_stash = (hv))
  49 __UNDEFINED__  CopSTASHPV(c)            (CopSTASH(c) ? HvNAME(CopSTASH(c)) : Nullch)
  50 __UNDEFINED__  CopSTASHPV_set(c,pv)     CopSTASH_set((c), gv_stashpv(pv,GV_ADD))
  51 __UNDEFINED__  CopSTASH_eq(c,hv)        (CopSTASH(c) == (hv))
  52
  53 #endif /* USE_ITHREADS */
  54
  55 =xsubs
  56
  57 char *
  58 CopSTASHPV()
  59         CODE:
  60                 RETVAL = CopSTASHPV(PL_curcop);
  61         OUTPUT:
  62                 RETVAL
  63
  64 char *
  65 CopFILE()
  66         CODE:
  67                 RETVAL = CopFILE(PL_curcop);
  68         OUTPUT:
  69                 RETVAL
  70
  71 =tests plan => 2
  72
  73 my $package;
  74 {
  75   package MyPackage;
  76   $package = &Devel::PPPort::CopSTASHPV();
  77 }
  78 print "# $package\n";
  79 ok($package, "MyPackage");
  80
  81 my $file = &Devel::PPPort::CopFILE();
  82 print "# $file\n";
  83 ok($file =~ /cop/i);
  84