.key source/a,option
.bra {
.ket }

;$VER: CreateMap 1.2 (10.4.95)

;This shell script creates the .map files for jpegAGA
;Use the CreateMapBig script for big pictures

;Changes in version 1.1
;- file names with spaces are supported
;Changes in version 1.2
;- works now with all versions of djpeg and not just with those
;  using the "two-file" command line style

;USAGE: CreateMap file

;NOTE: You need a directory JPEGTMP: on your hard disk
;      (and enough space on that partition)


FailAt 21

jpegd  -pnm -outfile JPEGTMP:temp.ppm "{source}"

IF ERROR

  delete >NIL: JPEGTMP:temp.ppm
  echo "Fatal error: could not decode JPEG file."
  QUIT 20

ENDIF

jpegppm2aga JPEGTMP:temp.ppm "{source}.map" -jpegAGA {option}

IF ERROR
  delete >NIL: JPEGTMP:temp.ppm
  delete >NIL: "{source}.map"
  echo "Fatal error: could not create map file."
  QUIT 20
ENDIF

delete >NIL: JPEGTMP:temp.ppm