ON 20060630@5:10:37 PM at page: http://www.sxlist.com/techref/member/OM-DIS-XEA/index.htm#38898.7157060185 Osvaldo Marques, Jr[OM-DIS-XEA] Code: in a new file at: http://www.sxlist.com/techref/member/OM-DIS-XEA/pcltotxt.htm 
C program to convert a pcl image file to text for editing and to convert the edited text file to a pcl image file again.
ON 20060630@5:16:38 PM at page: http://www.sxlist.com/techref/member/OM-DIS-XEA/pcltotxt.htm#38898.7198842593 Osvaldo Marques, Jr[OM-DIS-XEA] Code: 
/*
 * Filename: pcltool.c
 *
 * Author: Osvaldo Marques Junior <osvaldo@dis-rj.com.br>
 *
 * This program may read a PCL5 image file and creates a text file
 * with the pcl commands that can be edited with a text editor like
 * vi, vim, mcedit, notepad, etc.
 * It also reads the generated and/or edited text file to rebuild the
 * PCL image file.
 *
 * Original commands can be commented to change the behavior of the
 * image to be printed by placing a '#' on the beginning of the
 * line.
 * New commands can be inserted, text position can be edited.
 *
 * This program was originally developed for SCO C compiler almost 15
 * years ago. For the last 10 years, it is running on GNU/Linux with
 * the GCC compiler. I believe it's not too hard to compile it with
 * Borland and MS compilers.
 *
 * For instance, here is an excerpt of a converted pcl file:
 *
 * 0x1b, "E",
 * 0x1b, "&l6D",
 * 0x1b, "&k12H",
 * 0x1b, "&l0O",
 * 0x1b, "&l2A",
 * 0x1b, "&l66P",
 * 0x1b, "&l0L",
 * 0x1b, "&l0E",
 * 0x1b, "*t600R",
 *
 * To compile it, just enter:
 * cc -o pcltool pcltool.c
 */

#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include <ctype.h>

void compose_pcl_file(FILE *in, FILE *out)
{
  int chr
     ,digit
     ;
  char buffer[1024]
      ,*p1
      ;

  while (fgets(buffer, sizeof(buffer), in) != NULL)
  {
    for (p1 = buffer + strlen(buffer); p1 >= buffer; p1--)
    {
      if (*p1 <= ' ')
        *p1 = '\0';
      else
        break;
    }

    for (p1 = buffer; *p1; p1++)
    {
      if (*p1 == '0' && *(p1 + 1) == 'x')
      {
        p1 += 2;
        digit = toupper(*p1) - '0';
        if (digit > 9)
          digit -= 7;
        chr = digit * 16;
        p1++;
        digit = toupper(*p1) - '0';
        if (digit > 9)
          digit -= 7;
        chr += digit;
        fputc(chr, out);
      }
      else
      if (*p1 == '\\' && toupper(*(p1 + 1)) == 'E')
      {
        fputc(0x1b, out);
        p1++;
        continue;
      }
      else
      if (*p1 == '"')
      {
        for (p1++; *p1; p1++)
        {
          if (*p1 == '"' &&
             (*(p1 + 1) == ',' || *(p1 + 1) == '\0') &&
             (*(p1 + 2) == ' ' || *(p1 + 2) == '\0'))
            break;
          switch(*p1)
          {
            case '\\':
              if (*(p1 + 1) == 'n')
              {
                fputc('\n', out);
                p1++;
                break;
              }
              else
              if (toupper(*(p1 + 1)) == 'E')
              {
                fputc(0x1b, out);
                p1++;
                break;
              }
            default:
              fputc(*p1, out);
          }
        }
      }
      else
      if (*p1 == '#')
        break;
    }
  }
}

void unload_parsed_buffer(int buffer_length, char *buffer, FILE *out)
{
  int index
     ,output_active
     ;

  output_active = 0;
  for (index = 0; index < buffer_length; index++)
  {
    if (*(buffer + index) >= ' ' &&
         *(buffer + index) <= 0x7e)
    {
      if (!output_active)
      {
        fprintf(out, "\"");
        output_active = 1;
      }
      fprintf(out, "%c", *(buffer + index));
    }
    else
    {
      if (output_active)
      {
        fprintf(out, "\", ");
        output_active = 0;
      }
      if (*(buffer + index) == 0x0a)
        fprintf(out, "\"\\n\"\n");
      else
        fprintf(out, "0x%02x, ", *(buffer + index));
    }
  }
  if (output_active)
  {
    fprintf(out, "\", ");
    output_active = 0;
  }
  fprintf(out, "\n");
}

