Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Convert xsutils.c and lib/attributes.pm to a regular XS extension.

  • Loading branch information...
commit 48462a74af687743eb1706910f2a17ba4180660d 1 parent 42f6aa0
authored April 12, 2009
4  Cross/Makefile-cross-SH
@@ -358,7 +358,7 @@ h = $(h1) $(h2) $(h3) $(h4) $(h5)
358 358
 
359 359
 c1 = av.c scope.c op.c doop.c doio.c dump.c gv.c hv.c mg.c reentr.c mro.c perl.c
360 360
 c2 = perly.c pp.c pp_hot.c pp_ctl.c pp_sys.c regcomp.c regexec.c utf8.c sv.c
361  
-c3 = taint.c toke.c util.c deb.c run.c universal.c xsutils.c pad.c globals.c
  361
+c3 = taint.c toke.c util.c deb.c run.c universal.c pad.c globals.c
362 362
 c4 = perlio.c perlapi.c numeric.c mathoms.c locale.c pp_pack.c pp_sort.c
363 363
 c5 = $(madlysrc) $(mallocsrc)
364 364
 
@@ -366,7 +366,7 @@ c = $(c1) $(c2) $(c3) $(c4) $(c5) miniperlmain.c perlmain.c opmini.c
366 366
 
367 367
 obj1 = $(madlyobj) $(mallocobj) gv$(OBJ_EXT) toke$(OBJ_EXT) perly$(OBJ_EXT) op$(OBJ_EXT) pad$(OBJ_EXT) regcomp$(OBJ_EXT) dump$(OBJ_EXT) util$(OBJ_EXT) mg$(OBJ_EXT) reentr$(OBJ_EXT) mro$(OBJ_EXT)
368 368
 obj2 = hv$(OBJ_EXT) av$(OBJ_EXT) perl$(OBJ_EXT) run$(OBJ_EXT) pp_hot$(OBJ_EXT) sv$(OBJ_EXT) pp$(OBJ_EXT) scope$(OBJ_EXT) pp_ctl$(OBJ_EXT) pp_sys$(OBJ_EXT)
369  
-obj3 = doop$(OBJ_EXT) doio$(OBJ_EXT) regexec$(OBJ_EXT) utf8$(OBJ_EXT) taint$(OBJ_EXT) deb$(OBJ_EXT) universal$(OBJ_EXT) xsutils$(OBJ_EXT) globals$(OBJ_EXT) perlio$(OBJ_EXT) perlapi$(OBJ_EXT) numeric$(OBJ_EXT) mathoms$(OBJ_EXT) locale$(OBJ_EXT) pp_pack$(OBJ_EXT) pp_sort$(OBJ_EXT)
  369
+obj3 = doop$(OBJ_EXT) doio$(OBJ_EXT) regexec$(OBJ_EXT) utf8$(OBJ_EXT) taint$(OBJ_EXT) deb$(OBJ_EXT) universal$(OBJ_EXT) globals$(OBJ_EXT) perlio$(OBJ_EXT) perlapi$(OBJ_EXT) numeric$(OBJ_EXT) mathoms$(OBJ_EXT) locale$(OBJ_EXT) pp_pack$(OBJ_EXT) pp_sort$(OBJ_EXT)
370 370
 
371 371
 obj = $(obj1) $(obj2) $(obj3) $(ARCHOBJS)
372 372
 
1  Cross/cflags-cross-arm
@@ -108,7 +108,6 @@ for file do
108 108
     usersub) ;;
109 109
     utf8) ;;
110 110
     util) ;;
111  
-    xsutils) ;;
112 111
     *) ;;
113 112
     esac
114 113
 
6  Cross/config.sh-arm-linux
@@ -546,7 +546,7 @@ doublesize='8'
546 546
 drand01='drand48()'
547 547
 drand48_r_proto='0'
548 548
 dtrace=''
549  
-dynamic_ext='B ByteLoader Cwd Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Sys/Syslog Time/HiRes Unicode/Normalize XS/APItest XS/Typemap re threads threads/shared'
  549
+dynamic_ext='B ByteLoader Cwd Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Sys/Syslog Time/HiRes Unicode/Normalize XS/APItest XS/Typemap attributes re threads threads/shared'
550 550
 eagain='EAGAIN'
551 551
 ebcdic='undef'
552 552
 echo='echo'
@@ -561,7 +561,7 @@ endservent_r_proto='0'
561 561
 eunicefix=':'
562 562
 exe_ext=''
563 563
 expr='expr'
564  
-extensions='B ByteLoader Cwd Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Sys/Syslog Time/HiRes Unicode/Normalize XS/APItest XS/Typemap re threads threads/shared Errno'
  564
+extensions='B ByteLoader Cwd Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Sys/Syslog Time/HiRes Unicode/Normalize XS/APItest XS/Typemap attributes re threads threads/shared Errno'
565 565
 extras=''
566 566
 fflushNULL='define'
567 567
 fflushall='undef'
@@ -751,7 +751,7 @@ issymlink='/usr/bin/test -h'
751 751
 ivdformat='"ld"'
752 752
 ivsize='4'
753 753
 ivtype='long'
754  
-known_extensions='B ByteLoader Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call GDBM_File I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 NDBM_File ODBM_File Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Sys/Syslog Time/HiRes Unicode/Normalize XS/APItest XS/Typemap re threads threads/shared'
  754
+known_extensions='B ByteLoader Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call GDBM_File I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 NDBM_File ODBM_File Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Sys/Syslog Time/HiRes Unicode/Normalize XS/APItest XS/Typemap attributes re threads threads/shared'
755 755
 ksh=''
756 756
 ld='cc'
757 757
 lddlflags='-shared -L/usr/local/lib'
6  Cross/config.sh-arm-linux-n770
@@ -531,7 +531,7 @@ dlsrc='dl_dlopen.xs'
531 531
 doublesize='8'
532 532
 drand01='drand48()'
533 533
 drand48_r_proto='0'
534  
-dynamic_ext='B ByteLoader Cwd Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Sys/Syslog Time/HiRes Unicode/Normalize XS/APItest XS/Typemap re threads threads/shared'
  534
+dynamic_ext='B ByteLoader Cwd Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Sys/Syslog Time/HiRes Unicode/Normalize XS/APItest XS/Typemap attributes re threads threads/shared'
535 535
 eagain='EAGAIN'
536 536
 ebcdic='undef'
537 537
 echo='echo'
@@ -546,7 +546,7 @@ endservent_r_proto='0'
546 546
 eunicefix=':'
547 547
 exe_ext=''
548 548
 expr='expr'
549  
-extensions='B ByteLoader Cwd Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Sys/Syslog Time/HiRes Unicode/Normalize XS/APItest XS/Typemap re threads threads/shared Errno'
  549
+extensions='B ByteLoader Cwd Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Sys/Syslog Time/HiRes Unicode/Normalize XS/APItest XS/Typemap attributes re threads threads/shared Errno'
550 550
 extras=''
551 551
 fflushNULL='define'
552 552
 fflushall='undef'
@@ -736,7 +736,7 @@ issymlink='/usr/bin/test -h'
736 736
 ivdformat='"ld"'
737 737
 ivsize='4'
