#!/bin/sh
# -*- perl -*-
# This code allows us to start perl from our path or an environment variable
# rather than hardcoding a path into the #! line.  It works from sh or csh.
(exit $?0) && eval 'exec ${QPERLQ-perl} -x $0 ${1+"$@"}'
if (! $?QPERLQ) setenv QPERLQ perl
exec $QPERLQ -x $0 $argv:q

#!/usr/local/bin/perl -w
#
# $Id: make_prolog_cpp.pl,v 1.2 2000/02/11 04:29:08 ejb Exp $
# $Source: /home/ejb/source/magiccube4d/CVSroot/src/make_prolog_cpp.pl,v $
# $Author: ejb $
#

require 5.002;
use strict;

my $whoami = ($0 =~ m,([^/\\]*)$,) ? $1 : $0;
#my $dirname = ($0 =~ m,(.*)[/\\][^/\\]+$,) ? $1 : ".";

my $prolog_ps = "prolog.ps";
my $prolog_h = "PSProlog.h";

open(P, "<$prolog_ps") or die "$whoami: can't open $prolog_ps: $!\n";
open(C, ">$prolog_h") or die "$whoami: can't open $prolog_h: $!\n";
print C <<EOF
// This file is automatically generated.  Do not edit.

static char const* psp_before =
EOF
    ;
while (<P>)
{
    chop;
    s/\"/\\\"/g;
    last if m/----- DATA HERE -----/;
    print C "\"$_\\n\"\n";
}
print C <<EOF
;
static char const* psp_after =
EOF
    ;
while (<P>)
{
    chop;
    s/\"/\\\"/g;
    print C "\"$_\\n\"\n";
}
print C ";\n";
close(C);
close(P);