void disassemble_pcl_file(FILE *in, FILE *out)
{
  int chr
     ,parm
     ,group
     ,state
     ,input_index
     ,graphic_length
     ,format_control
     ;
  char buffer[4096]
      ,*tmp_inx
      ;
  state =
  input_index = 0;
  chr = getc(in);
  while (!feof(in))
  {
    switch (state)
    {
      case 0:
        if (chr == 0x1b) /* Esc */
        {
          if (input_index) /* There is something left on the buffer */
          {
            unload_parsed_buffer(input_index, buffer, out);
            input_index = 0;
          }
          state = 1;
          *(buffer + input_index++) = chr;
        }
        else
        {
          *(buffer + input_index++) = chr;
          if (chr == '\n' || input_index >= sizeof(buffer))
          {
            unload_parsed_buffer(input_index, buffer, out);
            input_index = 0;
          }
        }
        break;

      case 1: /* PCL Escape sequence */
        *(buffer + input_index++) = chr;
        if ((chr == '9'  && input_index == 1) ||
             chr == '@' ||
             chr == '=' ||
            (chr >= 'A' && chr <= 'Z'))
        {
          unload_parsed_buffer(input_index, buffer, out);
          parm  = *(buffer + 1);
          group = *(buffer + 2);
          if ((parm == '*' && group == 'b' && chr == 'V') ||
              (parm == '&' && group == 'p' && chr == 'X') ||
              (chr == 'W' &&
             ((parm == '*' && (group == 'b' || group == 'c' ||
                               group == 'l' || group == 'v' ||
                               group == 'i')) ||
              (parm == '(' && (group == 's' || group == 'f')) ||
              (parm == ')' &&  group == 's') ||
              (parm == '&' && (group == 'b' || group == 'n')))))
          {
            state = 2;
            format_control = 99;
            graphic_length = 0;
            for (tmp_inx = buffer + input_index - 2;
                 tmp_inx > buffer && *tmp_inx >= '0' && *tmp_inx <= '9';
                 tmp_inx--);
            for (tmp_inx++;
                 *tmp_inx >= '0' && *tmp_inx <= '9';
                 tmp_inx++)
            {
              graphic_length *= 10;
              graphic_length += *tmp_inx - '0';
            }
            if (graphic_length == 0)
              state = 0;
            *(buffer + input_index) = 0;
          }
          else
            state = 0;
          input_index = 0;
        }
        break;
      case 2:
        if (format_control >= 8)
        {
          if (format_control < 99)
            fprintf(out, "\n");
          fprintf(out, "            ");
          format_control = 0;
        }
        format_control++;
        fprintf(out, "0x%02x, ", chr);
        graphic_length--;
        if (graphic_length == 0)
        {
          state = 0;
          fprintf(out, "\n");
        }
        break;
    }
    chr = getc(in);
  }
}

int main(int argc, char **argv)
{
  FILE *in
      ,*out
      ;
  if (argc < 4 ||
     (strcmp(argv[1], "pcltotext") != 0 &&
      strcmp(argv[1], "texttopcl") != 0))
  {
    printf("Usage: %s pcltotext <pcl input file> <parsed output file>\n", argv[0]);
    printf("   or: %s texttopcl <parsed input file> <pcl output file>\n", argv[0]);
    return 1;
  }
  if (strcmp(argv[2], "-") == 0) /* Standard input */
    in = stdin;
  else
  if ((in = fopen(argv[2], "r")) == NULL)
  {
    printf("Couldn't open file \"%s\"\n", argv[1]);
    return 1;
  }
  if (strcmp(argv[3], "-") == 0) /* Standard output */
    out = stdout;
  else
  if ((out = fopen(argv[3], "w")) == NULL)
  {
    printf("Couldn't open output file \"%s\"\n", argv[2]);
    return 1;
  }
  if (strcmp(argv[1], "pcltotext") == 0)
    disassemble_pcl_file(in, out);
  else
    compose_pcl_file(in, out);

  fclose(in);
  fclose(out);

  return 0;
}
ON 20060630@5:35:20 PM at page: http://www.sxlist.com/techref/member/OM-DIS-XEA/pcltotxt.htm# Osvaldo Marques, Jr[OM-DIS-XEA] edited the page. Difference: http://www.sxlist.com/techref/diff.asp?url=H:\techref\member\OM-DIS-XEA\pcltotxt.htm&version=1 ON 20060630@5:37:48 PM at page: http://www.sxlist.com/techref/member/OM-DIS-XEA/pcltotxt.htm# Osvaldo Marques, Jr[OM-DIS-XEA] edited the page. Difference: http://www.sxlist.com/techref/diff.asp?url=H:\techref\member\OM-DIS-XEA\pcltotxt.htm&version=2