Path: utzoo!mnetor!uunet!lll-winken!lll-lcc!ames!necntc!ncoast!allbery
From: meyer@unizh.UUCP (Urs Meyer)
Newsgroups: comp.sources.misc
Subject: v02i025: awk script to unpack EGAFAST
Message-ID: <7150@ncoast.UUCP>
Date: 30 Jan 88 21:22:10 GMT
Sender: allbery@ncoast.UUCP
Organization: Inst. fuer Informatik, Univ. Zuerich, Switzerland
Lines: 27
Keywords: EGAFAST
Summary: took me less than 6 months to write it...
Approved: allbery@ncoast.UUCP
X-Archive: comp.sources.misc/8801/23

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