src/namespace.lisp

   1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   2 ;;; ParenScript namespace system
   3
   4 (in-package :parenscript)
   5
   6 (defun lisp-symbol-to-ps-identifier (symbol context)
   7   (case context
   8     (:special-form (symbol-name symbol))
   9     (:macro symbol)
  10     (otherwise (symbol-name symbol))))
  11
  12 ;;; Symbol obfuscation
  13 (defvar *obfuscation-table* (make-hash-table))
  14
  15 (defun obfuscate-package (package-designator)
  16   (setf (gethash (find-package package-designator) *obfuscation-table*) (make-hash-table)))
  17
  18 (defun unobfuscate-package (package-designator)
  19   (remhash (find-package package-designator) *obfuscation-table*))
  20
  21 (defun maybe-obfuscate-symbol (symbol)
  22   (let ((obfuscated-symbol-table (gethash (symbol-package symbol) *obfuscation-table*)))
  23     (if obfuscated-symbol-table
  24         (or (gethash symbol obfuscated-symbol-table)
  25             (setf (gethash symbol obfuscated-symbol-table) (ps-gensym "G")))
  26         symbol)))
  27
  28 ;;; Interface for printing identifiers
  29
  30 (defvar *package-prefix-table* (make-hash-table))
  31
  32 (defmacro ps-package-prefix (package)
  33   "Place for storing a string to be prefixed to any symbols in the
  34 designated package when translating ParenScript code."
  35   `(gethash (find-package ,package) *package-prefix-table*))
  36
  37 (defun js-translate-symbol (symbol)
  38   (let ((possibly-obfuscated-symbol (maybe-obfuscate-symbol symbol)))
  39     (if (ps-package-prefix (symbol-package symbol))
  40         (format nil "~A~A" (ps-package-prefix (symbol-package symbol)) (symbol-to-js possibly-obfuscated-symbol))
  41         (symbol-to-js possibly-obfuscated-symbol))))