738 738
 ivtype='long'
739  
-known_extensions='B ByteLoader Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call GDBM_File I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 NDBM_File ODBM_File Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Sys/Syslog Time/HiRes Unicode/Normalize XS/APItest XS/Typemap re threads threads/shared'
  739
+known_extensions='B ByteLoader Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call GDBM_File I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 NDBM_File ODBM_File Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Sys/Syslog Time/HiRes Unicode/Normalize XS/APItest XS/Typemap attributes re threads threads/shared'
740 740
 ksh=''
741 741
 ld='arm-none-linux-gnueabi-gcc'
742 742
 lddlflags='-shared -L/usr/local/lib'
4  MANIFEST
@@ -88,6 +88,8 @@ ext/Attribute-Handlers/t/constants.t	Test constants and Attribute::Handlers
88 88
 ext/Attribute-Handlers/t/data_convert.t	Test attribute data conversion
89 89
 ext/Attribute-Handlers/t/linerep.t	See if Attribute::Handlers works
90 90
 ext/Attribute-Handlers/t/multi.t	See if Attribute::Handlers works
  91
+ext/attributes/attributes.pm		For "sub foo : attrlist"
  92
+ext/attributes/attributes.xs		For "sub foo : attrlist"
91 93
 ext/B/B/Concise.pm	Compiler Concise backend
92 94
 ext/B/B/Debug.pm	Compiler Debug backend
93 95
 ext/B/B/Deparse.pm	Compiler Deparse backend
@@ -1768,7 +1770,6 @@ lib/Archive/Tar/t/src/short/bar.tar.packed	Archive::Tar tests
1768 1770
 lib/Archive/Tar/t/src/short/foo.tbz.packed	Archive::Tar tests
1769 1771
 lib/Archive/Tar/t/src/short/foo.tgz.packed	Archive::Tar tests
1770 1772
 lib/assert.pl			assertion and panic with stack trace
1771  
-lib/attributes.pm		For "sub foo : attrlist"
1772 1773
 lib/autodie/exception.pm	Exception class for autodie
1773 1774
 lib/autodie/exception/system.pm	Exception class for autodying system()
1774 1775
 lib/autodie.pm			Functions suceed or die with lexical scope
@@ -4522,4 +4523,3 @@ x2p/util.c			Utility routines
4522 4523
 x2p/util.h			Public declarations for the above
4523 4524
 x2p/walk.c			Parse tree walker
4524 4525
 XSUB.h				Include file for extension subroutines
4525  
-xsutils.c			Additional bundled package methods not in UNIVERSAL::
4  Makefile.SH
@@ -439,7 +439,7 @@ h = $(h1) $(h2) $(h3) $(h4) $(h5)
439 439
 
440 440
 c1 = av.c scope.c op.c doop.c doio.c dump.c gv.c hv.c mg.c reentr.c mro.c perl.c
441 441
 c2 = perly.c pp.c pp_hot.c pp_ctl.c pp_sys.c regcomp.c regexec.c utf8.c sv.c
442  
-c3 = taint.c toke.c util.c deb.c run.c universal.c xsutils.c pad.c globals.c
  442
+c3 = taint.c toke.c util.c deb.c run.c universal.c pad.c globals.c
443 443
 c4 = perlio.c perlapi.c numeric.c mathoms.c locale.c pp_pack.c pp_sort.c
444 444
 c5 = $(madlysrc) $(mallocsrc)
445 445
 
@@ -448,7 +448,7 @@ c = $(c1) $(c2) $(c3) $(c4) $(c5) miniperlmain.c perlmain.c opmini.c perlmini.c
448 448
 obj0 = op$(OBJ_EXT) perl$(OBJ_EXT)
449 449
 obj1 = $(madlyobj) $(mallocobj) gv$(OBJ_EXT) toke$(OBJ_EXT) perly$(OBJ_EXT) pad$(OBJ_EXT) regcomp$(OBJ_EXT) dump$(OBJ_EXT) util$(OBJ_EXT) mg$(OBJ_EXT) reentr$(OBJ_EXT) mro$(OBJ_EXT)
450 450
 obj2 = hv$(OBJ_EXT) av$(OBJ_EXT) run$(OBJ_EXT) pp_hot$(OBJ_EXT) sv$(OBJ_EXT) pp$(OBJ_EXT) scope$(OBJ_EXT) pp_ctl$(OBJ_EXT) pp_sys$(OBJ_EXT)
451  
-obj3 = doop$(OBJ_EXT) doio$(OBJ_EXT) regexec$(OBJ_EXT) utf8$(OBJ_EXT) taint$(OBJ_EXT) deb$(OBJ_EXT) universal$(OBJ_EXT) xsutils$(OBJ_EXT) globals$(OBJ_EXT) perlio$(OBJ_EXT) perlapi$(OBJ_EXT) numeric$(OBJ_EXT) mathoms$(OBJ_EXT) locale$(OBJ_EXT) pp_pack$(OBJ_EXT) pp_sort$(OBJ_EXT)
  451
+obj3 = doop$(OBJ_EXT) doio$(OBJ_EXT) regexec$(OBJ_EXT) utf8$(OBJ_EXT) taint$(OBJ_EXT) deb$(OBJ_EXT) universal$(OBJ_EXT) globals$(OBJ_EXT) perlio$(OBJ_EXT) perlapi$(OBJ_EXT) numeric$(OBJ_EXT) mathoms$(OBJ_EXT) locale$(OBJ_EXT) pp_pack$(OBJ_EXT) pp_sort$(OBJ_EXT)
452 452
 
453 453
 mini_obj =  $(obj1) $(obj2) $(obj3) $(ARCHOBJS)
454 454
 ndt_obj = $(obj0) $(obj1) $(obj2) $(obj3) $(ARCHOBJS)
5  Makefile.micro
@@ -21,7 +21,7 @@ O = uav$(_O) udeb$(_O) udoio$(_O) udoop$(_O) udump$(_O) \
21 21
 	uregcomp$(_O) uregexec$(_O) urun$(_O) \
22 22
 	uscope$(_O) usv$(_O) utaint$(_O) utoke$(_O) \
23 23
 	unumeric$(_O) ulocale$(_O) umathoms$(_O) \
24  
-	uuniversal$(_O) uutf8$(_O) uutil$(_O) uperlapi$(_O) uxsutils$(_O)
  24
+	uuniversal$(_O) uutf8$(_O) uutil$(_O) uperlapi$(_O)
25 25
 
26 26
 microperl:	$(O)
27 27
 	$(LD) -o $@ $(O) $(LDFLAGS) $(LIBS)
@@ -170,9 +170,6 @@ uutil$(_O):	$(HE) util.c
170 170
 uperlapi$(_O):	$(HE) perlapi.c perlapi.h
171 171
 	$(CC) $(CCFLAGS) -o $@ $(CFLAGS) perlapi.c
172 172
 
173  
-uxsutils$(_O):	$(HE) xsutils.c
174  
-	$(CC) $(CCFLAGS) -o $@ $(CFLAGS) xsutils.c
175  
-
176 173
 uudmap.h: generate_uudmap$(_X)
177 174
 	$(RUN) ./generate_uudmap$(_X) >uudmap.h
