From b4cc4f851becc27ccb86229a5924d38b80e1253c Mon Sep 17 00:00:00 2001
From: Thorsten Otto <admin@tho-otto.de>
Date: Sun, 6 Feb 2022 18:15:34 +0100
Subject: [PATCH] rtl-extra: add printer unit for atari

---
 packages/rtl-extra/fpmake.pp            |  2 +-
 packages/rtl-extra/src/atari/printer.pp | 29 +++++++++++++++++++++++++
 2 files changed, 30 insertions(+), 1 deletion(-)
 create mode 100644 packages/rtl-extra/src/atari/printer.pp

diff --git a/packages/rtl-extra/fpmake.pp b/packages/rtl-extra/fpmake.pp
index aba45d9003..4f4f44fc0f 100644
--- a/packages/rtl-extra/fpmake.pp
+++ b/packages/rtl-extra/fpmake.pp
@@ -19,7 +19,7 @@ Const
   IPCBSDs       = [FreeBSD,NetBSD,OpenBSD,DragonFly];
 //  IPCcdeclOSes  = [Darwin,iphonesim,ios];
 
-  PrinterOSes   = [go32v2,msdos,os2,win32,win64]+unixlikes-[beos,haiku,morphos];
+  PrinterOSes   = [go32v2,msdos,os2,win32,win64,atari]+unixlikes-[beos,haiku,morphos];
   SerialOSes    = [android,linux,netbsd,openbsd,win32,win64];
   UComplexOSes  = [atari,embedded,emx,gba,go32v2,msdos,nativent,nds,netware,netwlibc,os2,sinclairql,symbian,watcom,wii,wince,win32,win64,freertos,wasi]+UnixLikes+AllAmigaLikeOSes;
   MatrixOSes    = [atari,embedded,emx,gba,go32v2,msdos,nativent,nds,netware,netwlibc,os2,sinclairql,symbian,watcom,wii,win32,win64,wince,freertos,wasi]+UnixLikes+AllAmigaLikeOSes;
diff --git a/packages/rtl-extra/src/atari/printer.pp b/packages/rtl-extra/src/atari/printer.pp
new file mode 100644
index 0000000000..5d9928b94c
--- /dev/null
+++ b/packages/rtl-extra/src/atari/printer.pp
@@ -0,0 +1,29 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2000 by Florian Klaempfl
+    member of the Free Pascal development team
+
+    Printer unit for BP7/PurePascal compatible RTL
+
+    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.
+
+ **********************************************************************}
+unit printer;
+interface
+
+{$I printerh.inc}
+
+implementation
+
+{$I printer.inc}
+
+begin
+  (* WARNING: has to be checked; do_open('PRN') returns a valid, negative OS handle *)
+  InitPrinter ('PRN');
+  SetPrinterExit;
+end.