#!/bin/sh

JOURNAL_SCRIPT=$1

psh << -eof-
			% Feed PostScript code to PostScript shell.
			% Start journaling and run JOURNAL_SCRIPT.
/ClassJournal where {	% Journaling package is loaded?
    pop
}{
    (NeWS/journal.ps) (r) file cvx exec		% Load journaler code.
} ifelse

/journaler /new ClassJournal send def		% Instantiate journaler.

(${JOURNAL_SCRIPT})	/setjournalfile		journaler send
2			/setspeed		journaler send
/None			/setsynchronization	journaler send
newprocessgroup

/play						journaler send

/journaler null def

-eof-