178 175
 
17  NetWare/Makefile
@@ -312,6 +312,7 @@ IO_NLM		= $(AUTODIR)\IO\IO.NLM
312 312
 OPCODE_NLM	= $(AUTODIR)\Opcode\Opcode.NLM
313 313
 SDBM_FILE_NLM = $(AUTODIR)\SDBM_File\SDBM_File.NLM
314 314
 POSIX_NLM	= $(AUTODIR)\POSIX\POSIX.NLM
  315
+ATTRIBUTES_NLM	= $(AUTODIR)\attributes\attributes.NLM
315 316
 B_NLM		= $(AUTODIR)\B\B.NLM
316 317
 DUMPER_NLM	= $(AUTODIR)\Data\Dumper\Dumper.NLM
317 318
 PEEK_NLM	= $(AUTODIR)\Devel\Peek\Peek.NLM
@@ -335,6 +336,7 @@ EXTENSION_NLM	= 		\
335 336
 		$(SOCKET_NLM)	\
336 337
 		$(OPCODE_NLM)	\
337 338
 		$(B_NLM)		\
  339
+		$(ATTRIBUTES_NLM)	\
338 340
 		$(SDBM_FILE_NLM)	\
339 341
 		$(POSIX_NLM)	\
340 342
 		$(DUMPER_NLM)	\
@@ -722,8 +724,7 @@ MICROCORE_SRC	=		\
722 724
 		..\toke.c	\
723 725
 		..\universal.c	\
724 726
 		..\utf8.c	\
725  
-		..\util.c	\
726  
-		..\xsutils.c
  727
+		..\util.c
727 728
 
728 729
 #EXTRACORE_SRC	= $(EXTRACORE_SRC) perllib.c
729 730
 
@@ -786,7 +787,7 @@ CORE_H		= $(CORE_NOCFG_H) .\config.h
786 787
 DLL_OBJ		= $(DLL_SRC:.c=.obj)
787 788
 X2P_OBJ		= $(X2P_SRC:.c=.obj)
788 789
 
789  
-DYNAMIC_EXT	= Socket IO Fcntl Opcode SDBM_File POSIX B re \
  790
+DYNAMIC_EXT	= Socket IO Fcntl Opcode SDBM_File POSIX attributes B re \
790 791
 		Data/Dumper Devel/Peek ByteLoader Devel/DProf File/Glob \
791 792
 		Storable/Storable List/Util MIME/Base64/Base64 XS/APItest/APItest \
792 793
 		XS/Typemap/Typemap Unicode/Normalize/Normalize Sys/Hostname
@@ -801,6 +802,7 @@ OPCODE		= $(EXTDIR)\Opcode\Opcode
801 802
 SDBM_FILE	= $(EXTDIR)\SDBM_File\SDBM_File
802 803
 IO			= $(EXTDIR)\IO\IO
803 804
 POSIX		= $(EXTDIR)\POSIX\POSIX
  805
+ATTRIBUTES		= $(EXTDIR)\attributes\attributes
804 806
 B			= $(EXTDIR)\B\B
805 807
 RE			= $(EXTDIR)\re\re
806 808
 DUMPER		= $(EXTDIR)\Data\Dumper\Dumper
@@ -827,6 +829,7 @@ EXTENSION_C	= 		\
827 829
 		$(SDBM_FILE).c	\
828 830
 		$(IO).c		\
829 831
 		$(POSIX).c	\
  832
+		$(ATTRIBUTES).c	\
830 833
 		$(RE).c		\
831 834
 		$(DUMPER).c	\
832 835
 		$(PEEK).c	\
@@ -1222,6 +1225,12 @@ $(POSIX_NLM):
1222 1225
 	$(MAKE)
1223 1226
 	cd ..\..\netware
1224 1227
 
  1228
+$(ATTRIBUTES_NLM):
  1229
+	cd $(EXTDIR)\$(*B)
  1230
+	..\..\miniperl -I..\..\lib Makefile.PL PERL_CORE=1 INSTALLDIRS=perl
  1231
+	$(MAKE)
  1232
+	cd ..\..\netware
  1233
+
1225 1234
 $(SDBM_FILE_NLM):
1226 1235
 	cd $(EXTDIR)\$(*B)
1227 1236
 	..\..\miniperl -I..\..\lib Makefile.PL PERL_CORE=1 INSTALLDIRS=perl
@@ -1387,7 +1396,7 @@ distclean: clean nwclean
1387 1396
 	-del /f /q $(EXTDIR)\DynaLoader\dl_win32.xs
1388 1397
 	-del /f /q $(EXTDIR)\DynaLoader\DynaLoader.pm
1389 1398
 	-del /f /q $(EXTDIR)\DynaLoader\XSLoader.pm
1390  
-	-del /f /q $(LIBDIR)\.exists $(LIBDIR)\DynaLoader.pm
  1399
+	-del /f /q $(LIBDIR)\.exists $(LIBDIR)\attributes.pm $(LIBDIR)\DynaLoader.pm
1391 1400
 	-del /f /q $(LIBDIR)\XSLoader.pm
1392 1401
 	-del /f /q $(LIBDIR)\Fcntl.pm $(LIBDIR)\IO.pm $(LIBDIR)\Opcode.pm
1393 1402
 	-del /f /q $(LIBDIR)\ops.pm $(LIBDIR)\Safe.pm
2  NetWare/config.wc
@@ -538,7 +538,7 @@ doublesize='8'
538 538
 drand01='(rand()/(double)((unsigned)1<<RANDBITS))'
539 539
 drand48_r_proto='0'
540 540
 dtrace=''
541  
-dynamic_ext='Socket IO Fcntl Opcode SDBM_File'
  541
+dynamic_ext='Socket IO Fcntl Opcode SDBM_File attributes'
542 542
 eagain='EAGAIN'
543 543
 ebcdic='undef'
544 544
 echo='echo'
6  Porting/config.sh
@@ -560,7 +560,7 @@ doublesize='8'
560 560
 drand01='drand48()'
561 561
 drand48_r_proto='0'
562 562
 dtrace=''
563  
-dynamic_ext='B Compress/Raw/Zlib Cwd Data/Dumper DB_File Devel/DProf Devel/Peek Devel/PPPort Digest/MD5 Digest/SHA Encode Fcntl File/Glob Filter/Util/Call GDBM_File Hash/Util I18N/Langinfo IO IPC/SysV List/Util Math/BigInt/FastCalc MIME/Base64 NDBM_File ODBM_File Opcode PerlIO/encoding PerlIO/scalar PerlIO/via POSIX re SDBM_File Socket Storable Sys/Hostname Sys/Syslog Text/Soundex threads Time/HiRes Time/Piece Unicode/Normalize XS/APItest XS/Typemap threads/shared Hash/Util/FieldHash'
  563
