workbench/c/Print.c

   1 /*
   2     Copyright © 2012, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 /******************************************************************************
  10
  11     NAME
  12
  13         Print
  14
  15     SYNOPSIS
  16
  17         QUIET/S,UNIT/K/N,FILE/S
  18
  19     LOCATION
  20
  21         C:
  22
  23     FUNCTION
  24
  25         Print a file, using datatypes.library
  26
  27     INPUTS
  28
  29         QUIET    --  Don't indicate when the print is complete
  30
  31         UNIT=n   --  printer.device unit to print to
  32
  33         FILE f   --  Filename to print
  34
  35     RESULT
  36
  37         Unless QUIET, print out when a print job has been completed:
  38
  39         [<filename> printed on printer.device <n>]
  40
  41
  42     NOTES
  43
  44     EXAMPLE
  45
  46     BUGS
  47
  48     SEE ALSO
  49
  50     INTERNALS
  51
  52     HISTORY
  53
  54 ******************************************************************************/
  55
  56 #include <exec/memory.h>
  57 #include <datatypes/datatypesclass.h>
  58 #include <proto/exec.h>
  59 #include <proto/dos.h>
  60 #include <proto/alib.h>
  61 #include <proto/datatypes.h>
  62
  63 #define DEBUG 0
  64 #include <aros/debug.h>
  65
  66 #include <aros/shcommands.h>
  67
  68 AROS_SH3H(Print, 44.0,              "Print a file using DataTypes\n",
  69 AROS_SHAH(BOOL  , ,QUIET  ,/S,FALSE,  "Don't say when the print is complete"),
  70 AROS_SHAH(ULONG *, ,UNIT  ,/N/K,NULL, "Select the printer.device unit (default 0)"),
  71 AROS_SHAH(STRPTR, ,FILE   ,  ,NULL ,  "File to print\n") )
  72 {
  73     AROS_SHCOMMAND_INIT
  74
  75     struct Library *DataTypesBase;
  76     BOOL quiet = SHArg(QUIET);
  77     ULONG unit = (SHArg(UNIT) ? *SHArg(UNIT) : 0);
  78     STRPTR file = SHArg(FILE);
  79
  80     SetIoErr(RETURN_FAIL);
  81
  82     if (file != NULL) {
  83         if ((DataTypesBase = OpenLibrary("datatypes.library", 0))) {
  84             Object *o;
  85             if ((o = NewDTObject(file, TAG_END))) {
  86                 struct dtPrint msg;
  87                 struct MsgPort *mp;
  88                 struct IORequest *io;
  89                 if ((mp = CreateMsgPort())) {
  90                     if ((io = CreateIORequest(mp, sizeof(union printerIO)))) {
  91                         if (0 == OpenDevice("printer.device", unit, io, 0)) {
  92                             msg.MethodID          = DTM_PRINT;
  93                             msg.dtp_GInfo         = NULL;
  94                             msg.dtp_PIO           = (union printerIO *)io;
  95                             msg.dtp_AttrList      = NULL;
  96                             if (0 == DoDTMethodA(o, NULL, NULL, (Msg)&msg)) {
  97                                 if (!quiet)
  98                                     Printf("[%s printed to printer.device %ld]\n", file, unit);
  99                                 SetIoErr(0);
 100                             } else {
 101                                 if (!quiet)
 102                                     Printf("[%s failed to print to printer.device %ld]\n", file, unit);
 103                                 SetIoErr(RETURN_FAIL);
 104                             }
 105                             CloseDevice(io);
 106                         } else {
 107                             Printf("Can't open printer.device %ld\n", unit);
 108                         }
 109                         DeleteIORequest(io);
 110                     } else {
 111                         Printf("Can't create IO request\n");
 112                     }
 113                     DeleteMsgPort(mp);
 114                 } else {
 115                     Printf("Can't create message port\n");
 116                 }
 117                 DisposeDTObject(o);
 118             } else {
 119                 Printf("Can't open %s as a DataType object\n", file);
 120             }
 121             CloseLibrary(DataTypesBase);
 122         } else {
 123             Printf("Can't open datatypes.library\n");
 124         }
 125     } else {
 126         /* No file supplied - quiet success */
 127         SetIoErr(0);
 128     }
 129
 130     return IoErr();
 131
 132     AROS_SHCOMMAND_EXIT
 133 }
 134