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 )