src/defpack.lisp

   1 ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CL-USER; -*-
   2 ;;; ---------------------------------------------------------------------------
   3 ;;;     Title: All DEFPACKAGE forms for the Closure browser
   4 ;;;   Created: 1999-05-25 22:33
   5 ;;;    Author: Gilbert Baumann <gilbert@base-engineering.com>
   6 ;;;   License: MIT style (see below)
   7 ;;; ---------------------------------------------------------------------------
   8 ;;;  (c) copyright 1999 by Gilbert Baumann
   9
  10 ;;;  Permission is hereby granted, free of charge, to any person obtaining
  11 ;;;  a copy of this software and associated documentation files (the
  12 ;;;  "Software"), to deal in the Software without restriction, including
  13 ;;;  without limitation the rights to use, copy, modify, merge, publish,
  14 ;;;  distribute, sublicense, and/or sell copies of the Software, and to
  15 ;;;  permit persons to whom the Software is furnished to do so, subject to
  16 ;;;  the following conditions:
  17 ;;;
  18 ;;;  The above copyright notice and this permission notice shall be
  19 ;;;  included in all copies or substantial portions of the Software.
  20 ;;;
  21 ;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  22 ;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  23 ;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
  24 ;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
  25 ;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
  26 ;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  27 ;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  28
  29 (defpackage :renderer
  30   (:nicknames :r2)
  31   (:use :glisp :runes)
  32   (:import-from :imagelib
  33                 #:aimage
  34                 #:aimage-width
  35                 #:aimage-height
  36                 #:aimage-data
  37                 #:aimage-alpha-p
  38                 #:aimage-plist
  39                 #:make-aimage
  40                 #:scale-aimage
  41                 #:pnm-stream->aimage)
  42   (:export
  43    #:*tex-mode-p*
  44    #:*hyphenate-p*
  45    #:device-font-ascent
  46    #:device-dpi
  47    #:device-font-descent
  48    #:device-font-underline-position
  49    #:device-font-underline-thickness
  50    #:device-font-has-glyph-p
  51    #:device-font-glyph-width
  52    #:device-realize-font-desc
  53    #:device-font-database
  54    #:scale-font-desc
  55
  56    #:ro/size
  57    #:ro/resize
  58    #:ro/intrinsic-size
  59
  60    #:x11-draw-robj
  61
  62    #:style-sheet-link-p
  63    #:default-style-sheet-link-p
  64    #:alternate-style-sheet-link-p
  65    #:style-sheet-name-equal-p
  66
  67    #:document                           ;[class]
  68    #:document-anchors                   ;[accessor]
  69    #:document-images                    ;[accessor]
  70    #:document-location                  ;[accessor]
  71    #:document-display-list              ;[accessor]
  72    #:document-pt                        ;[accessor]
  73    #:document-links                     ;[accessor]
  74    #:document-selected-author-style     ;[accessor]
  75
  76    #:link                               ;[class]
  77    #:link-title                         ;[accessor]
  78    #:link-rel                           ;[accessor]
  79    #:link-rev                           ;[accessor]
  80    #:link-type                          ;[accessor]
  81    #:link-media                         ;[accessor]
  82    #:link-target                        ;[accessor]
  83
  84    #:anchor                             ;[structure]
  85    #:anchor-name                        ;[accessor]
  86    #:anchor-x                           ;[accessor]
  87    #:anchor-y                           ;[accessor]
  88
  89    #:hyper-link                         ;[structure]
  90    #:make-hyper-link                    ;[constructor]
  91    #:hyper-link-url                     ;[accessor]
  92    #:hyper-link-alt                     ;[accessor]
  93    #:hyper-link-target                  ;[accessor]
  94    ))
  95
  96 (defpackage :ws/x11
  97   (:use :glisp :runes)
  98   (:export
  99    #:aimage->ximage))
 100
 101 (defpackage :gif
 102   (:use :glisp :runes)
 103   (:export #:gif-stream->aimage))
 104
 105 (defpackage :ws/charset
 106   ;;(:nicknames :charset)
 107   ;; Arg! CLISP now defines a package called "charset".
 108   (:use :glisp :runes)
 109   (:export #:CHARSET
 110            #:CHARSET-DECODE
 111            #:CHARSET-ENCODE
 112            #:CHARSET-NAME
 113            #:CHARSET-NICKNAMES
 114            #:FIND-CHARSET
 115            #:REGISTER-CHARSET
 116            #:LIST-ALL-CHARSETS))
 117
 118 ;;zzz(defpackage :ws/estk (:use :glisp))     ;should die
 119
 120 (defpackage :gui
 121   (:use :glisp :runes)
 122
 123   (:import-from #:clim
 124    #:+nowhere+
 125    #:+everywhere+
 126    ;; #:region-intersects-rectangle-p
 127    #:region-union
 128    #:make-rectangle*)
 129
 130   (:export
 131    #:*home-page*
 132    #:*user-wants-images-p*
 133    #:*closure-dpi*
 134    #:*zoom-factor*
 135    #:*debug-submit-p*
 136
 137    #:display-list
 138    #:display-list-p
 139    #:display-list-document
 140    #:display-list-items
 141    #:make-display-list
 142    #:button-event
 143    #:button-press-event
 144    #:button-release-event
 145    #:configure-event
 146    #:enter-event
 147    #:event
 148    #:event-button
 149    #:event-height
 150    #:event-key-code
 151    #:event-key-name
 152    #:event-state
 153    #:event-width
 154    #:event-x
 155    #:event-x-root
 156    #:event-y
 157    #:event-y-root
 158    #:exposure-event
 159    #:input-event
 160    #:key-event
 161    #:key-press-event
 162    #:key-release-event
 163    #:leave-event
 164    #:translate-event
 165    #:map-notify-event
 166    #:motion-event
 167    #:mouse-event
 168    #:pointer-motion-event
 169    #:proxy-device
 170    #:handle-event
 171
 172    #:RO/INPUT
 173    #:RO/INPUT-DESTRUCT
 174    #:RO/INPUT-CONTRIBUTION
 175    #:RO/INPUT-RESET
 176
 177    #:make-device-for-display
 178    #:ro/make-button
 179    #:ro/make-reset-button
 180    #:ro/make-submit-button
 181    #:ro/make-text
 182    #:ro/make-password
 183    #:ro/make-text-area
 184    #:ro/make-check-box
 185    #:ro/make-radio-box
 186    #:ro/input-contribution
 187    #:ro/input-reset
 188
 189    #:make-option-menu-option
 190    #:make-option-menu-option-group
 191    #:make-option-menu
 192    #:option-menu-option-p
 193    #:option-menu-option-label
 194    #:option-menu-option-group-p
 195    #:option-menu-option-group-label
 196    #:option-menu-option-group-children
 197    ))
 198
 199
 200 (defpackage :gtk-gui (:use :glisp :runes))
 201
 202 (defpackage :closure
 203     (:use)
 204     (:export
 205      #:*home-page*
 206      #:*user-wants-images-p*
 207      #:visit
 208      #:start
 209      #:stop))
 210
 211 '(defpackage "WS/POSTSCRIPT"
 212   (:nicknames "WS/PS")
 213   (:use "GLISP")
 214   (:export )
 215   (:import-from "R2"
 216                 "DEVICE-FONT-ASCENT"
 217                 "DEVICE-FONT-DESCENT"
 218                 "DEVICE-FONT-HAS-GLYPH-P"
 219                 "DEVICE-FONT-GLYPH-WIDTH"
 220                 "DEVICE-REALIZE-FONT-DESC"
 221                 "DEVICE-FONT-DATABASE"
 222                 "SCALE-FONT-DESC"
 223                 "MAKE-FONT-DESC"
 224                 "MAKE-FONT-DATABASE"
 225                 "FONT-DATABASE-RELATE"
 226                 "COPY-FONT-DESC"
 227                 "FONT-DESC-SIZE"
 228                 "FONT-DESC-DDP"
 229                 ;; xxx "CSS-FONT-DESC-GLYPH-INFO"
 230                 "GLYPH-INFO-FID"
 231                 "GLYPH-INFO-INDEX"
 232                 "GLYPH-INFO-WIDTH"
 233                 "DEVICE-FONT-UNDERLINE-POSITION"
 234                 "DEVICE-FONT-UNDERLINE-THICKNESS"
 235                 ))
 236
 237 (defpackage :clue-gui2 (:use #||:glue :clue||# :glisp :runes))