hpgs/lib/hpgspjl.c

42 static int pjl_read_line (hpgs_reader *reader, char term, char *buf, size_t buf_size)
46   while ((reader->last_byte = hpgs_getc(reader->in)) != EOF)
48       if (i == 0 && reader->last_byte== HPGS_ESC)
50           hpgs_ungetc(reader->last_byte,reader->in);
54       if (reader->last_byte==term)
56           while ((reader->last_byte = hpgs_getc(reader->in)) != EOF)
57             if (!isspace(reader->last_byte))
59                 hpgs_ungetc(reader->last_byte,reader->in);
71       if (reader->last_byte == '\n' && i==4 && strncmp(buf,"@PJL",4)==0)
77       if (reader->last_byte == '\n') continue;
79       if (reader->last_byte != '\r' && i<buf_size)
81           buf[i] = (i < buf_size-1) ? (char)reader->last_byte : '\0';
99 int hpgs_reader_do_PJL(hpgs_reader *reader)
105   reader->bytes_ignored = 0;
106   reader->eoc = 0;
109   while ((r=pjl_read_line(reader,' ',buf,sizeof(buf))) != EOF)
118           if (hpgs_istream_seek(reader->in,pos))
125               x_size *= reader->pcl_scale/HP_TO_PT;
126               y_size *= reader->pcl_scale/HP_TO_PT;
128               if (reader->verbosity)
131               switch (hpgs_reader_set_plotsize(reader,x_size,y_size))
148       if (pjl_read_line(reader,' ',buf,sizeof(buf)) < 0)
153           if (pjl_read_line(reader,'=',buf,sizeof(buf)) < 0)
158               switch (hpgs_reader_read_pcl_int(reader,&arg,&arg_sign))
172               switch (hpgs_reader_read_pcl_int(reader,&arg,&arg_sign))
186               switch (hpgs_reader_read_pcl_int(reader,&arg,&arg_sign))
196               reader->pcl_scale = 72.0/(double)arg;
197               reader->pcl_raster_res = arg;
202           if (pjl_read_line(reader,'=',buf,sizeof(buf)) < 0)
207               if (pjl_read_line(reader,'\n',buf,sizeof(buf)) < 0)
213                   x_size *= reader->pcl_scale/HP_TO_PT;
214                   y_size *= reader->pcl_scale/HP_TO_PT;
216                   if (reader->verbosity)
219                   switch (hpgs_reader_set_plotsize(reader,x_size,y_size))
236                   if ((reader->last_byte = hpgs_getc(reader->in)) == EOF)
239                   hpgs_ungetc(reader->last_byte,reader->in);
240                   return reader->last_byte == HPGS_ESC ? 0 : 1;
252       if (pjl_read_line(reader,'\n',buf,sizeof(buf)) < 0)
256       if (hpgs_istream_tell(reader->in,&pos))