/*
 * Demonstration example of how Unicode can be used to access all
 * characters in a PostScript standard font and more.
 *
 * Markus Kuhn -- Public Domain -- Use and Enjoy!
 *
 * $Id: utf2ps.c,v 1.1 2002-04-28 21:10:41+01 mgk25 Exp mgk25 $
 *
 * Demonstration:
 *
 * make utf2ps
 * ./utf2ps 1 >utf2ps.txt
 * uniset + utf2ps.txt ucs table | ./utf2ps >utf2ps.ps
 * ghostview utf2ps.ps
 *
 * (Get uniset from .)
 *
 * http://www.cl.cam.ac.uk/~mgk25/ucs/utf2ps.c
 * http://www.cl.cam.ac.uk/~mgk25/unicode.html
 */

#include 

/* a pathetic quick & dirty UTF-8 parser (do not reuse!) */
int get_char()
{
  int c;

  do {
    c = getchar();
  } while ((c & 0xc0) == 0x80 && !feof(stdin));
  if (c < 128)
    return c;
  if ((c & 0xe0) == 0xc0) {
    c = (c & 0x1f)