#! /usr/bin/env python

#
# (C) Mizi Research
# distributed under GPL
#
# Author: Hwang, ChiDeok (hwang@mizi.co.kr)
# 2000.03.14
#
# ChangeLog:
# -o option이 있을 경우나 argument로 주어진 파일이
# ps 파일이 아닌 경우 a2ps 를 부르도록 수정
# argument가 안 주어진 경우 stdin에서 읽어드림. (2000/03/16)
# string변환을 postscript language에서 하도록 변경. (2000/03/20)
# string변환을 하고 아직 비여있은 공간을 없앰 (2000/03/23)
# stdin으로부터 온 내용도 필요하면 a2ps로 보냄 (2000/12/28)
# mutt와 함께 쓸 수 있도록 -m옵션을 추가 (2000/01/03)

import string,sys,os

try: 
        from os import tmpnam # python2.0
except:
        def tmpnam():
                return "/tmp/a2ps-h-tmp"

hps = '/Gulim-Medium-KSC-EUC-H'
hbps = '/Gulim-Medium-KSC-EUC-H'
hbops = '/Gulim-Medium-KSC-EUC-H'
hops = '/Gulim-Medium-KSC-EUC-H'

hps = '/Gulim-Regular'
hbps = '/Gulim-Regular'
hbops = '/Gulim-Regular'
hops = '/Gulim-Regular'

def startswith(s, needle):
        if len(needle) > len(s): return 0
        return s[:len(needle)] == needle

def trans_file(filename):
        if type(filename) == type([]):
                lines = filename
        else:
                lines = open(filename).readlines()
        for i in range(len(lines)):
                if startswith(lines[i], '% Check PostScript language '):
                        print show_override
                        print lines[i],
                elif startswith(lines[i], '% Dictionary for ISO-8859-1'):
                        print lines[i],
                        print lines[i+1],
                        print hangul_font
                        lines = lines[i+10:]
                        break
                else:
                        print lines[i],
        for line in lines: print line,

hangul_font = """\
16 dict begin
  /FontName /fCourier def /FontType 0 def
  /WMode 0 def /FMapType 3 def /FontMatrix matrix def
  /Encoding [0 1] def
  /FDepVector [ /Courier findfont %(hps)s findfont ] def
  FontName currentdict
  end
definefont /fCourier exch def

16 dict begin
  /FontName /fCourier-Bold def /FontType 0 def
  /WMode 0 def /FMapType 3 def /FontMatrix matrix def
  /Encoding [0 1] def
  /FDepVector [ /Courier-Bold findfont %(hbps)s findfont ] def
  FontName currentdict
  end
definefont /fCourier-Bold exch def

16 dict begin
  /FontName /fCourier-BoldOblique def /FontType 0 def
  /WMode 0 def /FMapType 3 def /FontMatrix matrix def
  /Encoding [0 1] def
  /FDepVector [ /Courier-BoldOblique findfont %(hbops)s findfont ] def
  FontName currentdict
  end
definefont /fCourier-BoldOblique exch def

16 dict begin
  /FontName /fCourier-Oblique def /FontType 0 def
  /WMode 0 def /FMapType 3 def /FontMatrix matrix def
  /Encoding [0 1] def
  /FDepVector [ /Courier-Oblique findfont %(hops)s findfont ] def
  FontName currentdict
  end
definefont /fCourier-Oblique exch def

16 dict begin
  /FontName /fHelvetica def /FontType 0 def
  /WMode 0 def /FMapType 3 def /FontMatrix matrix def
  /Encoding [0 1] def
  /FDepVector [ /Helvetica findfont %(hps)s findfont ] def
  FontName currentdict
  end
definefont /fHelvetica exch def

16 dict begin
  /FontName /fHelvetica-Bold def /FontType 0 def
  /WMode 0 def /FMapType 3 def /FontMatrix matrix def
  /Encoding [0 1] def
  /FDepVector [ /Helvetica-Bold findfont %(hbps)s findfont ] def
  FontName currentdict
  end
definefont /fHelvetica-Bold exch def

16 dict begin
  /FontName /fTimes-Bold def /FontType 0 def
  /WMode 0 def /FMapType 3 def /FontMatrix matrix def
  /Encoding [0 1] def
  /FDepVector [ /Times-Bold findfont %(hbps)s findfont ] def
  FontName currentdict
  end
definefont /fTimes-Bold exch def

16 dict begin
  /FontName /fTimes-Roman def /FontType 0 def
  /WMode 0 def /FMapType 3 def /FontMatrix matrix def
  /Encoding [0 1] def
  /FDepVector [ /Times-Roman findfont %(hps)s findfont ] def
  FontName currentdict
  end
definefont /fTimes-Roman exch def
""" % locals()

show_override = """\
%  
%%Copyright: (c) 2000, 2001 Chideok Hwang
/han-trans {
        dup length 3 mul string /mystr exch def
        /mylen 0 def
        /in-hangul false def
        { 
                dup 128 gt {
                        in-hangul {
                          % c
                           mystr exch mylen exch put
                           /mylen mylen 1 add def
                        } {
                          /in-hangul true def
                          % 255 1 c 
                          mystr mylen (\\377\\1) putinterval  
                          mystr exch mylen 2 add exch put
                           /mylen mylen 3 add def
                        } ifelse
                } {
                        in-hangul not {
                          % c
                          mystr exch mylen exch put
                           /mylen mylen 1 add def
                        } {
                          /in-hangul false def
                          % 255 0 c
                          mystr mylen (\\377\\0) putinterval  
                          mystr exch mylen 2 add exch put
                           /mylen mylen 3 add def
                        } ifelse
                } ifelse
        } forall
        mystr 0 mylen getinterval
} bind def

/origshow {show} bind def
/show {han-trans origshow} bind def
/origstringwidth {stringwidth} bind def
/stringwidth { han-trans origstringwidth } bind def

%\
"""

def run_a2ps(input_file):
        ps = os.popen('a2ps --output=- ' + input_file)
        return ps.readlines()

def run_a2ps_from_stdin(contents):
        infile_name = tmpnam()
        infile = open(infile_name, 'w')
        infile.write(contents)
        del infile # flush
        a2ps_args = ' --center-title="' + title + '" ' + \
                '--footer="편지 메시지" ' + \
                '--output=- '+ infile_name
        ps = os.popen('a2ps ' + a2ps_args, 'r')
        outlines = ps.readlines()
        os.remove(infile_name)
        return outlines

try:
        i = sys.argv.index('-o')
        sys.stdout = open(sys.argv[i+1], 'w')
        del sys.argv[i:i+2]
except: pass

if '-h' in sys.argv:
        sys.exit(0)

if '-m' in sys.argv:
        # called from mutt 
        i = sys.argv.index('-m')
        del sys.argv[i]
        assert len(sys.argv) == 1
        input_buf = sys.stdin.read()
        magic = input_buf[:5];
        import re
        title = re.search('^Subject:(.*)$', input_buf, re.M).group(1)
        input_file = None
elif len(sys.argv) == 1:
        input_buf = sys.stdin.read()
        magic = input_buf[:5]
        title = 'From Stdin'
        input_file = None
else:
        input_file = sys.argv[1]
        magic = open(input_file).read(5)

if magic != '%!PS-':
        if input_file:
                input_lines = run_a2ps(input_file)
        else:
                input_lines = run_a2ps_from_stdin(input_buf)

trans_file(input_lines)