/************************************************************************/
/* © Acorn Computers Ltd, 1992.                                         */
/*                                                                      */
/* This file forms part of an unsupported source release of RISC_OSLib. */
/*                                                                      */
/* It may be freely used to create executable images for saleable       */
/* products but cannot be sold in source form or as an object library   */
/* without the prior written consent of Acorn Computers Ltd.            */
/*                                                                      */
/* If this file is re-distributed (even if modified) it should retain   */
/* this copyright notice.                                               */
/*                                                                      */
/************************************************************************/

/*
 * Title: print.c
 * Purpose: provide printer driver access
 * History: IDJ: 06-Feb-92: prepared for source release
 *
 */


#include "os.h"
#include "print.h"



/*                          Printer Driver SWI's                             */

#define Info          0x00080140
#define SetInfo       0x00080141
#define CheckFeatures 0x00080142
#define PageSize      0x00080143
#define SetPageSize   0x00080144
#define SelectJob     0x00080145
#define CurrentJob    0x00080146
/* FontSWI goes in here - only the font manager may use this */
#define EndJob        0x00080148
#define AbortJob      0x00080149
#define Reset         0x0008014A
#define GiveRectangle 0x0008014B
#define DrawPage      0x0008014C
#define GetRectangle  0x0008014D
#define CancelJob     0x0008014E
#define ScreenDump    0x0008014F
#define SelectIllus   0x00080153

#pragma no_check_stack


os_error * print_info(print_infostr *i)
{ 
   os_regset r;
   os_error *e;

   e = os_swix(Info, &r);

   i->version     = r.r[0] & 0xFFFF;
   i->identity    = r.r[0] >> 16;
   i->xres        = r.r[1];
   i->yres        = r.r[2];
   i->features    = r.r[3];
   i->description = (char*)r.r[4];
   i->xhalf       = r.r[5];
   i->yhalf       = r.r[6];
   i->number      = r.r[7];

   return(e);
}


os_error * print_setinfo(print_infostr *i)
{ 
   os_regset r;

   r.r[1] = i->xres;
   r.r[2] = i->yres;
   r.r[3] = i->features;
   r.r[5] = i->xhalf;
   r.r[6] = i->yhalf;
   r.r[7] = i->number;

   return(os_swix(SetInfo, &r));
}


os_error * print_checkfeatures(int mask,int value)
{ 
   os_regset r;

   r.r[0] = mask;
   r.r[1] = value;

   return(os_swix(CheckFeatures, &r));
}


os_error * print_pagesize(print_pagesizestr *p)
{ 
   os_regset r;
   os_error *e;

   e = os_swix(PageSize, &r);

   p->xsize = r.r[1];
   p->ysize = r.r[2];
   p->bbox.x0 = r.r[3];
   p->bbox.y0 = r.r[4];
   p->bbox.x1 = r.r[5];
   p->bbox.y1 = r.r[6];

   return(e);
}


os_error * print_setpagesize(print_pagesizestr *p)
{ 
   os_regset r;

   r.r[1] = p->xsize;
   r.r[2] = p->ysize;
   r.r[3] = p->bbox.x0;
   r.r[4] = p->bbox.y0;
   r.r[5] = p->bbox.x1;
   r.r[6] = p->bbox.y1;

   return(os_swix(SetPageSize, &r));
}


os_error * print_selectjob(int job,char *title, int *oldjobp)
{ 
   os_regset r;
   os_error *e;

   r.r[0] = job;
   r.r[1] = (int)title;

   e = os_swix(SelectJob,&r);

   *oldjobp = r.r[0];

   return(e);
}


os_error * print_currentjob(int *curjobp)
{ 
   os_regset r;
   os_error *e;

   e = os_swix(CurrentJob,&r);

   *curjobp = r.r[0];

   return(e);
}


os_error * print_endjob(int job)
{ 
   os_regset r;

   r.r[0] = job;
   return os_swix(EndJob,&r);
}


os_error * print_abortjob(int job)
{ 
   os_regset r;

   r.r[0] = job;
   return os_swix(AbortJob,&r);
}


os_error * print_canceljob(int job)
{ 
   os_regset r;

   r.r[0] = job;
   return os_swix(CancelJob,&r);
}


os_error * print_reset(void)
{ 
   os_regset r;
   return os_swix(Reset,&r);
}


os_error *print_giverectangle(int ident, print_box *area,
                              print_transmatstr *trans,
                              print_positionstr *posn, int bgcol)
{ 
   os_regset r;

   r.r[0] = ident;
   r.r[1] = (int)area;
   r.r[2] = (int)trans;
   r.r[3] = (int)posn;
   r.r[4] = bgcol;

   return os_swix(GiveRectangle,&r);
}


os_error * print_drawpage(int copies,int sequ,char *page,
                          print_box *clip,int *more, int *ident)
{ 
   os_regset r;
   os_error *e;

   r.r[0] = copies;     /* number of copies                      */
   r.r[1] = (int)clip;  /* where to return clip rectangle        */
   r.r[2] = sequ;       /* pages sequence number within document */
   r.r[3] = (int)page;  /* 'real' page number as a string        */

   e = os_swix(DrawPage, &r);

   *more = r.r[0];      /* number of copies left to do   */
   *ident = r.r[2];     /* rectangle identification word */

   return(e);
}


os_error * print_getrectangle(print_box *clip, int *more, int *ident)
{ 
   os_regset r;
   os_error *e;

   r.r[1] = (int)clip;  /* where to return clip rectangle        */

   e = os_swix(GetRectangle, &r);

   *more = r.r[0];      /* number of copies left to do   */
   *ident = r.r[2];     /* rectangle identification word */

   return(e);
}


os_error * print_screendump(int job)
{ 
   os_regset r;

   r.r[0] = job;
   return os_swix(ScreenDump,&r);
}


os_error * print_selectillustration(int job, char *title, int *oldjobp)
{ 
   os_regset r;
   os_error  *e;

   r.r[0] = job;
   r.r[1] = (int)title;
   e = os_swix(SelectIllus, &r);

   *oldjobp = r.r[0];
   return (e);
}

#pragma check_stack