aboutsummaryrefslogtreecommitdiff
path: root/nx-X11/lib/GL/apple/build-dispatch
diff options
context:
space:
mode:
authorReinhard Tartler <siretart@tauware.de>2011-10-10 17:43:39 +0200
committerReinhard Tartler <siretart@tauware.de>2011-10-10 17:43:39 +0200
commitf4092abdf94af6a99aff944d6264bc1284e8bdd4 (patch)
tree2ac1c9cc16ceb93edb2c4382c088dac5aeafdf0f /nx-X11/lib/GL/apple/build-dispatch
parenta840692edc9c6d19cd7c057f68e39c7d95eb767d (diff)
downloadnx-libs-f4092abdf94af6a99aff944d6264bc1284e8bdd4.tar.gz
nx-libs-f4092abdf94af6a99aff944d6264bc1284e8bdd4.tar.bz2
nx-libs-f4092abdf94af6a99aff944d6264bc1284e8bdd4.zip
Imported nx-X11-3.1.0-1.tar.gznx-X11/3.1.0-1
Summary: Imported nx-X11-3.1.0-1.tar.gz Keywords: Imported nx-X11-3.1.0-1.tar.gz into Git repository
Diffstat (limited to 'nx-X11/lib/GL/apple/build-dispatch')
-rwxr-xr-xnx-X11/lib/GL/apple/build-dispatch101
1 files changed, 101 insertions, 0 deletions
diff --git a/nx-X11/lib/GL/apple/build-dispatch b/nx-X11/lib/GL/apple/build-dispatch
new file mode 100755
index 000000000..862e10c0d
--- /dev/null
+++ b/nx-X11/lib/GL/apple/build-dispatch
@@ -0,0 +1,101 @@
+#!/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"))