#!/bin/csh -f
# --- Copyright University of Sussex 1996. All rights reserved. ----------
# File:             C.mips/src/asm
# Purpose:          Assembles .a files from POPC
# Author:           Rob Duncan, May 29 1990 (see revisions)
# Related Files:    C.mips/src/patch

# This command must be run from $popsrc

set FLAGS
set GNUM=0
if ("`uname -r -s`" =~ IRIX*\ 6*) set FLAGS=-32
while ("$1" =~ -*)
	switch ("$1")
	case -G:
		set GNUM=$2
		shift; shift
		breaksw
	default:
		set FLAGS=($FLAGS $1)
		shift
		breaksw
	endsw
end
set FLAGS=($FLAGS -G $GNUM)
foreach f ($argv)
	echo $f
	as $FLAGS -o $f:r.o $f
	./patch $FLAGS $f:r.o $f
end

# --- Revision History ---------------------------------------------------
# --- Robert Duncan, Aug 29 1996 -- added -32 option for IRIX 6
# --- Robert John Duncan, Nov  2 1994 -- added -G 0 as default option
# --- Robert John Duncan, Mar 18 1994 -- improved argument processing
# --- Robert John Duncan, Nov 13 1991 -- added -f flag to /bin/csh
