This file is indexed.

/usr/share/common-lisp/source/mcclim/system-opengl.lisp is in cl-mcclim 0.9.6.dfsg.cvs20100315-1.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
;;; -*- Mode: Lisp; Package: User -*-

;;;  (c) copyright 1998,1999,2000 by Michael McDonald (mikemac@mikemac.com)
;;;  (c) copyright 2000 by 
;;;           Robert Strandh (strandh@labri.u-bordeaux.fr)
;;;  (c) copyright 2001 by Julien Boninfnate (boninfan@emi.u-bordeaux.fr)

;;; This library is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU Library General Public
;;; License as published by the Free Software Foundation; either
;;; version 2 of the License, or (at your option) any later version.
;;;
;;; This library 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
;;; Library General Public License for more details.
;;;
;;; You should have received a copy of the GNU Library General Public
;;; License along with this library; if not, write to the 
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 
;;; Boston, MA  02111-1307  USA.

(in-package :common-lisp-user)

#+excl(require :loop)

(defparameter *clim-directory* (directory-namestring *load-truename*))

#+cmu
(progn
  (unless (fboundp 'stream-read-char)
    (unless (ignore-errors (ext:search-list "gray-streams:"))
      (setf (ext:search-list "gray-streams:")
	'("target:pcl/" "library:subsystems/")))
    (load "gray-streams:gray-streams-library"))
  #+nil
  (load (merge-pathnames "patch-cmu.lisp" *clim-directory*))

  #-mk-defsystem
  (load "library:subsystems/defsystem"))

(pushnew :CLIM *features*)

#+mk-defsystem (use-package "MK")

(defsystem :clim #-mk-defsystem ()
  #+mk-defsystem :source-pathname #+mk-defsystem *clim-directory*
  #+mk-defsystem :source-extension #+mk-defsystem "lisp"
  #+mk-defsystem :components
  (:serial

   ;; First possible patches
   #+cmu       "lisp-dep/fix-cmu"

   "package"

   "decls"

   #.(or
      #+(and :cmu :mp (not :pthread))  "lisp-dep/mp-cmu"
      #+excl                           "lisp-dep/mp-acl"
      #| fall back |#                  "lisp-dep/mp-nil")
   "utils"
   "defresource"
   "setf-star"
   
   "design"
   "X11-colors"
   ;; "brectangle"
   "coordinates"
   "transforms"
   "regions"
   "sheets"
   "pixmap"
   "ports"
   "grafts"
   "medium"
   "output"
   "input"
   "events"
   "repaint"
   "graphics"
   "stream-output"
   "recording"
   "stream-input"
   "presentations"
   "commands"
   "frames"
   "panes"
;   "exports"
   "gadgets"
   "menu"
   "table-formatting"
   "postscript-medium"
   ))
   
(defsystem :clim-opengl #-mk-defsystem ()
  #+mk-defsystem :source-pathname #+mk-defsystem *clim-directory*
  #+mk-defsystem :source-extension #+mk-defsystem "lisp"
  #+mk-defsystem :depends-on #+mk-defsystem (:clim)
  #+mk-defsystem :components
  (:serial
   #-mk-defsystem :clim
   "opengl/opengl-x-frame-manager"
   "opengl/opengl-frame-manager"
   "opengl/opengl-x-port-before"
   "opengl/opengl-port"
   "opengl/opengl-x-port-after"
   "opengl/opengl-medium"
   "opengl/opengl-x-graft"
   ))

 
(defsystem :clim-examples #-mk-defsystem ()
  #+mk-defsystem :source-pathname #+mk-defsystem *clim-directory*
  #+mk-defsystem :source-extension #+mk-defsystem "lisp"
  #+mk-defsystem :depends-on #+mk-defsystem (:clim-opengl)
  #+mk-defsystem :components
  (:serial
   #-mk-defsystem :clim-clx
   "examples/calculator"
   "examples/colorslider"
   "examples/menutest"
   "examples/address-book"
   "examples/traffic-lights"
   "examples/clim-fig"
   "examples/postscript-test"
   "examples/transformations-test"
   ))