1!GROK!THIS!
2# Descrip.MMS for perl5 on VMS
3# Last revised 5-Dec-2001 by Craig Berry -- craigberry@mac.com
4#
5#: This file uses MMS syntax, and can be processed using DEC's MMS product,
6#: or the free MMK clone (available by ftp at ftp.spc.edu).  If you want to
7#: a Unix-style MAKE tool, run this file through mms2make.pl, which should
8#: be found in the same directory as this file.
9#:
10#: Lines beginning with "#:" will be removed by mms2make.pl when converting
11#: this file to MAKE syntax.
12#
13#	tidy      -- purge files generated by executing this file
14#	clean     -- remove all intermediate (e.g. object files, C files generated
15#	             during build) files generated by executing this file,
16#	             but leave 'installable' files (images, library) intact
17#	realclean -- remove all files generated by executing this file
18#	cleansrc  -- 'realclean' + purge *.c,*.h,descrip.mms
19#	crtl.opt  -- compiler-specific linker options file (made automatically)
20#
21
22#### Start of system configuration section. ####
23
24~DECC~
25~DECCXX~
26~ARCH-TYPE~ = 1
27~THREAD~
28~SOCKET~
29~MALLOC~
30~CC~
31~MTK~
32~MTU~
33~FLAGS~
34~LARGEFILE~
35~ARCHNAME~
36~USEVMSDEBUG~
37~PREFIX~
38
39#: >>>>> Architecture-specific options <<<<<
40.ifdef IXE
41O = .ibj
42OLB = .ilb
43E = .ixe
44.else
45.ifdef AXE
46# File type to use for object files
47O = .abj
48# File type to use for object libraries
49OLB = .alb
50# File type to use for executable images
51E = .axe
52.else
53# File type to use for object files
54O = .obj
55# File type to use for object libraries
56OLB = .olb
57# File type to use for executable images
58E = .exe
59.endif
60.endif
61
62.ifdef __IA64__
63OBJVAL = $(O)
64.else
65.ifdef __AXP__
66OBJVAL = $(O)
67.else
68OBJVAL = $(MMS$TARGET_NAME)$(O)
69.endif
70.endif
71
72PERL_VERSION = ~PV~
73
74.ifdef MALLOC
75MALLOC_O = malloc$(O)
76MALLOC_C = malloc$(C)
77.endif
78
79.ifdef DECC_SOCKETS
80SOCKET=1
81.endif
82
83ARCHDIR =  [.lib.$(ARCHNAME).$(PERL_VERSION)]
84ARCHCORE = [.lib.$(ARCHNAME).$(PERL_VERSION).CORE]
85ARCHAUTO = [.lib.$(ARCHNAME).$(PERL_VERSION).auto]
86
87#: >>>>>Compiler-specific options <<<<<
88XTRAOBJS =
89LIBS1 = $(XTRAOBJS)
90DBGSPECFLAGS = /Show=(expansion,include)/machine
91# Some versions of DECCRTL on AXP have a bug in chdir() which causes the change
92# to persist after the image exits, even when this was not requested, iff
93# SYSNAM is enabled.  This is fixed in CSC Patch # AXPACRT04_061, but turning
94# off SYSNAM for the MM[SK] subprocess doesn't hurt anything, so we do it
95# just in case.
96.first
97	@ If F$TrnLnm("Sys").eqs."" .and. F$TrnLnm("DECC$System_Include").nes."" Then Define/NoLog SYS DECC$System_Include
98.ifdef __AXP__
99	@ Set Process/Privilege=(NoSYSNAM)
100	@ If F$TrnLnm("Sys").eqs."" .and. F$TrnLnm("DECC$System_Include").eqs."" Then Define/NoLog SYS Sys$Library
101.else
102	@ If F$TrnLnm("Sys").eqs."" .and. F$TrnLnm("DECC$System_Include").eqs."" Then Define/NoLog SYS DECC$Library_Include
103.endif
104
105.ifdef DECCXX
106XTRACCFLAGS = /Include=[]/Standard=ANSI/Prefix=All/Obj=$(OBJVAL)
107.else
108XTRACCFLAGS = /Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=$(OBJVAL)
109.endif
110XTRADEF =
111POSIX = POSIX
112
113#: >>>>> Configuration options <<<<<
114#: __DEBUG__: builds images with full VMS debugger support
115.ifdef __DEBUG__
116DBGCCFLAGS = /List/Debug/NoOpt$(DBGSPECFLAGS)
117DBGLINKFLAGS = /Trace/Debug/Map=$(MMS$TARGET_NAME).MAP/Full/Cross
118DBG = DBG
119.else
120DBGCCFLAGS = /NoList
121DBGLINKFLAGS = /NoTrace/NoMap
122DBG =
123.endif
124
125.ifdef THREADED
126THREADDEF =
127THREAD = THREAD
128.endif
129
130.ifdef OLDTHREADED
131THREADDEF =
132THREAD = THREAD
133THRLIBS1 = sys$share:cma$lib_shr/share|sys$share:cma$rtl/share
134.ifdef __AXP__
135THRLIBS2 = sys$share:cma$open_lib_shr/share|sys$share:cma$open_rtl/share
136.endif
137.endif
138
139.ifdef MTU
140.ifdef MTK
141MTHREADLINKFLAGS = /THREADS=(MULTIPLE_KERNEL,UPCALLS)
142.else
143MTHREADLINKFLAGS = /THREADS=UPCALLS
144.endif
145.else
146MTHREADLINKFLAGS =
147.endif
148
149# C preprocessor manifest "DEBUGGING" ==> perl -D, not the VMS debugger
150.IFDEF LARGEFILE
151CFLAGS = $(XTRACCFLAGS)$(DBGCCFLAGS)$(FLAGS)/Define=$(LARGEFILE)
152CORECFLAGS = $(XTRACCFLAGS)$(DBGCCFLAGS)$(FLAGS)/Define=(PERL_CORE,$(LARGEFILE))
153.ELSE
154CFLAGS = $(XTRACCFLAGS)$(DBGCCFLAGS)$(FLAGS)
155CORECFLAGS = $(XTRACCFLAGS)$(DBGCCFLAGS)$(FLAGS)/Define=PERL_CORE
156.ENDIF
157
158LINKFLAGS = $(DBGLINKFLAGS)
159
160MAKE = $(MMS)
161MAKEFILE = Descrip.MMS   # this file
162NOOP = continue
163
164# Macros to invoke a copy of miniperl during the build.  Targets which
165# are built using these macros should depend on $(MINIPERL_EXE)
166MINIPERL_EXE = Sys$Disk:[]miniperl$(E)
167MINIPERL = MCR $(MINIPERL_EXE) "-I[.lib]"
168MINIPERLQ = MCR $(MINIPERL_EXE) ""-I[.lib]""
169XSUBPP = $(MINIPERL) "-I[.ext.re]" [.lib.extutils]xsubpp -noprototypes
170# Macro to invoke a preexisting copy of Perl.  This is used to regenerate
171# some header files when rebuilding Perl, but premade versions are provided
172# in the distribution, so it's OK if this doesn't work; it's here to make
173# life easier for those who modify Perl and rebuild it.
174INSTPERL = perl
175# Macros to invoke a copy of perl during the build.  Targets which
176# are built using these macros should depend on $(PERL_EXE) EXT
177.IFDEF __DEBUG__
178PERL_EXE = Sys$Disk:[]n$(DBG)perl$(E)
179.ELSE
180PERL_EXE = Sys$Disk:[]perl$(E)
181.ENDIF
182PERL = MCR $(PERL_EXE) "-I[.lib]"
183
184# Space-separated list of "static" extensions to build into perlshr (case counts).
185MYEXT = DynaLoader
186# object files for these extensions; the trailing comma is required if
187# there are any object files specified
188# These must be built separately, or you must add rules below to build them
189myextobj = DynaLoader$(O),
190EXT = $(MYEXT)
191extobj = $(myextobj)
192
193.ifdef LIBS2
194.else
195LIBS2=
196.endif
197
198.ifdef THRLIBS1
199.else
200THRLIBS1=
201.endif
202
203.ifdef THRLIBS2
204.else
205THRLIBS2=
206.endif
207
208FULLLIBS2 = $(LIBS2)|$(THRLIBS1)|$(THRLIBS2)
209
210#### End of system configuration section. ####
211
212c0 = $(MALLOC_C) av.c builtin.c caretx.c class.c deb.c doio.c doop.c dquote.c dump.c globals.c gv.c hv.c mro_core.c
213c1 = mg.c locale.c mathoms.c miniperlmain.c numeric.c op.c pad.c peep.c perl.c perlio.c
214c2 = perly.c pp.c pp_ctl.c pp_hot.c pp_pack.c pp_sort.c pp_sys.c regcomp.c regcomp_debug.c
215c3 = regcomp_invlist.c regcomp_study.c regcomp_trie.c regexec.c reentr.c
216c4 = run.c scope.c sv.c taint.c time64.c toke.c universal.c utf8.c util.c vms.c keywords.c
217c = $(c0) $(c1) $(c2) $(c3) $(c4)
218
219obj0 = perl$(O)
220obj1 = $(MALLOC_O) av$(O) builtin$(O) caretx$(O) class$(O) deb$(O) doio$(O) doop$(O) dquote$(O) dump$(O) mro_core$(O) globals$(O) gv$(O) hv$(O)
221obj2 = keywords$(O) locale$(O) mathoms$(O) mg$(O) miniperlmain$(O) numeric$(O) op$(O) pad$(O) peep$(O) perlio$(O)
222obj3 = perly$(O) pp$(O) pp_ctl$(O) pp_hot$(O) reentr$(O) pp_pack$(O) pp_sort$(O) pp_sys$(O) regcomp$(O)
223obj4 = regcomp_debug$(O) regcomp_invlist$(O) regcomp_study$(O) regcomp_trie$(O)
224obj5 = regexec$(O) run$(O) scope$(O) sv$(O) taint$(O) time64$(O) toke$(O) universal$(O) utf8$(O) util$(O) vms$(O)
225
226mini_obj = perlmini$(O) $(obj1) $(obj2) $(obj3) $(obj4) $(obj5)
227obj = $(obj0) $(obj1) $(obj2) $(obj3) $(obj4) $(obj5)
228
229h0 = av.h config.h cop.h cv.h embed.h embedvar.h
230h1 = EXTERN.h form.h gv.h handy.h hv.h l1_char_class_tab.h INTERN.h intrpvar.h
231h2 = iperlsys.h keywords.h mydtrace.h mg.h mg_vtable.h nostdio.h op.h
232h3 = op_reg_common.h opcode.h opnames.h overload.h pad.h parser.h patchlevel.h
233h4 = perl.h perlapi.h perlio.h perlsdio.h perlvars.h perly.h
234h5 = pp.h pp_proto.h proto.h regcomp.h regcomp_internal.h regexp.h regnodes.h scope.h
235h6 = sv.h thread.h utf8.h util.h vmsish.h warnings.h xsub.h
236h = $(h0) $(h1) $(h2) $(h3) $(h4) $(h5) $(h6)
237
238acopt = $(ARCHCORE)perlshr_attr.opt $(ARCHCORE)$(DBG)perlshr_bld.opt
239ac = archcore_includes.ts $(acopt)
240
241generated_headers = uudmap.h bitcount.h mg_data.h
242
243CRTL = []crtl.opt
244CRTLOPTS =,$(CRTL)/Options
245
246.SUFFIXES
247
248.ifdef LINK_ONLY
249.else
250.SUFFIXES $(O) .c .xs
251
252.xs.c :
253	$(XSUBPP) $(MMS$SOURCE) >$(MMS$TARGET)
254
255.c$(O) :
256	$(CC) $(CFLAGS) $(MMS$SOURCE)
257
258.xs$(O) :
259	$(XSUBPP) $(MMS$SOURCE) >$(MMS$SOURCE_NAME).c
260	$(CC) $(CFLAGS) $(MMS$SOURCE_NAME).c
261.endif
262
263# Unicode data files generated by mktables
264unidatafiles = lib/unicore/Decomposition.pl lib/unicore/TestProp.pl \
265	lib/unicore/CombiningClass.pl lib/unicore/Name.pl \
266	lib/unicore/UCD.pl lib/unicore/Name.pm \
267	lib/unicore/mktables.lst
268
269# Directories of Unicode data files generated by mktables
270unidatadirs = lib/unicore/To lib/unicore/lib
271
272# Modules which must be installed before we can build extensions
273LIBPREREQ = $(ARCHDIR)Config.pm $(ARCHDIR)Config_heavy.pl $(ARCHDIR)vmspipe.com
274
275utils1 = [.utils]perldoc.com [.utils]h2ph.com
276utils2 = [.utils]h2xs.com [.utils]libnetcfg.com [.lib]perlbug.com [.utils]json_pp.com
277utils3 = [.utils]perlivp.com [.lib]splain.com [.utils]pl2pm.com [.utils]xsubpp.com [.utils]pod2html.com [.utils]instmodsh.com
278utils4 = [.utils]enc2xs.com [.utils]piconv.com [.utils]cpan.com [.utils]prove.com [.utils]ptar.com [.utils]ptardiff.com [.utils]shasum.com
279utils5 = [.utils]corelist.com [.utils]ptargrep.com [.utils]zipdetails.com [.utils]encguess.com [.utils]streamzip.com
280
281all : base extras archcorefiles preplibrary [.pod]perltoc.pod
282	@ QUALIFIERS := $(MMSQUALIFIERS)
283	@ QUALIFIERS = QUALIFIERS - """" - """"
284	@ write sys$output " "
285	@ write sys$output " Everything is up to date. '$(MMS)''QUALIFIERS' test' to run test suite."
286
287git_version.h : $(MINIPERL_EXE) make_patchnum.pl
288        $(MINIPERL) make_patchnum.pl
289
290base : miniperl git_version.h nonxsext perl
291	@ $(NOOP)
292extras : dynext libmods utils extra.pods
293	@ $(NOOP)
294libmods : $(LIBPREREQ)
295	@ $(NOOP)
296utils : $(utils1) $(utils2) $(utils3) $(utils4) $(utils5)
297	@ $(NOOP)
298extra.pods : miniperl
299	@ @extra_pods.com
300
301PERLDELTA_CURRENT = [.pod]perl5382delta.pod
302
303$(PERLDELTA_CURRENT) : [.pod]perldelta.pod
304	Copy/NoConfirm/Log $(MMS$SOURCE) $(PERLDELTA_CURRENT)
305
306[.pod]perlmodlib.pod : [.pod]perlmodlib.pl MANIFEST $(MINIPERL_EXE)
307	$(MINIPERL) [.pod]perlmodlib.pl "-q"
308
309[.pod]perlapi.pod : [.pod]perlintern.pod
310	@ $(NOOP)
311
312[.pod]perlintern.pod : embed.fnc autodoc.pl $(MINIPERL_EXE)
313	$(MINIPERL) autodoc.pl
314
315[.pod]perltoc.pod : $(PERLDELTA_CURRENT) [.pod]perlapi.pod [.pod]perlintern.pod  [.pod]perlmodlib.pod extra.pods $(PERL_EXE)
316	@ define/user_mode $(DBG)PERLSHR SYS$DISK:[]$(DBG)perlshr$(E)
317	$(PERL) "-f" [.pod]buildtoc "-q"
318
319archcorefiles : $(ac) $(ARCHAUTO)time.stamp
320	@ $(NOOP)
321
322# See the comment in Makefile.SH explaining this seemingly cranky ordering
323$(MINIPERL_EXE) : [.lib]buildcustomize.pl
324	@ $(NOOP)
325
326vmspipe.com : [.vms]vmspipe.com
327	Copy/NoConfirm/Log $(MMS$SOURCE) []
328
329miniperl : $(DBG)miniperl$(E)  vmspipe.com
330	@ Continue
331
332[.lib]buildcustomize.pl :  miniperlmain$(O), $(DBG)libperlmini$(OLB) $(CRTL) write_buildcustomize.pl
333	Link $(LINKFLAGS)/NoDebug/Trace/NoMap/NoFull/NoCross/Exe=$(MINIPERL_EXE) miniperlmain$(O),$(DBG)libperlmini$(OLB)/Library $(CRTLOPTS)
334       $(MINIPERL) "-f" write_buildcustomize.pl
335
336$(DBG)miniperl$(E) :  miniperlmain$(O), $(DBG)libperlmini$(OLB) $(CRTL)
337	Link $(LINKFLAGS)/Trace/Exe=$(MMS$TARGET) miniperlmain$(O), $(DBG)libperlmini$(OLB)/Library $(CRTLOPTS)
338
339$(DBG)libperl$(OLB) : $(obj)
340	@ If F$Search("$(MMS$TARGET)").eqs."" Then Library/Object/Create $(MMS$TARGET)
341	Library/Object/Replace $(MMS$TARGET) $(MMS$SOURCE_LIST)
342
343$(DBG)libperlmini$(OLB) : $(mini_obj)
344	@ If F$Search("$(MMS$TARGET)").eqs."" Then Library/Object/Create $(MMS$TARGET)
345	Library/Object/Replace $(MMS$TARGET) $(MMS$SOURCE_LIST)
346
347perlmain.c : miniperlmain.c $(MINIPERL_EXE) nonxsext
348	$(MINIPERL) -"MExtUtils::Miniperl" -e "writemain(\'perlmain.c', @ARGV)" "$(EXT)"
349
350.ifdef __DEBUG__
351# Link an extra perl that doesn't invoke the debugger
352perl : $(DBG)perl$(E)
353	Link $(LINKFLAGS)$(MTHREADLINKFLAGS)/NoDebug/Trace/NoMap/NoCross/NoFull/Exe=N$(DBG)perl$(E) perlmain$(O), perlshr.opt/Option, perlshr_attr.opt/Option $(CRTLOPTS)
354.else
355perl : $(DBG)perl$(E)
356	@ Continue
357.endif
358
359$(DBG)perl$(E) : perlmain$(O), $(DBG)perlshr$(E), $(MINIPERL_EXE)
360	@ @[.vms]genopt "PerlShr.Opt/Write" "|" "''F$Environment("Default")'$(DBG)PerlShr$(E)/Share"
361	Link $(LINKFLAGS)$(MTHREADLINKFLAGS)/Exe=$(MMS$TARGET) perlmain$(O), perlshr.opt/Option, perlshr_attr.opt/Option $(CRTLOPTS)
362
363$(DBG)perlshr$(E) : $(DBG)libperl$(OLB) $(extobj) $(DBG)perlshr_xtras.ts
364	Link $(LINKFLAGS)/Share=$(MMS$TARGET) $(extobj) []$(DBG)perlshr_bld.opt/Option, perlshr_attr.opt/Option
365
366perlmini.c : perl.c
367	@ IF F$SEARCH("$(MMS$TARGET)") .NES. "" THEN DELETE/NOCONFIRM/LOG $(MMS$TARGET);*
368	@ COPY/NOCONFIRM _NLA0: $(MMS$TARGET)
369	@ SET FILE /ATTRIBUTES=RFM:STMLF $(MMS$TARGET)
370	@ OPEN/APPEND perlmini $(MMS$TARGET)
371	@ WRITE perlmini "#define PERL_IS_MINIPERL"
372	@ CLOSE perlmini
373	@ APPEND/NOCONFIRM/LOG $(MMS$SOURCE) $(MMS$TARGET)
374
375perlmini$(O) : perlmini.c
376	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
377
378bitcount.h mg_data.h : uudmap.h
379	@ $(NOOP)
380
381uudmap.h : generate_uudmap$(E)
382	MCR SYS$DISK:[]generate_uudmap$(E) $(generated_headers)
383
384generate_uudmap$(E) : generate_uudmap$(O) $(CRTL)
385	Link $(LINKFLAGS)/NoDebug/Trace/NoMap/NoFull/NoCross/Exe=$(MMS$TARGET) generate_uudmap$(O) $(CRTLOPTS)
386
387generate_uudmap$(O) : generate_uudmap.c mg_raw.h
388        $(CC) $(CORECFLAGS) $(MMS$SOURCE)
389
390# The following files are built in one go by gen_shrfls.pl:
391#  perlshr_attr.opt, $(DBG)perlshr_bld.opt - AXP and IA64
392# The song and dance with gen_shrfls.opt accommodates DCL's line length limit.
393$(DBG)perlshr_xtras.ts : perl.h config.h vmsish.h proto.h [.vms]gen_shrfls.pl $(MINIPERL_EXE) $(MAKEFILE) $(CRTL)
394	@ $(MINIPERL) makedef.pl "PLATFORM=vms" > makedef.lis
395	@ $(MINIPERLQ) -e "print join('|',@ARGV),'|';" "$(CC)$(CFLAGS)" >gen_shrfls.opt
396	@ $(MINIPERLQ) -e "print join('|',@ARGV);" "$(O)" "$(DBG)" "$(OLB)" "$(EXT)" "$(CRTL)" >>gen_shrfls.opt
397	$(MINIPERL) [.vms]gen_shrfls.pl -f gen_shrfls.opt
398	@ Delete/NoLog/NoConfirm gen_shrfls.opt;
399	@ If F$Search("$(DBG)perlshr_xtras.ts").nes."" Then Delete/NoLog/NoConfirm $(DBG)perlshr_xtras.ts;*
400	@ Copy _NLA0: $(DBG)perlshr_xtras.ts
401
402$(ARCHDIR)Config.pm : [.lib]Config.pm
403	Create/Directory $(ARCHDIR)
404	Copy/NoConfirm/Log $(MMS$SOURCE) $(ARCHDIR)
405
406$(ARCHDIR)Config_heavy.pl : [.lib]Config_heavy.pl
407	Create/Directory $(ARCHDIR)
408	Copy/NoConfirm/Log $(MMS$SOURCE) $(ARCHDIR)
409
410[.lib]Config.pm : config.h $(MINIPERL_EXE)
411	$(MINIPERL) ConfigPM.
412
413$(ARCHDIR)vmspipe.com : vmspipe.com
414        Copy $(MMS$SOURCE) $(ARCHDIR)
415
416unidatafiles.ts : $(MINIPERL_EXE) [.lib]Config.pm [.lib.unicore]mktables nonxsext
417	$(MINIPERL) [.lib.unicore]mktables "-C" [.lib.unicore] "-P" [.pod] "-makelist" "-maketest" "-p"
418	@ If F$Search("$(MMS$TARGET)").nes."" Then Delete/NoLog/NoConfirm $(MMS$TARGET);*
419	@ Copy/NoConfirm _NLA0: $(MMS$TARGET)
420
421DynaLoader$(O) : [.lib]buildcustomize.pl $(ARCHDIR)Config.pm $(MINIPERL_EXE)
422	$(MINIPERL) make_ext.pl "MAKE=$(MMS)" "DynaLoader"
423
424dynext : $(LIBPREREQ) $(DBG)perlshr$(E) unidatafiles.ts DynaLoader$(O) preplibrary makeppport $(MINIPERL_EXE)
425       $(MINIPERL) make_ext.pl "MAKE=$(MMS)" "--dynamic" "--static"
426
427nonxsext : $(LIBPREREQ) preplibrary $(MINIPERL_EXE) [.pod]perlfunc.pod
428       $(MINIPERL) make_ext.pl "MAKE=$(MMS)" "--nonxs"
429
430[.utils]perldoc.com : [.utils]perldoc.PL $(ARCHDIR)Config.pm
431	$(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
432
433[.utils]perlivp.com : [.utils]perlivp.PL $(ARCHDIR)Config.pm
434	$(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
435
436[.utils]cpan.com : [.utils]cpan.PL $(ARCHDIR)Config.pm
437	$(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
438
439[.utils]prove.com : [.utils]prove.PL $(ARCHDIR)Config.pm
440	$(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
441
442[.utils]ptar.com : [.utils]ptar.PL $(ARCHDIR)Config.pm
443	$(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
444
445[.utils]ptardiff.com : [.utils]ptardiff.PL $(ARCHDIR)Config.pm
446	$(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
447
448[.utils]ptargrep.com : [.utils]ptargrep.PL $(ARCHDIR)Config.pm
449	$(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
450
451[.utils]shasum.com : [.utils]shasum.PL $(ARCHDIR)Config.pm
452	$(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
453
454[.utils]corelist.com : [.utils]corelist.PL $(ARCHDIR)Config.pm
455	$(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
456
457[.utils]json_pp.com : [.utils]json_pp.PL $(ARCHDIR)Config.pm
458	$(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
459
460[.utils]enc2xs.com : [.utils]enc2xs.PL $(ARCHDIR)Config.pm
461	$(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
462
463[.utils]encguess.com : [.utils]encguess.PL $(ARCHDIR)Config.pm
464	$(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
465
466[.utils]h2ph.com : [.utils]h2ph.PL $(ARCHDIR)Config.pm
467	$(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
468
469[.utils]h2xs.com : [.utils]h2xs.PL $(ARCHDIR)Config.pm
470	$(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
471
472[.utils]instmodsh.com : [.utils]instmodsh.PL $(ARCHDIR)Config.pm
473	$(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
474
475[.utils]libnetcfg.com : [.utils]libnetcfg.PL $(ARCHDIR)Config.pm
476       $(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
477
478[.lib]perlbug.com : [.utils]perlbug.PL $(ARCHDIR)Config.pm
479	$(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
480	Copy/NoConfirm/Log [.utils]perlbug.com [.lib]
481
482[.utils]piconv.com : [.utils]piconv.PL $(ARCHDIR)Config.pm
483	$(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
484
485[.utils]pl2pm.com : [.utils]pl2pm.PL $(ARCHDIR)Config.pm
486	$(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
487
488[.lib]splain.com : [.utils]splain.PL $(ARCHDIR)Config.pm
489	$(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
490	Copy/NoConfirm/Log [.utils]splain.com [.lib]
491
492[.utils]xsubpp.com : [.utils]xsubpp.PL $(ARCHDIR)Config.pm nonxsext
493	$(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
494
495[.utils]zipdetails.com : [.utils]zipdetails.PL $(ARCHDIR)Config.pm nonxsext
496	$(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
497
498[.utils]streamzip.com : [.utils]streamzip.PL $(ARCHDIR)Config.pm nonxsext
499	$(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
500
501[.utils]pod2html.com : [.utils]pod2html.PL $(ARCHDIR)Config.pm nonxsext
502	$(MINIPERL) -"I[-.lib]" $(MMS$SOURCE)
503
504preplibrary : $(MINIPERL_EXE) $(LIBPREREQ)
505	@ $(NOOP)
506
507makeppport : $(MINIPERL_EXE) $(ARCHDIR)Config.pm nonxsext
508	$(MINIPERL) mkppport
509
510install.html : [.pod]perltoc.pod
511	@ @perl_setup.com "$(PREFIX)"
512	@ If F$Search("perl_root:[lib]html.dir").eqs."" Then Create/Directory perl_root:[lib.html]
513	$(MINIPERL) installhtml. "--podroot=. --recurse --htmldir=/perl_root/lib/html --htmlroot=.. --verbose"
514
515printconfig :
516        @ @[.vms]make_command $(MMS) $(MMSQUALIFIERS) $(MMSTARGETS)
517        @ @[.vms]myconfig "$(CC)" "$(CFLAGS)" "$(LINKFLAGS)" "$(LIBS1)" "$(FULLLIBS2)" "$(EXT)" "$(DBG)"
518
519# The following files are generated automatically
520#       embed.pl:       proto.h embed.h embedvar.h
521#       opcode.pl:      opcode.h opnames.h pp_proto.h
522#       regcomp.pl:     regnodes.h
523#       warnings.pl:    warnings.h lib/warnings.pm
524# The correct versions should be already supplied with the perl kit,
525# in case you don't have perl available.
526# To force them to be regenerated, run
527#       perl regen.pl
528# with your existing copy of perl
529# (make regen_headers is kept for backwards compatibility)
530
531regen :
532	$(INSTPERL) regen.pl
533
534regen_headers :
535	$(INSTPERL) regen.pl -v
536
537.ifdef LINK_ONLY
538.else
539perly$(O) : perly.c, perly.h, $(h)
540.endif
541
542check : test
543	@ Continue
544
545test : all
546	@ PERL_TEST_DRIVER == "TEST."
547	- @[.vms]test.com "$(E)" "$(__DEBUG__)"
548	@ $(MINIPERL) -e "print ""Ran tests"";" > [.t]rantests.
549
550test_harness : all
551	@ PERL_TEST_DRIVER == "harness."
552	- @[.vms]test.com "$(E)" "$(__DEBUG__)"
553	@ $(MINIPERL) -e "print ""Ran tests"";" > [.t]rantests.
554
555minitest : $(MINITEST_EXE) unidatafiles.ts
556	@ PERL_TEST_DRIVER == "minitest"
557	- @[.vms]test.com "$(E)" "$(__DEBUG__)"
558
559# install ought not need a source, but it doesn't work if one's not
560# there. Go figure...
561install : $(PERL_EXE)
562	@ @perl_setup.com "$(PREFIX)"
563	If F$TrnLnm("Sys") .nes. "" Then Deass SYS
564	@ define/user_mode $(DBG)PERLSHR SYS$DISK:[]$(DBG)perlshr$(E)
565	$(PERL) installperl
566
567archify : all
568	@ Write Sys$Output "Moving files to architecture-specific locations for $(ARCHNAME)"
569	archroot = "$(ARCHAUTO)" - "]" + "...]"
570	Backup/Log/Verify [.lib.auto...]*.*;/Exclude=(*.al,*.ix) 'archroot'/New_Version
571	Delete/Log/NoConfirm [.lib.auto...]*.*;*/exclude=(*.al,*.ix,*.dir)
572	Delete/Log/NoConfirm [.lib]Config.pm;*
573	Delete/Log/NoConfirm [.lib]Config_heavy.pl;*
574	Copy/Log/NoConfirm *$(E);, $(ARCHDIR)
575	Delete/Log/NoConfirm Perl*$(E);*
576	@ QUALIFIERS := $(MMSQUALIFIERS)
577	@ QUALIFIERS = QUALIFIERS - """" - """"
578	@ Write Sys$Output "Architecture-specific setup completed."
579	@ Write Sys$Output "Before building for another architecture, be sure to"
580	@ Write Sys$Output "    1. $(MMS)''QUALIFIERS' clean"
581	@ Write Sys$Output "    2. Delete Miniperl$(E)"
582
583# CORE subset for MakeMaker, so we can build Perl without sources
584
585archcore_includes.ts :
586	@ If F$Search("$(ARCHDIR)CORE.dir").eqs."" Then Create/Directory $(ARCHCORE)
587	Copy/NoConfirm/Log *.h $(ARCHCORE)
588	@ Copy _NLA0: $(MMS$TARGET)
589$(ARCHCORE)$(DBG)libperl$(OLB) : $(DBG)libperl$(OLB) $(DBG)perlshr_xtras.ts
590	@ If F$Search("$(ARCHDIR)CORE.dir").eqs."" Then Create/Directory $(ARCHCORE)
591	Copy/NoConfirm/Log $(MMS$SOURCE) $(ARCHCORE)
592$(ARCHCORE)perlshr_attr.opt : $(DBG)perlshr_xtras.ts
593	@ If F$Search("$(ARCHDIR)CORE.dir").eqs."" Then Create/Directory $(ARCHCORE)
594	Copy/NoConfirm/Log perlshr_attr.opt $(ARCHCORE)
595$(ARCHCORE)$(DBG)perlshr_bld.opt : $(DBG)perlshr_xtras.ts
596	@ If F$Search("$(ARCHDIR)CORE.dir").eqs."" Then Create/Directory $(ARCHCORE)
597	Copy/NoConfirm/Log $(DBG)perlshr_bld.opt $(ARCHCORE)
598$(ARCHAUTO)time.stamp :
599	@ If F$Search("$(ARCHDIR)auto.dir").eqs."" Then Create/Directory $(ARCHAUTO)
600	@ If F$Search("$(MMS$TARGET)").eqs."" Then Copy/NoConfirm _NLA0: $(MMS$TARGET)
601
602.ifdef LINK_ONLY
603.else
604# We need(ed?) an action line here for broken older versions of MMS which
605# otherwise conclude that they should be compiling [.x2p]utils.c :-(
606#util$(O) : util.c
607#	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
608# AUTOMATICALLY GENERATED MAKE DEPENDENCIES--PUT NOTHING BELOW THIS LINE
609av$(O) : av.c $(h)
610	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
611builtin$(O) : builtin.c $(h)
612	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
613caretx$(O) : caretx.c $(h)
614	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
615deb$(O) : deb.c $(h)
616	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
617doio$(O) : doio.c $(h)
618	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
619doop$(O) : doop.c $(h)
620	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
621dquote$(O) : dquote.c $(h)
622	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
623dump$(O) : dump.c $(h)
624	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
625globals$(O) : globals.c $(generated_headers) $(h)
626        $(CC) $(CORECFLAGS) $(MMS$SOURCE)
627gv$(O) : gv.c $(h)
628	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
629mro_core$(O) : mro_core.c $(h)
630	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
631hv$(O) : hv.c $(h)
632	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
633keywords$(O) : keywords.c $(h)
634	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
635locale$(O) : locale.c $(h)
636	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
637malloc$(O) : malloc.c $(h)
638	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
639mathoms$(O) : mathoms.c $(h)
640	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
641mg$(O) : mg.c $(h)
642	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
643miniperlmain$(O) : miniperlmain.c $(h)
644	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
645numeric$(O) : numeric.c $(h)
646	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
647pad$(O) : pad.c $(h)
648	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
649op$(O) : op.c $(h)
650	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
651peep$(O) : peep.c $(h)
652	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
653perl$(O) : perl.c git_version.h $(h)
654	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
655perlio$(O) : perlio.c config.h $(h)
656	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
657perlmain$(O) : perlmain.c $(h)
658	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
659perly$(O) : perly.c $(h)
660	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
661pp$(O) : pp.c $(h)
662	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
663pp_ctl$(O) : pp_ctl.c $(h)
664	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
665pp_hot$(O) : pp_hot.c $(h)
666	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
667pp_pack$(O) : pp_pack.c $(h)
668	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
669pp_sort$(O) : pp_sort.c $(h)
670	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
671pp_sys$(O) : pp_sys.c $(h)
672	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
673reentr$(O) : reentr.c $(h)
674	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
675regcomp$(O) : regcomp.c $(h)
676	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
677regcomp_debug$(O) : regcomp_debug.c $(h)
678	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
679regcomp_invlist$(O) : regcomp_invlist.c $(h)
680	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
681regcomp_study$(O) : regcomp_study.c $(h)
682	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
683regcomp_trie$(O) : regcomp_trie.c $(h)
684	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
685regexec$(O) : regexec.c $(h)
686	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
687run$(O) : run.c $(h)
688	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
689scope$(O) : scope.c $(h)
690	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
691sv$(O) : sv.c $(h)
692	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
693taint$(O) : taint.c $(h)
694	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
695time64$(O) : time64.c $(h)
696	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
697toke$(O) : toke.c $(h)
698	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
699universal$(O) : universal.c $(h)
700	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
701utf8$(O) : utf8.c $(h)
702	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
703util$(O) : util.c $(h)
704	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
705vms$(O) : vms.c $(h)
706	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
707
708# End of automatically generated make dependencies
709.endif # !LINK_ONLY
710
711vmsish.h : [.vms]vmsish.h
712	Copy/Log/NoConfirm [.vms]vmsish.h []
713
714vms.c : [.vms]vms.c
715	Copy/Log/Noconfirm [.vms]vms.c []
716
717$(CRTL) : $(MAKEFILE)
718	@ @[.vms]genopt "$(CRTL)/Write" "|" "$(LIBS1)|$(FULLLIBS2)"
719
720ok : $(utils)
721	$(MINIPERL) lib/perlbug.com -ok -s "(UNINSTALLED)"
722
723okfile : $(utils)
724	$(MINIPERL) lib/perlbug.com -ok -s "(UNINSTALLED)" "-F" perl.ok
725
726nok : $(utils)
727	@ write sys$output " "
728	@ write sys$output " Please type the command:"
729	@ write sys$output " "
730	@ write sys$output "$(MINIPERLQ) lib/perlbug.com -nok -s ""(UNINSTALLED)"""
731
732nokfile : $(utils)
733	@ write sys$output " "
734	@ write sys$output " Please type the command:"
735	@ write sys$output " "
736	@ write sys$output "$(MINIPERLQ) lib/perlbug.com -nok -s ""(UNINSTALLED)"" ""-F"" perl.nok"
737
738cleanlis :
739	- If F$Search("*.Lis").nes."" Then Delete/NoConfirm/Log *.Lis;*
740	- If F$Search("*.CPP").nes."" Then Delete/NoConfirm/Log *.CPP;*
741	- If F$Search("*.Map").nes."" Then Delete/NoConfirm/Log *.Map;*
742
743cleantest :
744        - If F$Search("[.t]Perl$(E)").nes."" Then Delete/NoConfirm/Log [.t]Perl$(E);*
745        - If F$Search("[.t]VMSPIPE.COM").nes."" Then Delete/NoConfirm/Log [.t]VMSPIPE.COM;*
746
747tidy : cleanlis
748	- If F$Search("[...]*.Opt;-1").nes."" Then Purge/NoConfirm/Log [...]*.Opt
749	- If F$Search("[...]*$(O);-1").nes."" Then Purge/NoConfirm/Log [...]*$(O)
750	- If F$Search("[...]*$(E);-1").nes."" Then Purge/NoConfirm/Log [...]*$(E)
751	- If F$Search("config.h;-1").nes."" Then Purge/NoConfirm/Log config.h
752	- If F$Search("config.sh;-1").nes."" Then Purge/NoConfirm/Log config.sh
753	- If F$Search("vmsish.h;-1").nes."" Then Purge/NoConfirm/Log vmsish.h
754	- If F$Search("vms.c;-1")   .nes."" Then Purge/NoConfirm/Log vms.c
755	- If F$Search("perlmain.c;-1")   .nes."" Then Purge/NoConfirm/Log perlmain.c
756	- If F$Search("uudmap.h;-1")   .nes."" Then Purge/NoConfirm/Log uudmap.h
757	- If F$Search("bitcount.h;-1")   .nes."" Then Purge/NoConfirm/Log bitcount.h
758	- If F$Search("mg_data.h;-1")   .nes."" Then Purge/NoConfirm/Log mg_data.h
759	- If F$Search("Perlshr_Gbl*.Mar;-1")   .nes."" Then Purge/NoConfirm/Log Perlshr_Gbl*.Mar
760	- If F$Search("[.ext.Opcode...];-1").nes."" Then Purge/NoConfirm/Log [.ext.Opcode]
761	- If F$Search("[.lib.auto...]*.al;-1").nes."" Then Purge/NoConfirm/Log [.lib.auto...]*.al
762	- If F$Search("[.lib.auto...]autosplit.ix;-1").nes."" Then Purge/NoConfirm/Log [.lib.auto...]autosplit.ix
763	- If F$Search("[.lib]Config.pm;-1").nes."" Then Purge/NoConfirm/Log [.lib]Config.pm
764	- If F$Search("$(ARCHDIR)Config.pm;-1").nes."" Then Purge/NoConfirm/Log $(ARCHDIR)Config.pm
765	- If F$Search("[.lib]Config_heavy.pl;-1").nes."" Then Purge/NoConfirm/Log [.lib]Config_heavy.pl
766	- If F$Search("$(ARCHDIR)Config_heavy.pl;-1").nes."" Then Purge/NoConfirm/Log $(ARCHDIR)Config_heavy.pl
767	- If F$Search("[.lib.VMS]*.*;-1").nes."" Then Purge/NoConfirm/Log [.lib.VMS]*.*
768	- If F$Search("$(ARCHCORE)*.*").nes."" Then Purge/NoConfirm/Log $(ARCHCORE)*.*
769	- If F$Search("[.lib]*.com;-1").nes."" Then Purge/NoConfirm/Log [.lib]*.com
770	- If F$Search("[.pod]*.com;-1").nes."" Then Purge/NoConfirm/Log [.pod]*.com
771	- If F$Search("[.utils]*.com;-1").nes."" Then Purge/NoConfirm/Log [.utils]*.com
772	- If F$Search("[.lib]buildcustomize.pl;-1").nes."" Then Purge/NoConfirm/Log [.lib]buildcustomize.pl
773
774clean : tidy cleantest
775      	- $(MINIPERL) make_ext.pl "MAKE=$(MMS)" "--all" "--target=clean"
776	- If F$Search("*.Opt").nes."" Then Delete/NoConfirm/Log *.Opt;*/Exclude=PerlShr_*.Opt
777	- If F$Search("[...]*$(O);*") .nes."" Then Delete/NoConfirm/Log [...]*$(O);*
778	- If F$Search("vmsish.h").nes."" Then Delete/NoConfirm/Log vmsish.h;*
779	- If F$Search("vms.c")   .nes."" Then Delete/NoConfirm/Log vms.c;*
780	- If F$Search("perlmain.c")   .nes."" Then Delete/NoConfirm/Log perlmain.c;*
781	- If F$Search("perlmini.c")   .nes."" Then Delete/NoConfirm/Log perlmini.c;*
782	- If F$Search("uudmap.h")   .nes."" Then Delete/NoConfirm/Log uudmap.h;*
783	- If F$Search("bitcount.h")   .nes."" Then Delete/NoConfirm/Log bitcount.h;*
784	- If F$Search("mg_data.h")   .nes."" Then Delete/NoConfirm/Log mg_data.h;*
785	- If F$Search("Perlshr_Gbl*.Mar")   .nes."" Then Delete/NoConfirm/Log Perlshr_Gbl*.Mar;*
786	- If F$Search("*.TS").nes."" Then Delete/NoConfirm/Log *.TS;*
787	- If F$Search("[.pod]*.com").nes."" Then Delete/NoConfirm/Log [.pod]*.com;*
788	- If F$Search("[.pod]roffitall").nes."" Then Delete/NoConfirm/Log [.pod]roffitall;*
789	- If F$Search("$(PERLDELTA_CURRENT)").nes."" Then Delete/NoConfirm/Log $(PERLDELTA_CURRENT);*
790	- If F$Search("[.pod]perlapi.pod").nes."" Then Delete/NoConfirm/Log [.pod]perlapi.pod;*
791	- If F$Search("[.pod]perlintern.pod").nes."" Then Delete/NoConfirm/Log [.pod]perlintern.pod;*
792	- If F$Search("[.pod]perlmodlib.pod").nes."" Then Delete/NoConfirm/Log [.pod]perlmodlib.pod;*
793	- If F$Search("[.pod]perltoc.pod").nes."" Then Delete/NoConfirm/Log [.pod]perltoc.pod;*
794	- If F$Search("[.pod]perluniprops.pod").nes."" Then Delete/NoConfirm/Log [.pod]perluniprops.pod;*
795	- @extra_pods CLEAN
796	- If F$Search("[.lib]Config_git.pl").nes."" Then Delete/NoConfirm/Log [.lib]Config_git.pl;*
797	- If F$Search("git_version.h").nes."" Then Delete/NoConfirm/Log git_version.h;*
798
799realclean : clean
800      	- $(MINIPERL) make_ext.pl "MAKE=$(MMS)" "--all" "--target=realclean"
801	- $(MINIPERL) mkppport "--clean"
802	- If F$Search("*$(OLB)").nes."" Then Delete/NoConfirm/Log *$(OLB);*
803	- If F$Search("*.Opt").nes."" Then Delete/NoConfirm/Log *.Opt;*
804	- If F$Search("config.h").nes."" Then Delete/NoConfirm/Log config.h;*
805	- If F$Search("config.sh").nes."" Then Delete/NoConfirm/Log config.sh;*
806	- $(MINIPERL) -e "use File::Path; rmtree(\@ARGV,1,0);" config
807	- $(MINIPERL) -e "use File::Path; rmtree(\@ARGV,1,0);" $(unidatafiles)
808	- $(MINIPERL) -e "use File::Path; rmtree(\@ARGV,1,0);" $(unidatadirs)
809	- If F$Search("Descrip.MMS").nes."" Then Delete/NoConfirm/Log Descrip.MMS;*
810	- If F$Search("extra_pods.Com").nes."" Then Delete/NoConfirm/Log extra_pods.Com;*
811	- If F$Search("extra.pods").nes."" Then Delete/NoConfirm/Log extra.pods;*
812	- $(MINIPERL) -e "use File::Path; rmtree(['[.CXX_REPOSITORY]', 'lib/auto','lib/VMS','lib/$(ARCHNAME)'],1,0);"
813	- If F$Search("*.TS").nes."" Then Delete/NoConfirm/Log *.TS;*
814	- If F$Search("[.lib]Config.pm").nes."" Then Delete/NoConfirm/Log [.lib]Config.pm;*
815	- If F$Search("[.lib]Config_heavy.pl").nes."" Then Delete/NoConfirm/Log [.lib]Config_heavy.pl;*
816	- If F$Search("[.lib]*.com").nes."" Then Delete/NoConfirm/Log [.lib]*.com;*
817	- If F$Search("[.lib...].exists").nes."" Then Delete/NoConfirm/Log [.lib...].exists;*
818	- If F$Search("[.pod]*.com").nes."" Then Delete/NoConfirm/Log [.pod]*.com;*
819	- If F$Search("[.utils]*.com").nes."" Then Delete/NoConfirm/Log [.utils]*.com;*
820	- If F$Search("$(ARCHDIR)Config.pm").nes."" Then Delete/NoConfirm/Log $(ARCHDIR)Config.pm;*
821	- If F$Search("$(ARCHDIR)Config_heavy.pl").nes."" Then Delete/NoConfirm/Log $(ARCHDIR)Config_heavy.pl;*
822	- If F$Search("[.utils]perldoc.com").nes."" Then Delete/NoConfirm/Log [.utils]perldoc.com;*
823	- If F$Search("[.utils]perlivp.com").nes."" Then Delete/NoConfirm/Log [.utils]perlivp.com;*
824	- If F$Search("[...]*$(E)").nes."" Then Delete/NoConfirm/Log [...]*$(E);*
825	- If F$Search("Perl_Setup.Com").nes."" Then Delete/NoConfirm/Log Perl_Setup.Com;*
826	- If F$Search("[.t]rantests.").nes."" Then Delete/NoConfirm/Log [.t]rantests.;*
827	- If F$Search("[.t]test_state.").nes."" Then Delete/NoConfirm/Log [.t]test_state.;*
828	- If F$Search("vmspipe.com").nes."" Then Delete/NoConfirm/Log vmspipe.com;*
829	- If F$Search("[.lib]buildcustomize.pl").nes."" Then Delete/NoConfirm/Log [.lib]buildcustomize.pl;*
830	- If F$Search("[.lib]config.pod").nes."" Then Delete/NoConfirm/Log [.lib]config.pod;*
831
832cleansrc : clean
833	- If F$Search("*.c;-1").nes."" Then Purge/NoConfirm/Log *.c
834	- If F$Search("*.h;-1").nes."" Then Purge/NoConfirm/Log *.h
835	- If F$Search("*.vms;-1").nes."" Then Purge/NoConfirm/Log *.vms
836	- If F$Search("[.vms]$(MAKEFILE);-1").nes."" Then Purge/NoConfirm/Log [.vms]$(MAKEFILE)
837	- If F$Search("[.vms]*.c;-1").nes."" Then Purge/NoConfirm/Log [.vms]*.c
838	- If F$Search("[.vms]*.h;-1").nes."" Then Purge/NoConfirm/Log [.vms]*.h
839	- If F$Search("[.vms]*.pl;-1").nes."" Then Purge/NoConfirm/Log [.vms]*.pl
840	- If F$Search("[.vms]*.vms;-1").nes."" Then Purge/NoConfirm/Log [.vms]*.vms
841	- If F$Search("[.vms...]*.pm;-1").nes."" Then Purge/NoConfirm/Log [.vms...]*.pm
842	- If F$Search("[.vms...]*.xs;-1").nes."" Then Purge/NoConfirm/Log [.vms...]*.xs
843!GROK!THIS!
844