+dynamic_ext='attributes B Compress/Raw/Zlib Cwd Data/Dumper DB_File Devel/DProf Devel/Peek Devel/PPPort Digest/MD5 Digest/SHA Encode Fcntl File/Glob Filter/Util/Call GDBM_File Hash/Util I18N/Langinfo IO IPC/SysV List/Util Math/BigInt/FastCalc MIME/Base64 NDBM_File ODBM_File Opcode PerlIO/encoding PerlIO/scalar PerlIO/via POSIX re SDBM_File Socket Storable Sys/Hostname Sys/Syslog Text/Soundex threads Time/HiRes Time/Piece Unicode/Normalize XS/APItest XS/Typemap threads/shared Hash/Util/FieldHash'
564 564
 eagain='EAGAIN'
565 565
 ebcdic='undef'
566 566
 echo='echo'
@@ -575,7 +575,7 @@ endservent_r_proto='0'
575 575
 eunicefix=':'
576 576
 exe_ext=''
577 577
 expr='expr'
578  
-extensions='B Compress/Raw/Zlib Cwd Data/Dumper DB_File Devel/DProf Devel/Peek Devel/PPPort Digest/MD5 Digest/SHA Encode Fcntl File/Glob Filter/Util/Call GDBM_File Hash/Util I18N/Langinfo IO IPC/SysV List/Util Math/BigInt/FastCalc MIME/Base64 NDBM_File ODBM_File Opcode PerlIO/encoding PerlIO/scalar PerlIO/via POSIX re SDBM_File Socket Storable Sys/Hostname Sys/Syslog Text/Soundex threads Time/HiRes Time/Piece Unicode/Normalize XS/APItest XS/Typemap threads/shared Hash/Util/FieldHash Compress/Zlib Errno IO_Compress_Base IO_Compress_Zlib Module/Pluggable Test/Harness'
  578
+extensions='attributes B Compress/Raw/Zlib Cwd Data/Dumper DB_File Devel/DProf Devel/Peek Devel/PPPort Digest/MD5 Digest/SHA Encode Fcntl File/Glob Filter/Util/Call GDBM_File Hash/Util I18N/Langinfo IO IPC/SysV List/Util Math/BigInt/FastCalc MIME/Base64 NDBM_File ODBM_File Opcode PerlIO/encoding PerlIO/scalar PerlIO/via POSIX re SDBM_File Socket Storable Sys/Hostname Sys/Syslog Text/Soundex threads Time/HiRes Time/Piece Unicode/Normalize XS/APItest XS/Typemap threads/shared Hash/Util/FieldHash Compress/Zlib Errno IO_Compress_Base IO_Compress_Zlib Module/Pluggable Test/Harness'
579 579
 extern_C='extern'
580 580
 extras=''
581 581
 fflushNULL='define'
@@ -767,7 +767,7 @@ issymlink='test -h'
767 767
 ivdformat='"Ld"'
768 768
 ivsize='8'
769 769
 ivtype='long long'
770  
-known_extensions='B Compress/Raw/Zlib Cwd Data/Dumper DB_File Devel/DProf Devel/Peek Devel/PPPort Digest/MD5 Digest/SHA Encode Fcntl File/Glob Filter/Util/Call GDBM_File Hash/Util I18N/Langinfo IO IPC/SysV List/Util Math/BigInt/FastCalc MIME/Base64 NDBM_File ODBM_File Opcode PerlIO/encoding PerlIO/scalar PerlIO/via POSIX re SDBM_File Socket Storable Sys/Hostname Sys/Syslog Text/Soundex threads Time/HiRes Time/Piece Unicode/Normalize Win32 Win32API/File Win32CORE XS/APItest XS/Typemap threads/shared Hash/Util/FieldHash'
  770
+known_extensions='attributes B Compress/Raw/Zlib Cwd Data/Dumper DB_File Devel/DProf Devel/Peek Devel/PPPort Digest/MD5 Digest/SHA Encode Fcntl File/Glob Filter/Util/Call GDBM_File Hash/Util I18N/Langinfo IO IPC/SysV List/Util Math/BigInt/FastCalc MIME/Base64 NDBM_File ODBM_File Opcode PerlIO/encoding PerlIO/scalar PerlIO/via POSIX re SDBM_File Socket Storable Sys/Hostname Sys/Syslog Text/Soundex threads Time/HiRes Time/Piece Unicode/Normalize Win32 Win32API/File Win32CORE XS/APItest XS/Typemap threads/shared Hash/Util/FieldHash'
771 771
 ksh=''
772 772
 ld='cc'
773 773
 lddlflags='-shared -O2 -L/usr/local/lib -fstack-protector'
2  README.symbian
@@ -360,7 +360,7 @@ The Symbian port is licensed under the same terms as Perl itself.
360 360
     DynaLoader Exporter File::Spec integer lib strict Symbol
361 361
     vars warnings XSLoader
362 362
   - The following extensions are available:
363  
-    Compress::Zlib Cwd Data::Dumper Devel::Peek Digest::MD5 DynaLoader
  363
+    attributes Compress::Zlib Cwd Data::Dumper Devel::Peek Digest::MD5 DynaLoader
364 364
     Fcntl File::Glob Filter::Util::Call IO List::Util MIME::Base64
365 365
     PerlIO::scalar PerlIO::via SDBM_File Socket Storable Time::HiRes
366 366
   - The following extensions are missing for various technical reasons:
1  cflags.SH
@@ -319,7 +319,6 @@ for file do
319 319
     usersub) ;;
320 320
     utf8) ;;
321 321
     util) ;;
322  
-    xsutils) ;;
323 322
     *) ;;
324 323
     esac
325 324
 
2  embed.fnc
@@ -1278,8 +1278,6 @@ Apr	|void	|newMYSUB	|I32 floor|NULLOK OP *o|NULLOK OP *proto|NULLOK OP *attrs|NU
1278 1278
 #endif
1279 1279
 : Used in perly.y
1280 1280
 p	|OP *	|my_attrs	|NN OP *o|NULLOK OP *attrs
1281  
-: Only used in perl.c
1282  
-p	|void	|boot_core_xsutils
1283 1281
 #if defined(USE_ITHREADS)
1284 1282
 ApR	|PERL_CONTEXT*|cx_dup	|NULLOK PERL_CONTEXT* cx|I32 ix|I32 max|NN CLONE_PARAMS* param
1285 1283
 ApR	|PERL_SI*|si_dup	|NULLOK PERL_SI* si|NN CLONE_PARAMS* param
2  embed.h
@@ -1113,7 +1113,6 @@
1113 1113
 #endif
1114 1114
 #ifdef PERL_CORE
1115 1115
 #define my_attrs		Perl_my_attrs
1116  
-#define boot_core_xsutils	Perl_boot_core_xsutils
1117 1116
 #endif
1118 1117
 #if defined(USE_ITHREADS)
1119 1118
 #define cx_dup			Perl_cx_dup
@@ -3444,7 +3443,6 @@
3444 3443
 #endif
3445 3444
 #ifdef PERL_CORE
3446 3445
 #define my_attrs(a,b)		Perl_my_attrs(aTHX_ a,b)
3447  
-#define boot_core_xsutils()	Perl_boot_core_xsutils(aTHX)
3448 3446
 #endif
3449 3447
 #if defined(USE_ITHREADS)
3450 3448
 #define cx_dup(a,b,c,d)		Perl_cx_dup(aTHX_ a,b,c,d)
2  epoc/config.sh
@@ -529,7 +529,7 @@ endservent_r_proto='0'
529 529
 eunicefix=':'
