Renamed the package and system to "COM.INFORMATIMAGO.LANGUAGES.CPP".

Pascal J. Bourguignon [2015-07-02 08:54]
Renamed the package and system to "COM.INFORMATIMAGO.LANGUAGES.CPP".
Filename
languages/cpp/built-in-macros.lisp
languages/cpp/c-string-reader.lisp
languages/cpp/com.informatimago.common-lisp.languages.cpp.asd
languages/cpp/com.informatimago.languages.cpp.asd
languages/cpp/cpp-macro.lisp
languages/cpp/cpp.lisp
languages/cpp/expression.lisp
languages/cpp/packages.lisp
languages/cpp/pragma-gcc.lisp
languages/cpp/token.lisp
diff --git a/languages/cpp/built-in-macros.lisp b/languages/cpp/built-in-macros.lisp
index 9070a85..8c5505c 100644
--- a/languages/cpp/built-in-macros.lisp
+++ b/languages/cpp/built-in-macros.lisp
@@ -31,7 +31,7 @@
 ;;;;    You should have received a copy of the GNU Affero General Public License
 ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
 ;;;;**************************************************************************
-(in-package "COM.INFORMATIMAGO.COMMON-LISP.LANGUAGES.CPP")
+(in-package "COM.INFORMATIMAGO.LANGUAGES.CPP")


 (defun string-literal (string)
diff --git a/languages/cpp/c-string-reader.lisp b/languages/cpp/c-string-reader.lisp
index 4da33dd..3951720 100644
--- a/languages/cpp/c-string-reader.lisp
+++ b/languages/cpp/c-string-reader.lisp
@@ -35,7 +35,7 @@
 ;;;;    You should have received a copy of the GNU Affero General Public License
 ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
 ;;;;**************************************************************************
-(in-package "COM.INFORMATIMAGO.COMMON-LISP.LANGUAGES.CPP")
+(in-package "COM.INFORMATIMAGO.LANGUAGES.CPP")


 (defun c-escaped-character-map (escaped-character)
diff --git a/languages/cpp/com.informatimago.common-lisp.languages.cpp.asd b/languages/cpp/com.informatimago.common-lisp.languages.cpp.asd
deleted file mode 100644
index 8f51476..0000000
--- a/languages/cpp/com.informatimago.common-lisp.languages.cpp.asd
+++ /dev/null
@@ -1,70 +0,0 @@
-;;;; -*- mode:lisp;coding:utf-8 -*-
-;;;;**************************************************************************
-;;;;FILE:               com.informatimago.languages.cpp.asd
-;;;;LANGUAGE:           Common-Lisp
-;;;;SYSTEM:             Common-Lisp
-;;;;USER-INTERFACE:     NONE
-;;;;DESCRIPTION
-;;;;
-;;;;    ASD file to load the com.informatimago.languages.cpp library.
-;;;;
-;;;;AUTHORS
-;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
-;;;;MODIFICATIONS
-;;;;    2015-06-28 <PJB> Created.
-;;;;BUGS
-;;;;LEGAL
-;;;;    AGPL3
-;;;;
-;;;;    Copyright Pascal J. Bourguignon 2015 - 2015
-;;;;
-;;;;    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 http://www.gnu.org/licenses/
-;;;;**************************************************************************
-
-(asdf:defsystem "com.informatimago.common-lisp.languages.cpp"
-  ;; system attributes:
-  :description "An implementation of the C Pre Processor with some GNU cpp extensions."
-  :author     "Pascal J. Bourguignon <pjb@informatimago.com>"
-  :maintainer "Pascal J. Bourguignon <pjb@informatimago.com>"
-  :licence "AGPL3"
-  ;; component  attributes:
-  :version "0.0.2"
-  :properties ((#:author-email                   . "pjb@informatimago.com")
-               (#:date                           . "Summer 2015")
-               ((#:albert #:output-dir)          . "/tmp/documentation/com.informatimago.languages.cpp/")
-               ((#:albert #:formats)             . ("docbook"))
-               ((#:albert #:docbook #:template)  . "book")
-               ((#:albert #:docbook #:bgcolor)   . "white")
-               ((#:albert #:docbook #:textcolor) . "black"))
-  #+asdf-unicode :encoding #+asdf-unicode :utf-8
-  :depends-on ("com.informatimago.common-lisp.cesarum"
-               "babel")
-  :components ((:file "packages"        :depends-on  ())
-               (:file "c-string-reader" :depends-on  ("packages"))
-               (:file "cpp-macro"       :depends-on  ("packages"))
-               (:file "token"           :depends-on  ("packages" "cpp-macro"))
-               (:file "built-in-macros" :depends-on  ("packages" "cpp-macro" "token"))
-               (:file "pragma-gcc"      :depends-on  ("packages" "cpp-macro" "token"))
-               (:file "expression"      :depends-on  ("packages"
-                                                      "cpp-macro" "token"
-                                                      "c-string-reader"))
-               (:file "cpp"             :depends-on  ("packages"
-                                                      "cpp-macro" "token"
-                                                      "built-in-macros"
-                                                      "pragma-gcc"
-                                                      "c-string-reader"
-                                                      "expression")))
-  :in-order-to ((asdf:test-op (asdf:test-op "com.informatimago.common-lisp.languages.cpp.test"))))
-
-;;;; THE END ;;;;
diff --git a/languages/cpp/com.informatimago.languages.cpp.asd b/languages/cpp/com.informatimago.languages.cpp.asd
new file mode 100644
index 0000000..28d8f2b
--- /dev/null
+++ b/languages/cpp/com.informatimago.languages.cpp.asd
@@ -0,0 +1,70 @@
+;;;; -*- mode:lisp;coding:utf-8 -*-
+;;;;**************************************************************************
+;;;;FILE:               com.informatimago.languages.cpp.asd
+;;;;LANGUAGE:           Common-Lisp
+;;;;SYSTEM:             Common-Lisp
+;;;;USER-INTERFACE:     NONE
+;;;;DESCRIPTION
+;;;;
+;;;;    ASD file to load the com.informatimago.languages.cpp library.
+;;;;
+;;;;AUTHORS
+;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
+;;;;MODIFICATIONS
+;;;;    2015-06-28 <PJB> Created.
+;;;;BUGS
+;;;;LEGAL
+;;;;    AGPL3
+;;;;
+;;;;    Copyright Pascal J. Bourguignon 2015 - 2015
+;;;;
+;;;;    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 http://www.gnu.org/licenses/
+;;;;**************************************************************************
+
+(asdf:defsystem "com.informatimago.languages.cpp"
+  ;; system attributes:
+  :description "An implementation of the C Pre Processor with some GNU cpp extensions."
+  :author     "Pascal J. Bourguignon <pjb@informatimago.com>"
+  :maintainer "Pascal J. Bourguignon <pjb@informatimago.com>"
+  :licence "AGPL3"
+  ;; component  attributes:
+  :version "0.9.0"
+  :properties ((#:author-email                   . "pjb@informatimago.com")
+               (#:date                           . "Summer 2015")
+               ((#:albert #:output-dir)          . "/tmp/documentation/com.informatimago.languages.cpp/")
+               ((#:albert #:formats)             . ("docbook"))
+               ((#:albert #:docbook #:template)  . "book")
+               ((#:albert #:docbook #:bgcolor)   . "white")
+               ((#:albert #:docbook #:textcolor) . "black"))
+  #+asdf-unicode :encoding #+asdf-unicode :utf-8
+  :depends-on ("com.informatimago.common-lisp.cesarum"
+               "babel")
+  :components ((:file "packages"        :depends-on  ())
+               (:file "c-string-reader" :depends-on  ("packages"))
+               (:file "cpp-macro"       :depends-on  ("packages"))
+               (:file "token"           :depends-on  ("packages" "cpp-macro"))
+               (:file "built-in-macros" :depends-on  ("packages" "cpp-macro" "token"))
+               (:file "pragma-gcc"      :depends-on  ("packages" "cpp-macro" "token"))
+               (:file "expression"      :depends-on  ("packages"
+                                                      "cpp-macro" "token"
+                                                      "c-string-reader"))
+               (:file "cpp"             :depends-on  ("packages"
+                                                      "cpp-macro" "token"
+                                                      "built-in-macros"
+                                                      "pragma-gcc"
+                                                      "c-string-reader"
+                                                      "expression")))
+  :in-order-to ((asdf:test-op (asdf:test-op "com.informatimago.languages.cpp.test"))))
+
+;;;; THE END ;;;;
diff --git a/languages/cpp/cpp-macro.lisp b/languages/cpp/cpp-macro.lisp
index 3bd8906..2cbc51b 100644
--- a/languages/cpp/cpp-macro.lisp
+++ b/languages/cpp/cpp-macro.lisp
@@ -31,7 +31,7 @@
 ;;;;    You should have received a copy of the GNU Affero General Public License
 ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
 ;;;;**************************************************************************
-(in-package "COM.INFORMATIMAGO.COMMON-LISP.LANGUAGES.CPP")
+(in-package "COM.INFORMATIMAGO.LANGUAGES.CPP")

 (defvar *context* nil) ; the current instance of context.

diff --git a/languages/cpp/cpp.lisp b/languages/cpp/cpp.lisp
index 594e8d5..1008078 100644
--- a/languages/cpp/cpp.lisp
+++ b/languages/cpp/cpp.lisp
@@ -31,7 +31,7 @@
 ;;;;    You should have received a copy of the GNU Affero General Public License
 ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
 ;;;;**************************************************************************
-(in-package "COM.INFORMATIMAGO.COMMON-LISP.LANGUAGES.CPP")
+(in-package "COM.INFORMATIMAGO.LANGUAGES.CPP")



@@ -659,7 +659,7 @@ RETURN: the token text; the end position."
                     (new-definition (parse-macro-definition name (context-current-line context))))
                 (when (environment-macro-definedp (context-environment context) (token-text name))
                   (unless (equal old-definition new-definition)
-                    (cpp-warning name "Redefiniting the macro ~A with a different definition" (token-text name))))
+                    (cpp-warning name "Redefining the macro ~A with a different definition" (token-text name))))
                 (setf (environment-macro-definition (context-environment context) (token-text name)) new-definition))
               (cpp-error (first (context-current-line context))
                          "Didn't expect anything after the macro name after #define, not ~S"
@@ -1225,7 +1225,7 @@ Other keys shall be context option keys.
                                      (with-input-from-string (input definition)
                                        (first (read-cpp-tokens input :file-name "-"))))))
                 (when (prefixp "__" name)
-                  (cpp-warning nil "Definiting a system macro named ~S" name))
+                  (cpp-warning nil "Definining a system macro named ~S" name))
                 (setf (environment-macro-definition environment name) new-definition)))
     (with-cpp-error-logging
       (multiple-value-bind (lines context)
diff --git a/languages/cpp/expression.lisp b/languages/cpp/expression.lisp
index 9db9f86..2bacda9 100644
--- a/languages/cpp/expression.lisp
+++ b/languages/cpp/expression.lisp
@@ -31,7 +31,7 @@
 ;;;;    You should have received a copy of the GNU Affero General Public License
 ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
 ;;;;**************************************************************************
-(in-package "COM.INFORMATIMAGO.COMMON-LISP.LANGUAGES.CPP")
+(in-package "COM.INFORMATIMAGO.LANGUAGES.CPP")

 (defun integer-value (integer-token)
   (let* ((integer-text (token-text integer-token))
diff --git a/languages/cpp/packages.lisp b/languages/cpp/packages.lisp
index 873cd13..e54f02c 100644
--- a/languages/cpp/packages.lisp
+++ b/languages/cpp/packages.lisp
@@ -32,7 +32,7 @@
 ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
 ;;;;**************************************************************************

-(defpackage "COM.INFORMATIMAGO.COMMON-LISP.LANGUAGES.CPP"
+(defpackage "COM.INFORMATIMAGO.LANGUAGES.CPP"
   (:use "COMMON-LISP"
         "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.STREAM"
         "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.STRING"
@@ -52,6 +52,7 @@
            "ENVIRONMENT-MACRO-UNDEFINE"
            ;;;
            "READ-CPP-TOKENS"
+           "CPP-E"
            ))

 ;;;; THE END ;;;;
diff --git a/languages/cpp/pragma-gcc.lisp b/languages/cpp/pragma-gcc.lisp
index bcda5de..5d8a934 100644
--- a/languages/cpp/pragma-gcc.lisp
+++ b/languages/cpp/pragma-gcc.lisp
@@ -31,7 +31,7 @@
 ;;;;    You should have received a copy of the GNU Affero General Public License
 ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
 ;;;;**************************************************************************
-(in-package "COM.INFORMATIMAGO.COMMON-LISP.LANGUAGES.CPP")
+(in-package "COM.INFORMATIMAGO.LANGUAGES.CPP")

 ;; #pragma GCC dependency path &rest and-stuff
 ;; #pragma GCC poison &rest identifiers
diff --git a/languages/cpp/token.lisp b/languages/cpp/token.lisp
index 2fdce4e..b258055 100644
--- a/languages/cpp/token.lisp
+++ b/languages/cpp/token.lisp
@@ -31,7 +31,7 @@
 ;;;;    You should have received a copy of the GNU Affero General Public License
 ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
 ;;;;**************************************************************************
-(in-package "COM.INFORMATIMAGO.COMMON-LISP.LANGUAGES.CPP")
+(in-package "COM.INFORMATIMAGO.LANGUAGES.CPP")


 (defclass token ()
ViewGit