freepascal.compiler/packages/extra/amunits/units/prtbase.pas

{
    This file is part of the Free Pascal run time library.

    A file in Amiga system run time library.
    Copyright (c) 1998-2003 by Nils Sjoholm
    member of the Amiga RTL development team.

    See the file COPYING.FPC, included in this distribution,
    for details about the copyright.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

 **********************************************************************}

{
    History:

    Update for AmigaOS 3.0.
    Some const and records added and changes
    was made to a few records.
    31 Jan 2003.

    [email protected] Nils Sjoholm
}

{
        printer device data definition
}

unit prtbase;

INTERFACE

uses exec, parallel, serial, amigados, intuition, timer,utility;


Type

    pDeviceData = ^tDeviceData;
    tDeviceData = record
        dd_Device       : tLibrary;     { standard library node }
        dd_Segment      : Pointer;      { A0 when initialized }
        dd_ExecBase     : Pointer;      { A6 for exec }
        dd_CmdVectors   : Pointer;      { command table for device commands }
        dd_CmdBytes     : Pointer;      { bytes describing which command queue }
        dd_NumCommands  : Word;         { the number of commands supported }
    end;

Const
     IOB_QUEUED = 4;
     IOB_CURRENT = 5;
     IOB_SERVICING = 6;
     IOB_DONE = 7;
     IOF_QUEUED = 1 shl IOB_QUEUED;
     IOF_CURRENT = 1 shl IOB_CURRENT;
     IOF_SERVICING = 1 shl IOB_SERVICING;
     IOF_DONE = 1 shl IOB_DONE;
  { pd_Flags  }
     PB_IOR0 = 0;
     PB_IOR1 = 1;
     PB_IOOPENED = 2;
     PB_EXPUNGED = 7;
     PBF_IOR0 = 1 shl PB_IOR0;
     PBF_IOR1 = 1 shl PB_IOR1;
     PBF_IOOPENDED = 1 shl PB_IOOPENED;
     PBF_EXPUNGED = 1 shl PB_EXPUNGED;
  { du_Flags (actually placed in pd_Unit.mp_Node.ln_Pri)  }
     DUB_STOPPED = 0;
     DUF_STOPPED = 1 shl DUB_STOPPED;

     P_OLDSTKSIZE        = $0800;        { stack size for child task }
     P_STKSIZE           = $1000;
     P_BUFSIZE           = 256;          { size of internal buffers for text i/o }
     P_SAFESIZE          = 128;          { safety margin for text output buffer }

{**************************************************************************}

{
        "struct PrinterData" was a very bad concept in the old V1.0 days
        because it is both: the device and the unit.

        Starting with V44 PrinterData may be duplicated for many Units. But all
        new fields that are specific to the Unit  are now part of the new
        "struct PrinterUnit". Don't touch the private fields!

        A note on the function pointers in these data structure definitions:
        unless otherwise specified, all functions expect that their parameters
        are passed on the *stack* rather than in CPU registers. Every parameter
        must be passed a 32 bit long word, i.e. an "UWORD" will use the same
        stack space as an "ULONG".
}

Type
       pPrinterData = ^tPrinterData;
       tPrinterData = record
            pd_Device : tDeviceData;
            pd_Unit : tMsgPort;
            pd_PrinterSegment : BPTR;
            pd_PrinterType : WORD;
            pd_SegmentData : Pointer;
            pd_PrintBuf : Pointer;
            pd_PWrite : Pointer;
            pd_PBothReady : Pointer;
            pd_ior0 : record
                case longint of
                   0 : ( pd_p0 : tIOExtPar );
                   1 : ( pd_s0 : tIOExtSer );
                end;
            pd_ior1 : record
                case longint of
                   0 : ( pd_p1 : tIOExtPar );
                   1 : ( pd_s1 : tIOExtSer );
                end;
            pd_TIOR : tTimeRequest;
            pd_IORPort : tMsgPort;
            pd_TC : tTask;
            pd_OldStk : array[0..(P_OLDSTKSIZE)-1] of BYTE;
            pd_Flags : BYTE;
            pd_pad : BYTE;
            pd_Preferences : tPreferences;
            pd_PWaitEnabled : BYTE;
            pd_Flags1 : BYTE;
            pd_Stk : array[0..(P_STKSIZE)-1] of BYTE;
         end;

Const

{ Printer Class }

    PPCB_GFX            = 0;            { graphics (bit position) }
    PPCF_GFX            = 1;            { graphics (and/or flag) }
    PPCB_COLOR          = 1;            { color (bit position) }
    PPCF_COLOR          = 2;            { color (and/or flag) }

    PPC_BWALPHA         = 0;            { black&white alphanumerics }
    PPC_BWGFX           = 1;            { black&white graphics }
    PPC_COLORALPHA      = 2;            { color alphanumerics }
    PPC_COLORGFX        = 3;            { color graphics }


{ extended PED structure (V44)  }
    PPCB_EXTENDED = 2;
    PPCF_EXTENDED = $4;

{
        Some printer drivers (PrinterPS) do not support
        strip printing. An application has to print a page
        using a single print request or through clever use
        of the PRD_DUMPRPORTTAGS printing callback hook.
}

{ no strip printing, please  }
       PPCB_NOSTRIP = 3;
       PPCF_NOSTRIP = $8;

{ Color Class }

    PCC_BW              = 1;            { black&white only }
    PCC_YMC             = 2;            { yellow/magenta/cyan only }
    PCC_YMC_BW          = 3;            { yellow/magenta/cyan or black&white }
    PCC_YMCB            = 4;            { yellow/magenta/cyan/black }
    PCC_4COLOR          = 4;            { a flag for YMCB and BGRW }
    PCC_ADDITIVE        = 8;            { not ymcb but blue/green/red/white }
    PCC_WB              = 9;            { black&white only, 0 == BLACK }
    PCC_BGR             = 10;           { blue/green/red }
    PCC_BGR_WB          = 11;           { blue/green/red or black&white }
    PCC_BGRW            = 12;           { blue/green/red/white }

