DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ T V ┃

⟦8d89c7561⟧ TextFile

    Length: 12688 (0x3190)
    Types: TextFile
    Names: »V«

Derivation

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

--      Copyright (c) 1990 Meridian Software Systems, Inc.      --
with Mac_Types;
use Mac_Types;
with Quickdraw;
with Dialogs;
with Events;
package Printtraps is

    Bdraftloop : constant := 0;
    Bspoolloop : constant := 1;
    Ipfmaxpgs : constant := 128;
    Iprpgfract : constant := 120;
    Iprpgfst : constant := 1;
    Iprpgmax : constant := 9999;
    Iprrelease : constant := 2;
    Iprsavpfil : constant := -1;
    Iioabort : constant := -27;
    Pprglobals : constant := 16#00000944#;
    Buser1loop : constant := 2;
    Buser2loop : constant := 3;
    Fnewrunbit : constant := 2;
    Fhiresok : constant := 3;
    Fweopenedrf : constant := 4;
    Iprabort : constant := 128;
    Iprdevctl : constant := 7;
    Lprreset : constant := 16#00010000#;
    Lprlinefeed : constant := 16#00030000#;
    Lprlfstd : constant := 16#0003FFFF#;
    Lprlfsixth : constant := 16#0003FFFF#;
    Lprpageend : constant := 16#00020000#;
    Lprdocopen : constant := 16#00010000#;
    Lprpageopen : constant := 16#00040000#;
    Lprpageclose : constant := 16#00020000#;
    Lprdocclose : constant := 16#00050000#;
    Ifmgrctl : constant := 8;
    Imscctl : constant := 9;
    Ipvtctl : constant := 10;
    Imemfullerr : constant := -108;
    Iprbitsctl : constant := 4;
    Lscreenbits : constant := 0;
    Lpaintbits : constant := 1;
    Lhiscreenbits : constant := 16#00000002#;
    Lhipaintbits : constant := 16#00000003#;
    Iprioctl : constant := 5;
    Iprevtctl : constant := 6;
    Lprevtall : constant := 16#0002FFFD#;
    Lprevttop : constant := 16#0001FFFD#;
    Iprdrvrref : constant := -3;
    Getrsldataop : constant := 4;
    Setrslop : constant := 5;
    Draftbitsop : constant := 6;
    Nodraftbitsop : constant := 7;
    Getrotnop : constant := 8;
    Nosuchrsl : constant := 1;
    Rgtype1 : constant := 1;
    Sprdrvr : constant Str255 :=
       (Char'Val (6), '.', 'P', 'r', 'i', 'n', 't', others => ' ');

    type Tfeed is (Feedcut, Feedfanfold, Feedmechcut, Feedother);

    type Tscan is (Scantb, Scanbt, Scanlr, Scanrl);

    type Tprport is
        record
            Gport : Quickdraw.Grafport;
            Gprocs : Quickdraw.Qdprocs;
            Lgparam1 : Longint;
            Lgparam2 : Longint;
            Lgparam3 : Longint;
            Lgparam4 : Longint;
            Fourptr : Boolean;
            Fourbits : Boolean;
        end record;
    type Tpprport is access Tprport;

    type Tprinfo is
        record
            Idev : Mac_Types.Integer;
            Ivres : Mac_Types.Integer;
            Ihres : Mac_Types.Integer;
            Rpage : Rect;
        end record;
    type Tpprinfo is access Tprinfo;

    type Tprstl is
        record
            Wdev : Mac_Types.Integer;
            Ipagev : Mac_Types.Integer;
            Ipageh : Mac_Types.Integer;
            Bport : Signedbyte;
            Feed : Tfeed;
        end record;
    type Tpprstl is access Tprstl;

    type Tprxinfo is
        record
            Irowbytes : Mac_Types.Integer;
            Ibandv : Mac_Types.Integer;
            Ibandh : Mac_Types.Integer;
            Idevbytes : Mac_Types.Integer;
            Ibands : Mac_Types.Integer;
            Bpatscale : Signedbyte;
            Bulthick : Signedbyte;
            Buloffset : Signedbyte;
            Bulshadow : Signedbyte;
            Scan : Tscan;
            Bxinfox : Signedbyte;
        end record;
    type Tpprxinfo is access Tprxinfo;

    type Tprjob is
        record
            Ifstpage : Mac_Types.Integer;
            Ilstpage : Mac_Types.Integer;
            Icopies : Mac_Types.Integer;
            Bjdocloop : Signedbyte;
            Ffromusr : Boolean;
            Pidleproc : Procptr;
            Pfilename : Stringptr;
            Ifilevol : Mac_Types.Integer;
            Bfilevers : Signedbyte;
            Bjobx : Signedbyte;
        end record;
    type Tpprjob is access Tprjob;

    type Tprflag1 is
        record
            F15 : Boolean;
            F14 : Boolean;
            F13 : Boolean;
            F12 : Boolean;
            F11 : Boolean;
            F10 : Boolean;
            F9 : Boolean;
            F8 : Boolean;
            F7 : Boolean;
            F6 : Boolean;
            F5 : Boolean;
            F4 : Boolean;
            F3 : Boolean;
            F2 : Boolean;
            Flstpgfst : Boolean;
            Fuserscale : Boolean;
        end record;
    pragma Pack (Tprflag1);

    type Array1_9integer is array (1 .. 9) of Mac_Types.Integer;
    type Tprint is
        record
            Iprversion : Mac_Types.Integer;
            Prinfo : Tprinfo;
            Rpaper : Rect;
            Prstl : Tprstl;
            Prinfopt : Tprinfo;
            Prxinfo : Tprxinfo;
            Prjob : Tprjob;
            Prflag1 : Tprflag1;
            Izoommin : Mac_Types.Integer;
            Izoommax : Mac_Types.Integer;
            Hdocname : Stringhandle;
            Filler1 : Array1_9integer;
        end record;
    type Tpprint is access Tprint;
    type Thprint is access Tpprint;

    type Tprstatus is
        record
            Itotpages : Mac_Types.Integer;
            Icurpage : Mac_Types.Integer;
            Itotcopies : Mac_Types.Integer;
            Icurcopy : Mac_Types.Integer;
            Itotbands : Mac_Types.Integer;
            Icurband : Mac_Types.Integer;
            Fpgdirty : Boolean;
            Fimaging : Boolean;
            Hprint : Thprint;
            Pprport : Tpprport;
            Hpic : Quickdraw.Pichandle;
        end record;
    type Tpprstatus is access Tprstatus;

    type Array0_128longint is array (0 .. 128) of Longint;
    type Tpfpgdir is
        record
            Ipages : Mac_Types.Integer;
            Ipgpos : Array0_128longint;
        end record;
    type Tppfpgdir is access Tpfpgdir;
    type Thpfpgdir is access Tppfpgdir;

    type Tprdlg is
        record
            Dlg : Dialogs.Dialogrecord;
            Pfltrproc : Procptr;
            Pitemproc : Procptr;
            Hprintusr : Thprint;
            Fdoit : Boolean;
            Fdone : Boolean;
            Luser1 : Longint;
            Luser2 : Longint;
            Luser3 : Longint;
            Luser4 : Longint;
        end record;
    type Tpprdlg is access Tprdlg;

    type Tgnldata is
        record
            Iopcode : Mac_Types.Integer;
            Ierror : Mac_Types.Integer;
            Lreserved : Longint;
        end record;

    type Trslrg is
        record
            Imin : Mac_Types.Integer;
            Imax : Mac_Types.Integer;
        end record;

    type Trslrec is
        record
            Ixrsl : Mac_Types.Integer;
            Iyrsl : Mac_Types.Integer;
        end record;

    type Array1_27trslrec is array (1 .. 27) of Trslrec;
    type Tgetrslblk is
        record
            Iopcode : Mac_Types.Integer;
            Ierror : Mac_Types.Integer;
            Lreserved : Longint;
            Irgtype : Mac_Types.Integer;
            Xrslrg : Trslrg;
            Yrslrg : Trslrg;
            Irslreccnt : Mac_Types.Integer;
            Rgrslrec : Array1_27trslrec;
        end record;

    type Tsetrslblk is
        record
            Iopcode : Mac_Types.Integer;
            Ierror : Mac_Types.Integer;
            Lreserved : Longint;
            Hprint : Thprint;
            Ixrsl : Mac_Types.Integer;
            Iyrsl : Mac_Types.Integer;
        end record;

    type Tdftbitsblk is
        record
            Iopcode : Mac_Types.Integer;
            Ierror : Mac_Types.Integer;
            Lreserved : Longint;
            Hprint : Thprint;
        end record;

    type Tgetrotnblk is
        record
            Iopcode : Mac_Types.Integer;
            Ierror : Mac_Types.Integer;
            Lreserved : Longint;
            Hprint : Thprint;
            Flandscape : Boolean;
            Bxtra : Signedbyte;
        end record;

    type Tprect is access Rect;
    type Tpbitmap is access Quickdraw.Bitmap;

    procedure Prpurge;
    pragma Interface (Mpwpascal, Prpurge,
                      "16#2F3C#,16#A800#,16#0000#,16#A8FD#");

    procedure Prnopurge;
    pragma Interface (Mpwpascal, Prnopurge,
                      "16#2F3C#,16#B000#,16#0000#,16#A8FD#");

    function Prdrvrdce return Handle;
    pragma Interface (Mpwpascal, Prdrvrdce,
                      "16#2F3C#,16#9400#,16#0000#,16#A8FD#");

    function Prdrvrvers return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Prdrvrvers,
                      "16#2F3C#,16#9A00#,16#0000#,16#A8FD#");

    procedure Propen;
    pragma Interface (Mpwpascal, Propen, "16#2F3C#,16#C800#,16#0000#,16#A8FD#");

    procedure Prclose;
    pragma Interface (Mpwpascal, Prclose,
                      "16#2F3C#,16#D000#,16#0000#,16#A8FD#");

    procedure Printdefault (Hprint : Thprint);
    pragma Interface (Mpwpascal, Printdefault,
                      "16#2F3C#,16#2004#,16#0480#,16#A8FD#");

    function Prvalidate (Hprint : Thprint) return Boolean;
    pragma Interface (Mpwpascal, Prvalidate,
                      "16#2F3C#,16#5204#,16#0498#,16#A8FD#");

    function Prstldialog (Hprint : Thprint) return Boolean;
    pragma Interface (Mpwpascal, Prstldialog,
                      "16#2F3C#,16#2A04#,16#0484#,16#A8FD#");

    function Prjobdialog (Hprint : Thprint) return Boolean;
    pragma Interface (Mpwpascal, Prjobdialog,
                      "16#2F3C#,16#3204#,16#0488#,16#A8FD#");

    procedure Prjobmerge (Hprintsrc : Thprint; Hprintdst : Thprint);
    pragma Interface (Mpwpascal, Prjobmerge,
                      "16#2F3C#,16#5804#,16#089C#,16#A8FD#");

    function Propendoc (Hprint : Thprint; Pprport : Tpprport; Piobuf : Ptr)
                       return Tpprport;
    pragma Interface (Mpwpascal, Propendoc,
                      "16#2F3C#,16#0400#,16#0C00#,16#A8FD#");

    procedure Prclosedoc (Pprport : Tpprport);
    pragma Interface (Mpwpascal, Prclosedoc,
                      "16#2F3C#,16#0800#,16#0484#,16#A8FD#");

    procedure Propenpage (Pprport : Tpprport; Ppageframe : Tprect);
    pragma Interface (Mpwpascal, Propenpage,
                      "16#2F3C#,16#1000#,16#0808#,16#A8FD#");

    procedure Prclosepage (Pprport : Tpprport);
    pragma Interface (Mpwpascal, Prclosepage,
                      "16#2F3C#,16#1800#,16#040C#,16#A8FD#");

    procedure Prpicfile (Hprint : Thprint;
                         Pprport : Tpprport;
                         Piobuf : Ptr;
                         Pdevbuf : Ptr;
                         Prstatus : in out Tprstatus);
    pragma Interface (Mpwpascal, Prpicfile,
                      "16#2F3C#,16#6005#,16#1480#,16#A8FD#");

    function Prerror return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Prerror,
                      "16#2F3C#,16#BA00#,16#0000#,16#A8FD#");

    procedure Prseterror (Ierr : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Prseterror,
                      "16#2F3C#,16#C000#,16#0200#,16#A8FD#");

    procedure Prgeneral (Pdata : Ptr);
    pragma Interface (Mpwpascal, Prgeneral,
                      "16#2F3C#,16#7007#,16#0480#,16#A8FD#");

    procedure Prdrvropen;
    pragma Interface (Mpwpascal, Prdrvropen,
                      "16#2F3C#,16#8000#,16#0000#,16#A8FD#");

    function Prdlgmain (Hprint : Thprint; Pdlginit : Procptr) return Boolean;
    pragma Interface (Mpwpascal, Prdlgmain,
                      "16#2F3C#,16#4A04#,16#0894#,16#A8FD#");

    procedure Prdrvrclose;
    pragma Interface (Mpwpascal, Prdrvrclose,
                      "16#2F3C#,16#8800#,16#0000#,16#A8FD#");

    function Prjobinit (Hprint : Thprint) return Tpprdlg;
    pragma Interface (Mpwpascal, Prjobinit,
                      "16#2F3C#,16#4404#,16#0410#,16#A8FD#");

    procedure Prctlcall (Iwhichctl : Mac_Types.Integer;
                         Lparam1 : Longint;
                         Lparam2 : Longint;
                         Lparam3 : Longint);
    pragma Interface (Mpwpascal, Prctlcall,
                      "16#2F3C#,16#A000#,16#0E00#,16#A8FD#");

    function Prstlinit (Hprint : Thprint) return Tpprdlg;
    pragma Interface (Mpwpascal, Prstlinit,
                      "16#2F3C#,16#3C04#,16#040C#,16#A8FD#");

    generic
        with function Routine (Hprint : Thprint) return Tpprdlg;
    procedure Userinitroutine;

    generic
        with function Routine (Thedialog : Dialogs.Dialogptr;
                               Theevent : Events.Eventrecord;
                               Itemhit : Varinteger) return Boolean;
    procedure Userfilterroutine;

    generic
        with function Routine (Item : Mac_Types.Integer;
                               Thedialog : Dialogs.Dialogptr)
                              return Mac_Types.Integer;
    procedure Userdialogroutine;

end Printtraps;