CL3270/device.lisp at main · marcoxa/CL3270 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
;;;; -*- Mode: Lisp -*-

;;;; device.lisp
;;;;
;;;; Device (i.e., a 3270) representation for minimal 3720 data stream
;;;; emulation.
;;;;
;;;; See the file COPYING for copyright and licensing information.
;;;;
;;;; Notes:
;;;;
;;;; Just roughly following Matthew R. Wilson's API.

(in-package "CL3270")

(defstruct (device-info (:conc-name nil))

  "The Device Info Struct.

Minimal information about the device, i.e., the 3270 terminal."

  (rows 0 :type (mod 1024)) ; Let's exaggerate!
  (cols 0 :type (mod 1024))
  (term-type "IBM 3270" :type string)
  (codepage nil :type (or null codepage)) ; FTTB.
  )


(defun alt-dimensions (d)
  (declare (type device-info d))
  (values (rows d) (cols d)))

;;;; end of file -- device.lisp