{
        The picture must be scanned once for each color component, as the
        printer can only define one color at a time.  ie. If 'PCC_YMC' then
        first pass sends all 'Y' info to printer, second pass sends all 'M'
        info, and third pass sends all C info to printer.  The CalComp
        PlotMaster is an example of this type of printer.
}

    PCC_MULTI_PASS      = $10;          { see explanation above }

Type

    pPrinterExtendedData = ^tPrinterExtendedData;
    tPrinterExtendedData = record
        ped_PrinterName : STRPTR;         { printer name, null terminated }
        ped_Init        : procedure;      { called after LoadSeg }
        ped_Expunge     : procedure;      { called before UnLoadSeg }
        ped_Open        : function:LONG;  { called at OpenDevice }
        ped_Close       : procedure;      { called at CloseDevice }
        ped_PrinterClass : uByte;         { printer class }
        ped_ColorClass  : uByte;          { color class }
        ped_MaxColumns  : uByte;          { number of print columns available }
        ped_NumCharSets : uByte;          { number of character sets }
        ped_NumRows     : uWord;          { number of 'pins' in print head }
        ped_MaxXDots    : ULONG;          { number of dots max in a raster dump }
        ped_MaxYDots    : ULONG;          { number of dots max in a raster dump }
        ped_XDotsInch   : uWord;          { horizontal dot density }
        ped_YDotsInch   : uWord;          { vertical dot density }
        ped_Commands    : Pointer;        { printer text command table }
        ped_DoSpecial   : function:LONG;  { special command handler }
        ped_Render      : function:LONG;  { raster render function }
        ped_TimeoutSecs : Longint;        { good write timeout }

        { the following only exists if the segment version is >= 33 }

        ped_8BitChars   : Pointer;      { conv. strings for the extended font }
        ped_PrintMode   : Longint;      { set if text printed, otherwise 0 }

        { the following only exists if the segment version is >= 34 }
        { ptr to conversion function for all chars }

        ped_ConvFunc    : Pointer;
        {*************************************************************
         *
         * The following only exists if the segment version is >= 44
         * AND PPCB_EXTENDED is set in ped_PrinterClass:
         *
         ************************************************************}

        { Attributes and features }
        ped_TagList : PTagItem;
        { driver specific preferences:
         *
         *      LONG ped_DoPreferences(struct printerIO * ior,
         *                             LONG command);
         }
        ped_DoPreferences : function :LONG;
        { custom error handling:
         *
         *      VOID ped_CallErrHook(struct printerIO * ior,
         *                           struct Hook * hook);
         }
        ped_CallErrHook : procedure ;
    end;

    { The following tags are used to define more printer driver features  }

    const
       PRTA_Dummy = TAG_USER + $50000;
    {                                                                           }
    { V44 features  }
    { LBOOL  }
       PRTA_8BitGuns = PRTA_Dummy + 1;
    { LBOOL  }
       PRTA_ConvertSource = PRTA_Dummy + 2;
    { LBOOL  }
       PRTA_FloydDithering = PRTA_Dummy + 3;
    { LBOOL  }
       PRTA_AntiAlias = PRTA_Dummy + 4;
    { LBOOL  }
       PRTA_ColorCorrection = PRTA_Dummy + 5;
    { LBOOL  }
       PRTA_NoIO = PRTA_Dummy + 6;
    { LBOOL  }
       PRTA_NewColor = PRTA_Dummy + 7;
    { LONG  }
       PRTA_ColorSize = PRTA_Dummy + 8;
    { LBOOL  }
       PRTA_NoScaling = PRTA_Dummy + 9;
    { User interface  }
    { STRPTR    }
       PRTA_DitherNames = PRTA_Dummy + 20;
    { STRPTR    }
       PRTA_ShadingNames = PRTA_Dummy + 21;
    { LBOOL  }
       PRTA_ColorCorrect = PRTA_Dummy + 22;
    { STRPTR    }
       PRTA_DensityInfo = PRTA_Dummy + 23;
    { Hardware page borders  }
    { LONG, inches/1000  }
       PRTA_LeftBorder = PRTA_Dummy + 30;
    { LONG, inches/1000  }
       PRTA_TopBorder = PRTA_Dummy + 31;
    { LBOOL  }
       PRTA_MixBWColor = PRTA_Dummy + 32;
    { Driver Preferences  }
    { LBOOL  }
       PRTA_Preferences = PRTA_Dummy + 40;
type
    pPrinterSegment = ^tprinterSegment;
    tPrinterSegment = record
        ps_NextSegment  : ULONG;        { (actually a BPTR) }
        ps_runAlert     : ULONG;        { MOVEQ #0,D0 : RTS }
        ps_Version      : Word;         { segment version }
        ps_Revision     : Word;         { segment revision }
        ps_PED          : tPrinterExtendedData;  { printer extended data }
    end;

{**************************************************************************}

{
        Driver specific preferences. This structure is device specific: every
        driver must base its preferences structure on this to allow version
        checking etc.

        The application will read/write this structure as an I/O buffer.
}
      PPrtDriverPreferences = ^tPrtDriverPreferences;
       tPrtDriverPreferences = record
            pdp_Version : UWORD;   { PRIVATE! driver specific version }
            { PRIVATE! driver specific id }
            pdp_PrinterID : array[0..31] of UBYTE;
            pdp_PrefName : array[0..(FILENAME_SIZE - 16)-1] of char;
            { size of this structure }
            pdp_Length : ULONG;
         end;

IMPLEMENTATION

end.