530 530
 exe_ext=''
531 531
 expr='expr'
532  
-extensions='Data/Dumper Digest/MD5 Errno Fcntl File/Glob Filter/Util/Call IO List/Util MIME/Base64 Opcode PerlIO/scalar Socket Storable Sys/Hostname Unicode/Storable re'
  532
+extensions='Data/Dumper Digest/MD5 Errno Fcntl File/Glob Filter/Util/Call IO List/Util MIME/Base64 Opcode PerlIO/scalar Socket Storable Sys/Hostname Unicode/Storable attributes re'
533 533
 fflushNULL='undef'
534 534
 fflushall='define'
535 535
 find=''
20  lib/attributes.pm → ext/attributes/attributes.pm
... ...
@@ -1,6 +1,6 @@
1 1
 package attributes;
2 2
 
3  
-our $VERSION = 0.10;
  3
+our $VERSION = 0.11;
4 4
 
5 5
 @EXPORT_OK = qw(get reftype);
6 6
 @EXPORT = ();
@@ -18,16 +18,6 @@ sub carp {
18 18
     goto &Carp::carp;
19 19
 }
20 20
 
21  
-## forward declaration(s) rather than wrapping the bootstrap call in BEGIN{}
22  
-#sub reftype ($) ;
23  
-#sub _fetch_attrs ($) ;
24  
-#sub _guess_stash ($) ;
25  
-#sub _modify_attrs ;
26  
-#
27  
-# The extra trips through newATTRSUB in the interpreter wipe out any savings
28  
-# from avoiding the BEGIN block.  Just do the bootstrap now.
29  
-BEGIN { bootstrap attributes }
30  
-
31 21
 sub import {
32 22
     @_ > 2 && ref $_[2] or do {
33 23
 	require Exporter;
@@ -73,8 +63,8 @@ sub get ($) {
73 63
     @_ == 1  && ref $_[0] or
74 64
 	croak 'Usage: '.__PACKAGE__.'::get $ref';
75 65
     my $svref = shift;
76  
-    my $svtype = uc reftype $svref;
77  
-    my $stash = _guess_stash $svref;
  66
+    my $svtype = uc reftype($svref);
  67
+    my $stash = _guess_stash($svref);
78 68
     $stash = caller unless defined $stash;
79 69
     my $pkgmeth;
80 70
     $pkgmeth = UNIVERSAL::can($stash, "FETCH_${svtype}_ATTRIBUTES")
@@ -87,6 +77,9 @@ sub get ($) {
87 77
 
88 78
 sub require_version { goto &UNIVERSAL::VERSION }
89 79
 
  80
+require XSLoader;
  81
+XSLoader::load('attributes', $VERSION);
  82
+
90 83
 1;
91 84
 __END__
92 85
 #The POD goes here
@@ -479,4 +472,3 @@ which this module replaces;
479 472
 L<perlfunc/use> for details on the normal invocation mechanism.
480 473
 
481 474
 =cut
482  
-
95  xsutils.c → ext/attributes/attributes.xs
@@ -17,43 +17,13 @@
17 17
 
18 18
 
19 19
 #include "EXTERN.h"
20  
-#define PERL_IN_XSUTILS_C
21 20
 #include "perl.h"
  21
+#include "XSUB.h"
22 22
 
23 23
 /*
24 24
  * Contributed by Spider Boardman (spider.boardman@orb.nashua.nh.us).
25 25
  */
26 26
 
27  
-/* package attributes; */
28  
-PERL_XS_EXPORT_C void XS_attributes_reftype(pTHX_ CV *cv);
29  
-PERL_XS_EXPORT_C void XS_attributes__modify_attrs(pTHX_ CV *cv);
30  
-PERL_XS_EXPORT_C void XS_attributes__guess_stash(pTHX_ CV *cv);
31  
-PERL_XS_EXPORT_C void XS_attributes__fetch_attrs(pTHX_ CV *cv);
32  
-PERL_XS_EXPORT_C void XS_attributes_bootstrap(pTHX_ CV *cv);
33  
-
34  
-
35  
-/*
36  
- * Note that only ${pkg}::bootstrap definitions should go here.
37  
- * This helps keep down the start-up time, which is especially
38  
- * relevant for users who don't invoke any features which are
39  
- * (partially) implemented here.
40  
- *
41  
- * The various bootstrap definitions can take care of doing
42  
- * package-specific newXS() calls.  Since the layout of the
43  
- * bundled *.pm files is in a version-specific directory,
44  
- * version checks in these bootstrap calls are optional.
45  
- */
46  
-
47  
-static const char file[] = __FILE__;
48  
-
49  
-void
50  
-Perl_boot_core_xsutils(pTHX)
51  
-{
52  
-    newXS("attributes::bootstrap",	XS_attributes_bootstrap,	file);
53  
-}
54  
-
55  
-#include "XSUB.h"
56  
-
57 27
 static int
58 28
 modify_SV_attributes(pTHX_ SV *sv, SV **retlist, SV **attrlist, int numattrs)
59 29
 {
@@ -142,31 +112,13 @@ modify_SV_attributes(pTHX_ SV *sv, SV **retlist, SV **attrlist, int numattrs)
142 112
     return nret;
143 113
 }
144 114
 
  115
+MODULE = attributes		PACKAGE = attributes
145 116
 
146  
-
147  
-/* package attributes; */
148  
-
149  
-XS(XS_attributes_bootstrap)
150  
-{
151  
-    dVAR;
152  
-    dXSARGS;
153  
-
154  
-    if( items > 1 )
155  
-	croak_xs_usage(cv, "$module");
156  
-
157  
-    newXS("attributes::_modify_attrs",	XS_attributes__modify_attrs,	file);
158  
-    newXSproto("attributes::_guess_stash", XS_attributes__guess_stash, file, "$");
159  
-    newXSproto("attributes::_fetch_attrs", XS_attributes__fetch_attrs, file, "$");
160  
-    newXSproto("attributes::reftype",	XS_attributes_reftype,	file, "$");
161  
-
162  
-    XSRETURN(0);
163  
-}
164  
-
165  
-XS(XS_attributes__modify_attrs)
166  
-{
167  
-    dVAR;
168  
-    dXSARGS;
  117
+void
  118
+_modify_attrs(...)
  119
+  PREINIT:
169 120
     SV *rv, *sv;
  121
+  PPCODE:
170 122
 
171 123
     if (items < 1) {
172 124
 usage:
@@ -181,22 +133,19 @@ XS(XS_attributes__modify_attrs)
181 133
 	XSRETURN(modify_SV_attributes(aTHX_ sv, &ST(0), &ST(1), items-1));
182 134
 
183 135
     XSRETURN(0);
184  
-}
185 136
 
186  
-XS(XS_attributes__fetch_attrs)
187  
-{
188  
-    dVAR;
189  
-    dXSARGS;
  137
+void
  138
+_fetch_attrs(...)
  139
+  PREINIT:
190 140
     SV *rv, *sv;
191 141
     cv_flags_t cvflags;
192  
-
  142
+  PPCODE:
193 143
     if (items != 1) {
194 144
 usage:
195 145
 	croak_xs_usage(cv, "$reference");
196 146
     }
197 147
 
198 148
     rv = ST(0);
199  
-    SP -= items;
200 149
     if (!(SvOK(rv) && SvROK(rv)))
201 150
 	goto usage;
202 151
     sv = SvRV(rv);
@@ -222,15 +171,13 @@ XS(XS_attributes__fetch_attrs)
222 171
     }
223 172
 
224 173
     PUTBACK;
225  
-}
226 174
 
227  
-XS(XS_attributes__guess_stash)
228  
-{
229  
-    dVAR;
230  
-    dXSARGS;
  175
+void
  176
+_guess_stash(...)
  177
+  PREINIT:
231 178
     SV *rv, *sv;
232 179
     dXSTARG;
233  
-
  180
+  PPCODE:
234 181
     if (items != 1) {
235 182
 usage:
236 183
 	croak_xs_usage(cv, "$reference");
@@ -270,15 +217,13 @@ XS(XS_attributes__guess_stash)
270 217
 
271 218
     SvSETMAGIC(TARG);
272 219
     XSRETURN(1);
273  
-}
274 220
 
275  
-XS(XS_attributes_reftype)
276  
-{
277  
-    dVAR;
278  
-    dXSARGS;
  221
+void
  222
+reftype(...)
  223
+  PREINIT:
279 224
     SV *rv, *sv;
280 225
     dXSTARG;
281  
-
  226
+  PPCODE:
282 227
     if (items != 1) {
283 228
 usage:
284 229
 	croak_xs_usage(cv, "$reference");
@@ -294,8 +239,6 @@ XS(XS_attributes_reftype)
294 239
     SvSETMAGIC(TARG);
295 240
 
296 241
     XSRETURN(1);
297  
-}
298  
-
299 242
 /*
300 243
  * Local variables:
301 244
  * c-indentation-style: bsd
@@ -304,4 +247,4 @@ XS(XS_attributes_reftype)
304 247
  * End:
305 248
  *
306 249
  * ex: set ts=8 sts=4 sw=4 noet:
307  
- */
  250
+ */
4  hints/uwin.sh
@@ -32,7 +32,7 @@
32 32
 #b # compile/link flags
33 33
 #b ldflags=-g
34 34
 #b optimize=-g
35  
-#b static_ext="B Data/Dumper Digest/MD5 Errno Fcntl Filter::Util::Call IO IPC/SysV MIME::Base64 Opcode PerlIO::scalar POSIX SDBM_File Socket Storable Unicode::Normalize re"
  35
+#b static_ext="B Data/Dumper Digest/MD5 Errno Fcntl Filter::Util::Call IO IPC/SysV MIME::Base64 Opcode PerlIO::scalar POSIX SDBM_File Socket Storable Unicode::Normalize attributes re"
36 36
 #b #static_ext=none
37 37
 #b # dynamic loading needs work
38 38
 #b usedl=undef
@@ -109,7 +109,7 @@ optimize=-g
109 109
 
110 110
 # Original, with :: separators, cause make to choke.
111 111
 # No longer seems to be necessary at all.
112  
-# static_ext="B Data/Dumper Digest/MD5 Errno Fcntl Filter/Util/Call IO IPC/SysV MIME/Base64 Opcode PerlIO/scalar POSIX SDBM_File Socket Storable Unicode/Normalize re"
  112
+# static_ext="B Data/Dumper Digest/MD5 Errno Fcntl Filter/Util/Call IO IPC/SysV MIME/Base64 Opcode PerlIO/scalar POSIX SDBM_File Socket Storable Unicode/Normalize attributes re"
113 113
 
114 114
 # perl malloc will not work
115 115
 usemymalloc=n
2  hints/vmesa.sh
@@ -322,7 +322,7 @@ sig_num_init='0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,2
322 322
 sizetype='size_t'
323 323
 so='.a'
324 324
 ssizetype='ssize_t'
325  
-static_ext='Data/Dumper Digest/MD5 Fcntl Filter/Util/Call GDBM_File IO IPC/SysV List/Util MIME/Base64 NDBM_File Opcode PerlIO/scalar POSIX Socket Storable Time/HiRes Time/Piece re'
  325
+static_ext='Data/Dumper Digest/MD5 Fcntl Filter/Util/Call GDBM_File IO IPC/SysV List/Util MIME/Base64 NDBM_File Opcode PerlIO/scalar POSIX Socket Storable Time/HiRes Time/Piece attributes re'
326 326
 stdchar='char'
327 327
 stdio_cnt='(fp)->__countIn'
328 328
 stdio_ptr='(fp)->__bufPtr'
1  perl.c
@@ -2028,7 +2028,6 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
2028 2028
 
2029 2029
     boot_core_PerlIO();
2030 2030
     boot_core_UNIVERSAL();
2031  
-    boot_core_xsutils();
2032 2031
     boot_core_mro();
2033 2032
 
2034 2033
     if (xsinit)
6  plan9/config_sh.sample
@@ -560,7 +560,7 @@ endservent_r_proto='0'
560 560
 eunicefix=':'
561 561
 exe_ext=''
562 562
 expr='expr'
563  
-extensions='B ByteLoader Cwd Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call IO List/Util MIME/Base64 Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Sys/Syslog Time/HiRes Unicode/Normalize re threads threads/shared Encode/Byte Encode/CN Encode/EBCDIC Encode/JP Encode/KR Encode/Symbol Encode/TW Encode/Unicode Errno'
  563
+extensions='B ByteLoader Cwd Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call IO List/Util MIME/Base64 Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Sys/Syslog Time/HiRes Unicode/Normalize attributes re threads threads/shared Encode/Byte Encode/CN Encode/EBCDIC Encode/JP Encode/KR Encode/Symbol Encode/TW Encode/Unicode Errno'
564 564
 extras=''
565 565
 fflushNULL='define'
566 566
 fflushall='undef'
@@ -733,7 +733,7 @@ issymlink='/bin/test -h'
733 733
 ivdformat='"ld"'
734 734
 ivsize='4'
735 735
 ivtype='long'
736  
-known_extensions='B ByteLoader Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call GDBM_File I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 NDBM_File ODBM_File Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Sys/Syslog Time/HiRes Unicode/Normalize XS/APItest XS/Typemap re threads threads/shared'
  736
+known_extensions='B ByteLoader Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call GDBM_File I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 NDBM_File ODBM_File Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Sys/Syslog Time/HiRes Unicode/Normalize XS/APItest XS/Typemap attributes re threads threads/shared'
737 737
 ksh=''
738 738
 ld='ld'
739 739
 lddlflags=''
@@ -933,7 +933,7 @@ src='.'
933 933
 ssizetype='ssize_t'
934 934
 startperl='#!/bin/perl'
935 935
 startsh='#!/bin/sh'
936  
-static_ext='B ByteLoader Cwd Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call IO List/Util MIME/Base64 Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Sys/Syslog Time/HiRes Unicode/Normalize re threads threads/shared Encode/Byte Encode/CN Encode/EBCDIC Encode/JP Encode/KR Encode/Symbol Encode/TW Encode/Unicode'
  936
+static_ext='B ByteLoader Cwd Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call IO List/Util MIME/Base64 Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Sys/Syslog Time/HiRes Unicode/Normalize attributes re threads threads/shared Encode/Byte Encode/CN Encode/EBCDIC Encode/JP Encode/KR Encode/Symbol Encode/TW Encode/Unicode'
937 937
 stdchar='char'
938 938
 stdio_base='((fp)->_base)'
939 939
 stdio_bufsiz='((fp)->_cnt + (fp)->_ptr - (fp)->_base)'
2  plan9/mkfile
@@ -35,7 +35,7 @@ ext_xs = IO.xs Socket.xs Opcode.xs  dl_none.xs Fcntl.xs POSIX.xs
35 35
 ext_c = ${ext_xs:%.xs=%.c}
36 36
 ext_obj = ${ext_xs:%.xs=%.$O}
37 37
 
38  
-obj = av.$O deb.$O doio.$O doop.$O dump.$O globals.$O gv.$O hv.$O locale.$O malloc.$O mathoms.$O mg.$O numeric.$O op.$O pad.$O perlapi.$O perlio.$O perly.$O pp.$O pp_ctl.$O pp_hot.$O pp_pack.$O pp_sort.$O pp_sys.$O reentr.$O regcomp.$O regexec.$O run.$O scope.$O sv.$O taint.$O toke.$O universal.$O utf8.$O util.$O xsutils.$O
  38
+obj = av.$O deb.$O doio.$O doop.$O dump.$O globals.$O gv.$O hv.$O locale.$O malloc.$O mathoms.$O mg.$O numeric.$O op.$O pad.$O perlapi.$O perlio.$O perly.$O pp.$O pp_ctl.$O pp_hot.$O pp_pack.$O pp_sort.$O pp_sys.$O reentr.$O regcomp.$O regexec.$O run.$O scope.$O sv.$O taint.$O toke.$O universal.$O utf8.$O util.$O
39 39
 
40 40
 OBJS = perl.$O plan9.$O $obj
41 41
 
1  proto.h
@@ -4028,7 +4028,6 @@ PERL_CALLCONV OP *	Perl_my_attrs(pTHX_ OP *o, OP *attrs)
4028 4028
 #define PERL_ARGS_ASSERT_MY_ATTRS	\
4029 4029
 	assert(o)
4030 4030
 
4031  
-PERL_CALLCONV void	Perl_boot_core_xsutils(pTHX);
4032 4031
 #if defined(USE_ITHREADS)
4033 4032
 PERL_CALLCONV PERL_CONTEXT*	Perl_cx_dup(pTHX_ PERL_CONTEXT* cx, I32 ix, I32 max, CLONE_PARAMS* param)
4034 4033
 			__attribute__warn_unused_result__
2  symbian/config.pl
@@ -717,7 +717,7 @@ sub create_PerlApp_pkg {
717 717
 perl${VERSION}ext.sis perlext.sis:	perldll_arm buildext_sis
718 718
 	perl symbian\\makesis.pl perl${VERSION}ext
719 719
 
720  
-EXT = 	Compress::Raw::Zlib Cwd Data::Dumper Devel::Peek Digest::MD5 Errno Fcntl File::Glob Filter::Util::Call IO List::Util MIME::Base64 PerlIO::scalar PerlIO::via SDBM_File Socket Storable Time::HiRes XSLoader
  720
+EXT = 	Compress::Raw::Zlib Cwd Data::Dumper Devel::Peek Digest::MD5 Errno Fcntl File::Glob Filter::Util::Call IO List::Util MIME::Base64 PerlIO::scalar PerlIO::via SDBM_File Socket Storable Time::HiRes XSLoader attributes
721 721
 
722 722
 buildext: perldll symbian\\xsbuild.pl lib\\Config.pm
723 723
 	perl \$(XLIB) symbian\\xsbuild.pl \$(XSBOPT) \$(EXT)
1  symbian/install.cfg
@@ -69,6 +69,7 @@ lib	warnings/register.pm
69 69
 # 
70 70
 # Extensions.
71 71
 #
  72
+ext	attributes
72 73
 ext	Compress/Raw/Zlib	-zlib-src
73 74
 ext	Cwd
74 75
 ext	Data/Dumper
6  vms/descrip_mms.template
@@ -281,14 +281,14 @@ FULLLIBS2 = $(LIBS2)|$(THRLIBS1)|$(THRLIBS2)
281 281
 c0 = $(MALLOC_C) $(SOCKC) av.c deb.c doio.c doop.c dump.c globals.c gv.c hv.c mro.c
282 282
 c1 = mg.c locale.c mathoms.c miniperlmain.c numeric.c op.c pad.c perl.c perlapi.c perlio.c
283 283
 c2 = perly.c pp.c pp_ctl.c pp_hot.c pp_pack.c pp_sort.c pp_sys.c regcomp.c regexec.c reentr.c
284  
-c3 = run.c scope.c sv.c taint.c toke.c universal.c utf8.c util.c vms.c xsutils.c
  284
+c3 = run.c scope.c sv.c taint.c toke.c universal.c utf8.c util.c vms.c
285 285
 c = $(c0) $(c1) $(c2) $(c3)
286 286
 
287 287
 obj0 = perl$(O)
288 288
 obj1 = $(MALLOC_O) $(SOCKO) av$(O) deb$(O) doio$(O) doop$(O) dump$(O) mro$(O) globals$(O) gv$(O) hv$(O) 
289 289
 obj2 = locale$(O) mathoms$(O) mg$(O) miniperlmain$(O) numeric$(O) op$(O) pad$(O) perlapi$(O) perlio$(O) 
290 290
 obj3 = perly$(O) pp$(O) pp_ctl$(O) pp_hot$(O) reentr$(O) pp_pack$(O) pp_sort$(O) pp_sys$(O) regcomp$(O) 
291  
-obj4 = regexec$(O) run$(O) scope$(O) sv$(O) taint$(O) toke$(O) universal$(O) utf8$(O) util$(O) vms$(O) xsutils$(O)
  291
+obj4 = regexec$(O) run$(O) scope$(O) sv$(O) taint$(O) toke$(O) universal$(O) utf8$(O) util$(O) vms$(O)
292 292
 
293 293
 mini_obj = perlmini$(O) $(obj1) $(obj2) $(obj3) $(obj4)
294 294
 obj = $(obj0) $(obj1) $(obj2) $(obj3) $(obj4)
@@ -1743,8 +1743,6 @@ util$(O) : util.c $(h)
1743 1743
 	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
1744 1744
 vms$(O) : vms.c $(h)
1745 1745
 	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
1746  
-xsutils$(O) : xsutils.c $(h)
1747  
-	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
1748 1746
 
1749 1747
 [.x2p]hash$(O) : [.x2p]hash.c [.x2p]EXTERN.h [.x2p]a2p.h [.x2p]hash.h [.x2p]str.h [.x2p]util.h config.h handy.h vmsish.h $(SOCKH)
1750 1748
 	$(CC) $(X2PCFLAGS) $(MMS$SOURCE)
5  win32/Makefile
@@ -688,8 +688,7 @@ MICROCORE_SRC	=		\
688 688
 		..\toke.c	\
689 689
 		..\universal.c	\
690 690
 		..\utf8.c	\
691  
-		..\util.c	\
692  
-		..\xsutils.c
  691
+		..\util.c
693 692
 
694 693
 EXTRACORE_SRC	= $(EXTRACORE_SRC) perllib.c
695 694
 
@@ -1154,7 +1153,7 @@ distclean: realclean
1154 1153
 	-del /f $(EXTDIR)\DynaLoader\XSLoader.pm
1155 1154
 	-del /f $(LIBDIR)\Encode.pm $(LIBDIR)\encoding.pm $(LIBDIR)\Errno.pm
1156 1155
 	-del /f $(LIBDIR)\Config.pod $(LIBDIR)\POSIX.pod $(LIBDIR)\threads.pm
1157  
-	-del /f $(LIBDIR)\.exists $(LIBDIR)\DynaLoader.pm
  1156
+	-del /f $(LIBDIR)\.exists $(LIBDIR)\attributes.pm $(LIBDIR)\DynaLoader.pm
1158 1157
 	-del /f $(LIBDIR)\XSLoader.pm $(LIBDIR)\lib.pm
1159 1158
 	-del /f $(LIBDIR)\Fcntl.pm $(LIBDIR)\IO.pm $(LIBDIR)\Opcode.pm
1160 1159
 	-del /f $(LIBDIR)\ops.pm $(LIBDIR)\Safe.pm
6  win32/Makefile.ce
@@ -593,8 +593,7 @@ MICROCORE_SRC	=		\
593 593
 		..\toke.c	\
594 594
 		..\universal.c	\
595 595
 		..\utf8.c	\
596  
-		..\util.c	\
597  
-		..\xsutils.c
  596
+		..\util.c
598 597
 
599 598
 EXTRACORE_SRC	= $(EXTRACORE_SRC) perllib.c
600 599
 
@@ -654,7 +653,7 @@ CORE_NOCFG_H	=		\
654 653
 		.\include\sys\socket.h	\
655 654
 		.\win32.h
656 655
 
657  
-DYNAMIC_EXT	= Socket IO Fcntl Opcode SDBM_File POSIX B re \
  656
+DYNAMIC_EXT	= Socket IO Fcntl Opcode SDBM_File POSIX attributes B re \
658 657
 		Data/Dumper Devel/Peek ByteLoader Devel/DProf File/Glob \
659 658
 		Sys/Hostname
660 659
 
@@ -822,7 +821,6 @@ $(DLLDIR)\win32thread.obj \
822 821
 $(DLLDIR)\wince.obj \
823 822
 $(DLLDIR)\win32io.obj \
824 823
 $(DLLDIR)\wincesck.obj \
825  
-$(DLLDIR)\xsutils.obj \
826 824
 $(DLLDIR)\perllib.obj \
827 825
 $(DLLDIR)\DynaLoader.obj
828 826
 !IF "$(PERL_MALLOC)" == "define"
2  win32/config.bc
@@ -534,7 +534,7 @@ doublesize='8'
534 534
 drand01='(rand()/(double)((unsigned)1<<RANDBITS))'
535 535
 drand48_r_proto='0'
536 536
 dtrace=''
537  
-dynamic_ext='Socket IO Fcntl Opcode SDBM_File'
  537
+dynamic_ext='Socket IO Fcntl Opcode SDBM_File attributes'
538 538
 eagain='EAGAIN'
539 539
 ebcdic='undef'
540 540
 echo='echo'
2  win32/config.ce
@@ -536,7 +536,7 @@ doublesize='8'
536 536
 drand01='(rand()/(double)((unsigned)1<<RANDBITS))'
537 537
 drand48_r_proto='0'
538 538
 dtrace=''
539  
-dynamic_ext='Socket IO Fcntl Opcode SDBM_File'
  539
+dynamic_ext='Socket IO Fcntl Opcode SDBM_File attributes'
540 540
 eagain='EAGAIN'
541 541
 ebcdic='undef'
542 542
 echo='echo'
2  win32/config.gc
@@ -534,7 +534,7 @@ doublesize='8'
534 534
 drand01='(rand()/(double)((unsigned)1<<RANDBITS))'
535 535
 drand48_r_proto='0'
536 536
 dtrace=''
537  
-dynamic_ext='Socket IO Fcntl Opcode SDBM_File'
  537
+dynamic_ext='Socket IO Fcntl Opcode SDBM_File attributes'
538 538
 eagain='EAGAIN'
539 539
 ebcdic='undef'
540 540
 echo='echo'
2  win32/config.vc
@@ -534,7 +534,7 @@ doublesize='8'
534 534
 drand01='(rand()/(double)((unsigned)1<<RANDBITS))'
535 535
 drand48_r_proto='0'
536 536
 dtrace=''
537  
-dynamic_ext='Socket IO Fcntl Opcode SDBM_File'
  537
+dynamic_ext='Socket IO Fcntl Opcode SDBM_File attributes'
538 538
 eagain='EAGAIN'
539 539
 ebcdic='undef'
540 540
 echo='echo'
2  win32/config.vc64
@@ -534,7 +534,7 @@ doublesize='8'
534 534
 drand01='(rand()/(double)((unsigned)1<<RANDBITS))'
535 535
 drand48_r_proto='0'
536 536
 dtrace=''
537  
-dynamic_ext='Socket IO Fcntl Opcode SDBM_File'
  537
+dynamic_ext='Socket IO Fcntl Opcode SDBM_File attributes'
538 538
 eagain='EAGAIN'
539 539
 ebcdic='undef'
540 540
 echo='echo'
5  win32/makefile.mk
@@ -846,8 +846,7 @@ MICROCORE_SRC	=		\
846 846
 		..\toke.c	\
847 847
 		..\universal.c	\
848 848
 		..\utf8.c	\
849  
-		..\util.c	\
850  
-		..\xsutils.c
  849
+		..\util.c
851 850
 
852 851
 EXTRACORE_SRC	+= perllib.c
853 852
 
@@ -1476,7 +1475,7 @@ distclean: realclean
1476 1475
 	-del /f $(EXTDIR)\DynaLoader\XSLoader.pm
1477 1476
 	-del /f $(LIBDIR)\Encode.pm $(LIBDIR)\encoding.pm $(LIBDIR)\Errno.pm
1478 1477
 	-del /f $(LIBDIR)\Config.pod $(LIBDIR)\POSIX.pod $(LIBDIR)\threads.pm
1479  
-	-del /f $(LIBDIR)\.exists $(LIBDIR)\DynaLoader.pm
  1478
+	-del /f $(LIBDIR)\.exists $(LIBDIR)\attributes.pm $(LIBDIR)\DynaLoader.pm
1480 1479
 	-del /f $(LIBDIR)\XSLoader.pm $(LIBDIR)\lib.pm
1481 1480
 	-del /f $(LIBDIR)\Fcntl.pm $(LIBDIR)\IO.pm $(LIBDIR)\Opcode.pm
1482 1481
 	-del /f $(LIBDIR)\ops.pm $(LIBDIR)\Safe.pm

0 notes on commit 48462a7

Please sign in to comment.
Something went wrong with that request. Please try again.