[comp.sources.misc] v02i025: awk script to unpack EGAFAST

meyer@unizh.UUCP (Urs Meyer) (01/31/88)

Comp.sources.misc: Volume 2, Issue 25

Submitted-By: Urz Meyer <meyer@unizh.UUCP>

Archive-Name: unpack-egafast


Comp.sources.misc: Volume 2, Issue 25
Submitted-By: Urz Meyer <meyer@unizh.UUCP>
Archive-Name: unpack-egafast

Here is a small awk script to unpack the EGAFAST Package.
Hope it helps.

Urs Meyer, University of Zuerich,        UUCP:   mcvax!cernvax!unizh!meyer
Computer Science Dept., 8057 Zuerich     CHUNET: meyer@ifi.unizh.ch
Switzerland

---- cut here ----
#! /bin/sh
# usage: unpack filename

awk '
/\*\*\*end file/	{
	print "EOF"
	inside = 0
	}
inside == 1 { print }
/\*\*\*begin file/ {
	fn = substr($3,1,index($3,"*")-1);
	print "echo unpacking", fn
	print "cat << EOF >", fn
	inside = 1
	}
' $1 | sh