Archive-Unzip-Burst

 view release on metacpan or  search on metacpan

unzip-6.0/bzip2/descrbz2.mms  view on Meta::CPAN


!!!!!!!!!!!!!!!!!! here starts the bzip2 specific part !!!!!!!!!!!

DEFAULT default :	CHK_DESTDIR $(OLBBZ2)
	@	!	Do nothing.

CLEAN.COM clean.com :
	@ open/write tmp $(MMS$TARGET)
	@ write tmp "$!"
	@ write tmp "$!	Clean.com --	procedure to delete files. It always returns success"
	@ write tmp "$!			status despite any error or warnings. Also it extracts"
	@ write tmp "$!			filename from MMS ""module=file"" format."
	@ write tmp "$!"
	@ write tmp "$ on control_y then goto ctly"
	@ write tmp "$ if p1.eqs."""" then exit 1"
	@ write tmp "$ i = -1"
	@ write tmp "$scan_list:"
	@ write tmp "$	i = i+1"
	@ write tmp "$	item = f$elem(i,"","",p1)"
	@ write tmp "$	if item.eqs."""" then goto scan_list"
	@ write tmp "$	if item.eqs."","" then goto done		! End of list"
	@ write tmp "$	item = f$edit(item,""trim"")		! Clean of blanks"
	@ write tmp "$	wild = f$elem(1,""="",item)"
	@ write tmp "$	show sym wild"
	@ write tmp "$	if wild.eqs.""="" then wild = f$elem(0,""="",item)"
	@ write tmp "$	vers = f$parse(wild,,,""version"",""syntax_only"")"
	@ write tmp "$	if vers.eqs."";"" then wild = wild - "";"" + "";*"""
	@ write tmp "$scan:"
	@ write tmp "$		f = f$search(wild)"
	@ write tmp "$		if f.eqs."""" then goto scan_list"
	@ write tmp "$		on error then goto err"
	@ write tmp "$		on warning then goto warn"
	@ write tmp "$		delete/log 'f'"
	@ write tmp "$warn:"
	@ write tmp "$err:"
	@ write tmp "$		goto scan"
	@ write tmp "$done:"
	@ write tmp "$ctly:"
	@ write tmp "$	exit 1"
	@ close tmp

CLEAN clean : clean.com
	@clean "$(OBJBZ2LIB)"
	@clean "$(OLBBZ2)"
	@- delete/noconfirm/nolog clean.com;*
        @- if ("$(DEST).dir" .nes. "") then -
	   if (f$search("$(DEST).dir") .nes. "") then -
	    set protect=w:d $(DEST).dir;*
        @- if ("$(DEST).dir" .nes. "") then -
	   if (f$search("$(DEST).dir") .nes. "") then -
	    delete/noconfirm $(DEST).dir;*

CHK_DESTDIR chk_destdir :
	@ If ("$(DEST)" .NES. "") Then -
	   If "''F$Search("$(DEST).DIR;1")'" .EQS. "" Then -
	    Create /directory $(DSTDIR)

$(OLBBZ2)	: $(OBJBZ2LIB)
	If "''F$Search("$(MMS$TARGET)")'" .EQS. "" Then $(LIBR)/Create $(MMS$TARGET)
	$(LIBR)$(LIBRFLAGS) $(MMS$TARGET) $(MMS$CHANGED_LIST)
	@ write sys$output "$(MMS$TARGET) updated."

$(OBJBZ2LIB)	: $(BZIP2_H)

$(DSTDIR)blocksort$(O)	: $(SRCDIR)blocksort.c
$(DSTDIR)huffman$(O)	: $(SRCDIR)huffman.c
$(DSTDIR)crctable$(O)	: $(SRCDIR)crctable.c
$(DSTDIR)randtable$(O)	: $(SRCDIR)randtable.c
$(DSTDIR)compress$(O)	: $(SRCDIR)compress.c
$(DSTDIR)decompress$(O)	: $(SRCDIR)decompress.c
$(DSTDIR)bzlib$(O)	: $(SRCDIR)bzlib.c



( run in 0.920 second using v1.01-cache-2.11-cpan-0fb53d1c279 )