src/namespace.lisp

   1 ;;; Copyright 2007-2010 Vladimir Sedach
   2 ;;; Copyright 2008 Travis Cross
   3
   4 ;;; SPDX-License-Identifier: BSD-3-Clause
   5
   6 ;;; Redistribution and use in source and binary forms, with or
   7 ;;; without modification, are permitted provided that the following
   8 ;;; conditions are met:
   9
  10 ;;; 1. Redistributions of source code must retain the above copyright
  11 ;;; notice, this list of conditions and the following disclaimer.
  12
  13 ;;; 2. Redistributions in binary form must reproduce the above
  14 ;;; copyright notice, this list of conditions and the following
  15 ;;; disclaimer in the documentation and/or other materials provided
  16 ;;; with the distribution.
  17
  18 ;;; 3. Neither the name of the copyright holder nor the names of its
  19 ;;; contributors may be used to endorse or promote products derived
  20 ;;; from this software without specific prior written permission.
  21
  22 ;;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
  23 ;;; CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
  24 ;;; INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
  25 ;;; MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  26 ;;; DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS
  27 ;;; BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
  28 ;;; EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
  29 ;;; TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  30 ;;; DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
  31 ;;; ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
  32 ;;; OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  33 ;;; OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  34 ;;; POSSIBILITY OF SUCH DAMAGE.
  35
  36 (in-package #:parenscript)
  37 (in-readtable :parenscript)
  38
  39 (defvar *obfuscated-packages* (make-hash-table))
  40
  41 (defun obfuscate-package (package-designator &optional
  42                           (symbol-map
  43                            (let ((symbol-table (make-hash-table)))
  44                              (lambda (symbol)
  45                                (or #1=(gethash symbol symbol-table)
  46                                    (setf #1# (ps-gensym "G")))))))
  47   (setf (gethash (find-package package-designator) *obfuscated-packages*) symbol-map))
  48
  49 (defun unobfuscate-package (package-designator)
  50   (remhash (find-package package-designator) *obfuscated-packages*))
  51
  52 (defun maybe-obfuscate-symbol (symbol)
  53   (if (aand (symbol-package symbol) (eq :external (nth-value 1 (find-symbol (symbol-name symbol) it))))
  54       symbol
  55       (aif (gethash (symbol-package symbol) *obfuscated-packages*)
  56            (funcall it symbol)
  57            symbol)))
  58
  59 (defvar *package-prefix-table* (make-hash-table))
  60
  61 (defmacro ps-package-prefix (package)
  62   `(gethash (find-package ,package) *package-prefix-table*))
  63
  64 (defun symbol-to-js-string (symbol &optional (mangle-symbol-name? t))
  65   (let* ((symbol-name (symbol-name (maybe-obfuscate-symbol symbol)))
  66          (identifier (if mangle-symbol-name?
  67                          (encode-js-identifier symbol-name)
  68                          symbol-name)))
  69     (aif (ps-package-prefix (symbol-package symbol))
  70          (concatenate 'string it identifier)
  71          identifier)))