aboutsummaryrefslogtreecommitdiff
path: root/nx-X11/lib/GL/apple/build-dispatch
diff options
context:
space:
mode:
Diffstat (limited to 'nx-X11/lib/GL/apple/build-dispatch')
-rwxr-xr-xnx-X11/lib/GL/apple/build-dispatch101
1 files changed, 0 insertions, 101 deletions
diff --git a/nx-X11/lib/GL/apple/build-dispatch b/nx-X11/lib/GL/apple/build-dispatch
deleted file mode 100755
index 862e10c0d..000000000
--- a/nx-X11/lib/GL/apple/build-dispatch
+++ /dev/null
@@ -1,101 +0,0 @@
-#!/bin/sh
-exec rep "$0" "$@"
-!#
-
-;; build-dispatch
-
-;; $Id: build-dispatch,v 1.2 2004/04/23 18:43:09 eich Exp $
-;; $XFree86: $
-
-;; Copyright (c) 2002 Apple Computer, Inc. All rights reserved.
-
-;; Permission is hereby granted, free of charge, to any person
-;; obtaining a copy of this software and associated documentation files
-;; (the "Software"), to deal in the Software without restriction,
-;; including without limitation the rights to use, copy, modify, merge,
-;; publish, distribute, sublicense, and/or sell copies of the Software,
-;; and to permit persons to whom the Software is furnished to do so,
-;; subject to the following conditions:
-
-;; The above copyright notice and this permission notice shall be
-;; included in all copies or substantial portions of the Software.
-
-;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
-;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
-;; NONINFRINGEMENT. IN NO EVENT SHALL THE THE ABOVE LISTED COPYRIGHT
-;; HOLDER(S) BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
-;; WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-;; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
-;; DEALINGS IN THE SOFTWARE.
-
-;; Except as contained in this notice, the name(s) of the above
-;; copyright holders shall not be used in advertising or otherwise to
-;; promote the sale, use or other dealings in this Software without
-;; prior written authorization.
-
-;; This lisp script is used to build the C dispatch table from the
-;; .defs file. It currently uses my (jsh's) rep interpreter. The
-;; created file is checked into cvs, so it only needs to be run when
-;; the .defs file is touched
-
-(structure ()
-
- (open rep
- rep.regexp)
-
- (defmacro @ args `(format standard-output ,@args))
-
- (define stubs '())
-
- (define (strip-args s)
- (mapcar (lambda (x)
- (and (string-match "[ \t\n*]+([a-zA-Z0-9_]+)$" x)
- (expand-last-match "\\1")))
- (string-split "," s)))
-
- (@ "/* dri_dispatch.h -- built automatically, DO NOT EDIT\n $%s$\n $%s$ */\n\n" "Id" "XFree86: ")
-
- (condition-case nil
- (while t
- (let* ((form (read standard-input))
- (args (unless (string= (nth 3 form) "void")
- (strip-args (nth 3 form))))
- (internal (>= (nth 2 form) 0))
- (alias (nth 4 form))
- (prefix (if (eq (nth 0 form) 'void)
- "_VOID \("
- (format nil " \(%s, " (nth 0 form)))))
- (when (or internal (not alias))
- (@ "DEFUN_%s%s%s,\n (%s),\n (%s)\)\n\n"
- (if internal "LOCAL" "EXTERN")
- prefix
- (nth 1 form)
- (if (string= (nth 3 form) "void")
- (if internal "void *rend" "")
- (if internal (format nil "void *rend, %s" (nth 3 form)) (nth 3 form)))
- (mapconcat identity args ", ")))
- (when alias
- (@ "DEFUN_ALIAS%s%s, %s,\n (%s),\n (%s)\)\n\n"
- prefix (nth 1 form) alias (nth 3 form)
- (mapconcat identity args ", ")))
- (when internal
- (setq stubs (cons form stubs)))))
-
- (end-of-stream))
-
- (setq stubs (nreverse stubs))
-
- (@ "#define INDIRECT_DISPATCH_INIT(d,p) \\\n")
- (@ "do { \\\n")
-
- (setq stubs (sort stubs (lambda (a b)
- (< (nth 2 a) (nth 2 b)))))
-
- (let loop ((rest stubs))
- (when rest
- (let ((form (car rest)))
- (@ " (d)[%s] = (void *) &p ## %s; \\\n" (nth 2 form) (nth 1 form)))
- (loop (cdr rest))))
-
- (@ "} while (0)\n"))