aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJavier Olaechea <pirata@gmail.com>2020-05-16 23:13:19 -0500
committerJavier Olaechea <pirata@gmail.com>2020-05-16 23:20:50 -0500
commite54216221f5eb96a671cf1e78206cccb61f113ad (patch)
treeb9bb8f65af12f4ac71edb353fa1ccbe1fed3d241
parent246e64a62ac037cef6c1b0bd1b9c37b651045377 (diff)
downloadcl-xcb-e54216221f5eb96a671cf1e78206cccb61f113ad.tar.gz
Add copyright headers to source code files
-rw-r--r--src/auth.lisp21
-rw-r--r--src/connection.lisp19
-rw-r--r--src/parse-display.lisp20
-rw-r--r--src/utils.lisp19
-rw-r--r--src/xcb-proto.lisp19
-rw-r--r--src/xcb/enum.lisp19
-rw-r--r--src/xcb/mop.lisp21
-rw-r--r--src/xcb/types.lisp24
-rw-r--r--src/xcb/utils.lisp22
-rw-r--r--tests/connection.lisp19
-rw-r--r--tests/lang/enum.lisp19
-rw-r--r--tests/lang/mop.lisp21
-rw-r--r--tests/lang/schema.lisp19
-rw-r--r--tests/parse-display.lisp19
-rw-r--r--tests/xcb-proto.lisp19
15 files changed, 291 insertions, 9 deletions
diff --git a/src/auth.lisp b/src/auth.lisp
index 4d8532f..9fda991 100644
--- a/src/auth.lisp
+++ b/src/auth.lisp
@@ -1,3 +1,22 @@
+;; CL-XCB is a Common Lisp implementation of the XCB protocol.
+;; Copyright (C) 2017 Javier Olaechea <pirata@gmail.com>
+
+;; This program is free software: you can redistribute it and/or
+;; modify it under the terms of the GNU Affero General Public License
+;; as published by the Free Software Foundation, either version 3 of
+;; the License, or (at your option) any later version.
+
+;; 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. See the GNU
+;; Affero General Public License for more details.
+
+;; You should have received a copy of the GNU Affero General Public
+;; License along with this program. If not, see
+;; <https://www.gnu.org/licenses/>.
+
+;;; Code:
+
(in-package #:xcb)
(deftype octet () '(unsigned-byte 8))
@@ -29,5 +48,3 @@
(let ((xauth-path (xauth-path)))
(with-open-file (in xauth-path :element-type 'octet)
(%read-xauth in))))
-
-
diff --git a/src/connection.lisp b/src/connection.lisp
index 53ad602..d62b37a 100644
--- a/src/connection.lisp
+++ b/src/connection.lisp
@@ -1,3 +1,22 @@
+;; CL-XCB is a Common Lisp implementation of the XCB protocol.
+;; Copyright (C) 2017 Javier Olaechea <pirata@gmail.com>
+
+;; This program is free software: you can redistribute it and/or
+;; modify it under the terms of the GNU Affero General Public License
+;; as published by the Free Software Foundation, either version 3 of
+;; the License, or (at your option) any later version.
+
+;; 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. See the GNU
+;; Affero General Public License for more details.
+
+;; You should have received a copy of the GNU Affero General Public
+;; License along with this program. If not, see
+;; <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
(in-package #:xcb)
(defparameter +xcb-protocol-major-version+ 11)
diff --git a/src/parse-display.lisp b/src/parse-display.lisp
index fd60278..adaad9a 100644
--- a/src/parse-display.lisp
+++ b/src/parse-display.lisp
@@ -1,5 +1,23 @@
-(in-package #:xcb)
+;; CL-XCB is a Common Lisp implementation of the XCB protocol.
+;; Copyright (C) 2017 Javier Olaechea <pirata@gmail.com>
+
+;; This program is free software: you can redistribute it and/or
+;; modify it under the terms of the GNU Affero General Public License
+;; as published by the Free Software Foundation, either version 3 of
+;; the License, or (at your option) any later version.
+
+;; 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. See the GNU
+;; Affero General Public License for more details.
+;; You should have received a copy of the GNU Affero General Public
+;; License along with this program. If not, see
+;; <https://www.gnu.org/licenses/>.
+
+;;; Code:
+
+(in-package #:xcb)
(defun 1+/zero (num)
"(1+ num) Or zero of NUM is null"
diff --git a/src/utils.lisp b/src/utils.lisp
index 468a15c..0a13eef 100644
--- a/src/utils.lisp
+++ b/src/utils.lisp
@@ -1,3 +1,22 @@
+;; CL-XCB is a Common Lisp implementation of the XCB protocol.
+;; Copyright (C) 2017 Javier Olaechea <pirata@gmail.com>
+
+;; This program is free software: you can redistribute it and/or
+;; modify it under the terms of the GNU Affero General Public License
+;; as published by the Free Software Foundation, either version 3 of
+;; the License, or (at your option) any later version.
+
+;; 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. See the GNU
+;; Affero General Public License for more details.
+
+;; You should have received a copy of the GNU Affero General Public
+;; License along with this program. If not, see
+;; <https://www.gnu.org/licenses/>.
+
+;;; Code:
+
(in-package #:xcb)
;; From AuRead.c
diff --git a/src/xcb-proto.lisp b/src/xcb-proto.lisp
index 7fe2795..d81479d 100644
--- a/src/xcb-proto.lisp
+++ b/src/xcb-proto.lisp
@@ -1,3 +1,22 @@
+;; CL-XCB is a Common Lisp implementation of the XCB protocol.
+;; Copyright (C) 2017 Javier Olaechea <pirata@gmail.com>
+
+;; This program is free software: you can redistribute it and/or
+;; modify it under the terms of the GNU Affero General Public License
+;; as published by the Free Software Foundation, either version 3 of
+;; the License, or (at your option) any later version.
+
+;; 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. See the GNU
+;; Affero General Public License for more details.
+
+;; You should have received a copy of the GNU Affero General Public
+;; License along with this program. If not, see
+;; <https://www.gnu.org/licenses/>.
+
+;;; Code:
+
(in-package #:xcb)
(declaim (special +MSB+
diff --git a/src/xcb/enum.lisp b/src/xcb/enum.lisp
index 53b1e85..bdd76ba 100644
--- a/src/xcb/enum.lisp
+++ b/src/xcb/enum.lisp
@@ -1,3 +1,22 @@
+;; CL-XCB is a Common Lisp implementation of the XCB protocol.
+;; Copyright (C) 2018 Javier Olaechea <pirata@gmail.com>
+
+;; This program is free software: you can redistribute it and/or
+;; modify it under the terms of the GNU Affero General Public License
+;; as published by the Free Software Foundation, either version 3 of
+;; the License, or (at your option) any later version.
+
+;; 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. See the GNU
+;; Affero General Public License for more details.
+
+;; You should have received a copy of the GNU Affero General Public
+;; License along with this program. If not, see
+;; <https://www.gnu.org/licenses/>.
+
+;;; Code:
+
(in-package #:xcb/lang)
(ensure-package "XCB-ENUM")
diff --git a/src/xcb/mop.lisp b/src/xcb/mop.lisp
index 8daa717..c4dd906 100644
--- a/src/xcb/mop.lisp
+++ b/src/xcb/mop.lisp
@@ -1,7 +1,22 @@
-(in-package "XCB/LANG")
+;; CL-XCB is a Common Lisp implementation of the XCB protocol.
+;; Copyright (C) 2018 Javier Olaechea <pirata@gmail.com>
-;;; Commentary:
+;; This program is free software: you can redistribute it and/or
+;; modify it under the terms of the GNU Affero General Public License
+;; as published by the Free Software Foundation, either version 3 of
+;; the License, or (at your option) any later version.
+
+;; 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. See the GNU
+;; Affero General Public License for more details.
+
+;; You should have received a copy of the GNU Affero General Public
+;; License along with this program. If not, see
+;; <https://www.gnu.org/licenses/>.
+;;; Commentary:
+;;
;; This file extends CLOS to support XCB domain model. That is, to
;; understand about requests, replies, events, error, and related
;; concepts such xcb-types, padding, field order, field references,
@@ -41,6 +56,8 @@
;;; Code:
+(in-package "XCB/LANG")
+
(defclass xcb-metaclass (standard-class)
()
(:documentation "The metaclass for XCB 'schemas'."))
diff --git a/src/xcb/types.lisp b/src/xcb/types.lisp
index 33b2b15..42a94a1 100644
--- a/src/xcb/types.lisp
+++ b/src/xcb/types.lisp
@@ -1,16 +1,31 @@
-(in-package "XCB/LANG")
+;; CL-XCB is a Common Lisp implementation of the XCB protocol.
+;; Copyright (C) 2018 Javier Olaechea <pirata@gmail.com>
-;;; Commentary:
+;; This program is free software: you can redistribute it and/or
+;; modify it under the terms of the GNU Affero General Public License
+;; as published by the Free Software Foundation, either version 3 of
+;; the License, or (at your option) any later version.
+
+;; 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. See the GNU
+;; Affero General Public License for more details.
+
+;; You should have received a copy of the GNU Affero General Public
+;; License along with this program. If not, see
+;; <https://www.gnu.org/licenses/>.
+;;; Commentary:
+;;
;; This file provides the infrastructure for defining XCB types. XCB
;; types are used in order to compute the size of the requests to be
;; sent, they are unrelated to CL types.
-
+;;
;; They have two attributes: SIZE and KIND. The SIZE represents the
;; number of 8-bit bytes that a single value of that type has. KIND
;; can either be :FIXED or :PROPORTIONAL/:LIST. List of characters, or
;; 'strings', are an example of the :PROPORTIONAL kind.
-
+;;
;; When defining aliases we don't store the relationship itself, this
;; means that if we update the base type after defining the alias, the
;; alias goes stale. That is OK because aliases are to be defined
@@ -21,6 +36,7 @@
;;; Code:
+(in-package "XCB/LANG")
(defparameter *type-info* (make-hash-table)
"Keeps a record of their")
diff --git a/src/xcb/utils.lisp b/src/xcb/utils.lisp
index c01dcf1..6133679 100644
--- a/src/xcb/utils.lisp
+++ b/src/xcb/utils.lisp
@@ -1,3 +1,25 @@
+;; CL-XCB is a Common Lisp implementation of the XCB protocol.
+;; Copyright (C) 2018 Javier Olaechea <pirata@gmail.com>
+
+;; This program is free software: you can redistribute it and/or
+;; modify it under the terms of the GNU Affero General Public License
+;; as published by the Free Software Foundation, either version 3 of
+;; the License, or (at your option) any later version.
+
+;; 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. See the GNU
+;; Affero General Public License for more details.
+
+;; You should have received a copy of the GNU Affero General Public
+;; License along with this program. If not, see
+;; <https://www.gnu.org/licenses/>.
+
+;;; Code:
+
+
+
+
(in-package "XCB/LANG")
(defun ensure-package (package-name)
diff --git a/tests/connection.lisp b/tests/connection.lisp
index 4be7fba..4f30c55 100644
--- a/tests/connection.lisp
+++ b/tests/connection.lisp
@@ -1,3 +1,22 @@
+;; CL-XCB is a Common Lisp implementation of the XCB protocol.
+;; Copyright (C) 2017 Javier Olaechea <pirata@gmail.com>
+
+;; This program is free software: you can redistribute it and/or
+;; modify it under the terms of the GNU Affero General Public License
+;; as published by the Free Software Foundation, either version 3 of
+;; the License, or (at your option) any later version.
+
+;; 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. See the GNU
+;; Affero General Public License for more details.
+
+;; You should have received a copy of the GNU Affero General Public
+;; License along with this program. If not, see
+;; <https://www.gnu.org/licenses/>.
+
+;;; Code:
+
(in-package #:xcb/tests)
(deftest check-setup-request ()
diff --git a/tests/lang/enum.lisp b/tests/lang/enum.lisp
index ad39b42..debd0b7 100644
--- a/tests/lang/enum.lisp
+++ b/tests/lang/enum.lisp
@@ -1,3 +1,22 @@
+;; CL-XCB is a Common Lisp implementation of the XCB protocol.
+;; Copyright (C) 2019 Javier Olaechea <pirata@gmail.com>
+
+;; This program is free software: you can redistribute it and/or
+;; modify it under the terms of the GNU Affero General Public License
+;; as published by the Free Software Foundation, either version 3 of
+;; the License, or (at your option) any later version.
+
+;; 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. See the GNU
+;; Affero General Public License for more details.
+
+;; You should have received a copy of the GNU Affero General Public
+;; License along with this program. If not, see
+;; <https://www.gnu.org/licenses/>.
+
+;;; Code:
+
(in-package "XCB-LANG/TESTS")
(eval-when (:compile-toplevel :load-toplevel :execute)
diff --git a/tests/lang/mop.lisp b/tests/lang/mop.lisp
index d4af377..9facdd1 100644
--- a/tests/lang/mop.lisp
+++ b/tests/lang/mop.lisp
@@ -1,3 +1,22 @@
+;; CL-XCB is a Common Lisp implementation of the XCB protocol.
+;; Copyright (C) 2019 Javier Olaechea <pirata@gmail.com>
+
+;; This program is free software: you can redistribute it and/or
+;; modify it under the terms of the GNU Affero General Public License
+;; as published by the Free Software Foundation, either version 3 of
+;; the License, or (at your option) any later version.
+
+;; 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. See the GNU
+;; Affero General Public License for more details.
+
+;; You should have received a copy of the GNU Affero General Public
+;; License along with this program. If not, see
+;; <https://www.gnu.org/licenses/>.
+
+;;; Code:
+
(in-package "XCB-LANG/TESTS")
@@ -24,6 +43,7 @@
(mapcar #'sb-mop:slot-definition-name
(sb-mop:class-slots req-class))))))
+
;; 2. Padding slots don't allocate space for a value.
(defclass not-setup-request-2 ()
@@ -49,6 +69,7 @@
(is (= (xcb/lang::compute-request-length req)
3))))
+
;; 3. padding slots error when provided incompatible options.
;; Behaviour tests
diff --git a/tests/lang/schema.lisp b/tests/lang/schema.lisp
index 55e7eff..4ffed11 100644
--- a/tests/lang/schema.lisp
+++ b/tests/lang/schema.lisp
@@ -1,3 +1,22 @@
+;; CL-XCB is a Common Lisp implementation of the XCB protocol.
+;; Copyright (C) 2019 Javier Olaechea <pirata@gmail.com>
+
+;; This program is free software: you can redistribute it and/or
+;; modify it under the terms of the GNU Affero General Public License
+;; as published by the Free Software Foundation, either version 3 of
+;; the License, or (at your option) any later version.
+
+;; 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. See the GNU
+;; Affero General Public License for more details.
+
+;; You should have received a copy of the GNU Affero General Public
+;; License along with this program. If not, see
+;; <https://www.gnu.org/licenses/>.
+
+;;; Code:
+
(in-package "XCB/TESTS")
;; Define a schema with two bitcases and check the length for them.
diff --git a/tests/parse-display.lisp b/tests/parse-display.lisp
index 4815358..e9a11c4 100644
--- a/tests/parse-display.lisp
+++ b/tests/parse-display.lisp
@@ -1,3 +1,22 @@
+;; CL-XCB is a Common Lisp implementation of the XCB protocol.
+;; Copyright (C) 2017 Javier Olaechea <pirata@gmail.com>
+
+;; This program is free software: you can redistribute it and/or
+;; modify it under the terms of the GNU Affero General Public License
+;; as published by the Free Software Foundation, either version 3 of
+;; the License, or (at your option) any later version.
+
+;; 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. See the GNU
+;; Affero General Public License for more details.
+
+;; You should have received a copy of the GNU Affero General Public
+;; License along with this program. If not, see
+;; <https://www.gnu.org/licenses/>.
+
+;;; Code:
+
(in-package #:xcb/tests)
(defun check-parse-display (display-string expected-host expected-display-number
diff --git a/tests/xcb-proto.lisp b/tests/xcb-proto.lisp
index b0fdd5a..0537143 100644
--- a/tests/xcb-proto.lisp
+++ b/tests/xcb-proto.lisp
@@ -1,3 +1,22 @@
+;; CL-XCB is a Common Lisp implementation of the XCB protocol.
+;; Copyright (C) 2017 Javier Olaechea <pirata@gmail.com>
+
+;; This program is free software: you can redistribute it and/or
+;; modify it under the terms of the GNU Affero General Public License
+;; as published by the Free Software Foundation, either version 3 of
+;; the License, or (at your option) any later version.
+
+;; 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. See the GNU
+;; Affero General Public License for more details.
+
+;; You should have received a copy of the GNU Affero General Public
+;; License along with this program. If not, see
+;; <https://www.gnu.org/licenses/>.
+
+;;; Code:
+
(in-package #:xcb/tests)
;; Can't use sb-posix:mkstemp because it creates the file!