Print xbm to NEC PC-PR150 printer program

[Takanori Oshiro]

前回投稿したプログラムはコピーモードで描画されるので間延びしてpdfファイ
ルなどを印刷すると一枚に入り切れなかったのですが今度の版はネイティブモー
ドで描画するので少し小さいですが一枚の紙に入ります
データの送信も８ドット列印字から２４ドット列印字にしました
これでしばらく使ってみようと思います
大城貴紀
---
#include <stdio.h>
#include <stdlib.h>
#include <fcntl.h>
#include <sys/ioctl.h>
#include <dev/ppbus/ppi.h>
#include <dev/ppbus/ppbconf.h>
#include <unistd.h>

#define WAIT 1000000 /* adjust this with your cpu speed */

void ppout(int,unsigned char);

int main(int argc, char *argv[]){
FILE *fp;
char tmp1[256],tmp2[256],c;
int x,y,i,n,m,j,k,l;
int *data;
int raster[3000][3000];
int fd;
unsigned char b;
char *p;

if((fp=fopen(*++argv,"r"))==NULL){
printf("can't open %s\n",*argv);
return 1;
}
fscanf(fp,"%s %s %d",tmp1,tmp2,&x);
fscanf(fp,"%s %s %d",tmp1,tmp2,&y);
while((c=getc(fp))!='\n')
;
if(x%8){
n=(x/8+1)*y;
}else{
n=(x/8)*y;
}

data = (int *)malloc(n * sizeof(int));

for(i=0;i<n-1;i++){
j=0;
while((c=getc(fp)) !=',' ){
tmp1[j++]=c;
}
j++;
tmp1[j]=c;
j=0;
while(tmp1[j++]!='x')
;
tmp2[0]='0';
tmp2[1]='x';
tmp2[2]=tmp1[j];
tmp2[3]=tmp1[j+1];
tmp2[4]='\0';
sscanf(tmp2,"%x",&m);
*data = m;
data++;
}
j=0;
while((c=getc(fp))!='}'){
tmp1[j++]=c;
}
j++;
tmp1[j]=c;
j=0;
while(tmp1[j++] != 'x')
;
tmp2[0]='0';
tmp2[1]='x';
tmp2[2]=tmp1[j];
tmp2[3]=tmp1[j+1];
tmp2[4]='\0';
sscanf(tmp2,"%x",&m);
*data = m;

data -= n-1;
if(x%8){
k=x/8+1;
}else{
k=x/8;
}
for(i=0;i<y;i++){
for(j=0;j<k;j++){
n=*data & 001;
raster[j*8][i]=n;
n=*data & 002;
n = n>>1;
raster[j*8+1][i]=n;
n=*data & 004;
n = n>>2;
raster[j*8+2][i]=n;
n=*data & 010;
n= n>>3;
raster[j*8+3][i]=n;
n=*data & 020;
n= n>>4;
raster[j*8+4][i]=n;
n=*data & 040;
n=n>>5;
raster[j*8+5][i]=n;
n=*data & 0100;
n=n>>6;
raster[j*8+6][i]=n;
n=*data & 0200;
n=n>>7;
raster[j*8+7][i]=n;
data++;
}
}

fd = open("/dev/ppi0",O_RDWR,0600);

if(x<10){
sprintf(tmp1,"000%d",x);
}else if(x<100){
sprintf(tmp1,"00%d",x);
}else if(x<1000){
sprintf(tmp1,"0%d",x);
}else{
sprintf(tmp1,"%d",x);
}

p = tmp1;

b = 0x1b;
ioctl(fd,PPISDATA,&b);
ioctl(fd,PPIGCTRL,&b);
b |= STROBE;
ioctl(fd,PPISCTRL,&b);
for(i=0;i<WAIT;i++)
;
b &= ~STROBE;
ioctl(fd,PPISCTRL,&b);
for(i=0;i<WAIT;i++)
;
b = 'T';
ioctl(fd,PPISDATA,&b);
ioctl(fd,PPIGCTRL,&b);
b |= STROBE;
ioctl(fd,PPISCTRL,&b);
for(i=0;i<WAIT;i++)
;
b &= ~STROBE;
ioctl(fd,PPISCTRL,&b);
for(i=0;i<WAIT;i++)
;
b = '1';
ioctl(fd,PPISDATA,&b);
ioctl(fd,PPIGCTRL,&b);
b |= STROBE;
ioctl(fd,PPISCTRL,&b);
for(i=0;i<WAIT;i++)
;
b &= ~STROBE;
ioctl(fd,PPISCTRL,&b);
for(i=0;i<WAIT;i++)
;
b = '8';
ioctl(fd,PPISDATA,&b);
ioctl(fd,PPIGCTRL,&b);
b |= STROBE;
ioctl(fd,PPISCTRL,&b);
for(i=0;i<WAIT;i++)
;
b &= ~STROBE;
ioctl(fd,PPISCTRL,&b);
for(i=0;i<WAIT;i++)
;

if(y%24){
k=y/24+1;
}else{
k=y/24;
}

for(i=0;i<k;i++){
b = 0x1b;
ioctl(fd,PPISDATA,&b);
ioctl(fd,PPIGCTRL,&b);
b |= STROBE;
ioctl(fd,PPISCTRL,&b);
for(j=0;j<WAIT;j++)
;
b &= ~STROBE;
ioctl(fd,PPISCTRL,&b);
for(j=0;j<WAIT;j++)
;
b = 'J';
ioctl(fd,PPISDATA,&b);
ioctl(fd,PPIGCTRL,&b);
b |= STROBE;
ioctl(fd,PPISCTRL,&b);
for(j=0;j<WAIT;j++)
;
b &= ~STROBE;
ioctl(fd,PPISCTRL,&b);
for(j=0;j<WAIT;j++)
;
for(l=0;l<4;l++){
b=*p++;
ioctl(fd,PPISDATA,&b);
ioctl(fd,PPIGCTRL,&b);
b |= STROBE;
ioctl(fd,PPISCTRL,&b);
for(j=0;j<WAIT;j++)
;
b &= ~STROBE;
ioctl(fd,PPISCTRL,&b);
for(j=0;j<WAIT;j++)
;
}
p-=4;
for(j=0;j<x;j++){
n=0;
n += raster[j][i*24];
n += raster[j][i*24+1] * 2;
n += raster[j][i*24+2] *4;
n += raster[j][i*24+3] *8;
n += raster[j][i*24+4] *16;
n+= raster[j][i*24+5] *32;
n += raster[j][i*24+6] *64;
n += raster[j][i*24+7] *128;
b = (unsigned char)n;
ppout(fd,b);
n=0;
n += raster[j][i*24+8];
n += raster[j][i*24+9] *2;
n += raster[j][i*24 +10]*4;
n += raster[j][i*24 +11]*8;
n += raster[j][i*24 +12]*16;
n += raster[j][i*24+13]*31;
n += raster[j][i*24 +14]*64;
n += raster[j][i*24 +15]*128;
b = (unsigned char)n;
ppout(fd,b);
n=0;
n += raster[j][i*24+16];
n += raster[j][i*24+17]*2;
n += raster[j][i*24+18]*4;
n += raster[j][i*24+19]*8;
n += raster[j][i*24+20]*16;
n += raster[j][i*24+21]*32;
n += raster[j][i*24+22]*64;
n += raster[j][i*24+23]*128;
b = (unsigned char)n;
ppout(fd,b);
}
b = 0x0d;
ioctl(fd,PPISDATA,&b);
ioctl(fd,PPIGCTRL,&b);
b |= STROBE;
ioctl(fd,PPISCTRL,&b);
for(l=0;l<WAIT;l++)
;
b &= ~STROBE;
ioctl(fd,PPISCTRL,&b);
for(l=0;l<WAIT;l++)
;
b = 0x0a;
ioctl(fd,PPISDATA,&b);
ioctl(fd,PPIGCTRL,&b);
b |= STROBE;
ioctl(fd,PPISCTRL,&b);
for(l=0;l<WAIT;l++)
;
b &= ~STROBE;
ioctl(fd,PPISCTRL,&b);
for(l=0;l<WAIT;l++)
;
for(l=0;l<100000000;l++)
;
}

close(fd);
free(data);
fclose(fp);
return 0;
}

void ppout(int fd, unsigned char b){
unsigned char val;
int i;

do{
ioctl(fd,PPIGSTATUS,&val);
val &=nACK;
}while(val != 0x40);

val = b;
ioctl(fd,PPISDATA,&val);
ioctl(fd,PPIGCTRL,&val);
val |= STROBE;
ioctl(fd,PPISCTRL,&val);
for(i=0;i<WAIT;i++)
;
val &= ~STROBE;
ioctl(fd,PPISCTRL,&val);
for(i=0;i<WAIT;i++)
;
}