diff options
Diffstat (limited to 'nx-X11/lib/GL/apple/build-dispatch')
| -rwxr-xr-x | nx-X11/lib/GL/apple/build-dispatch | 101 |
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")) |