Mercurial > hg > xemacs-beta

comparison lisp/w3/dsssl.el @ 165:5a88923fcbfe r20-3b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b9
author cvs
date Mon, 13 Aug 2007 09:44:42 +0200
parents 34a5b81f86ba
children
comparison
equal deleted inserted replaced
164:4e0740e5aab2 165:5a88923fcbfe
1 ;;; dsssl.el --- DSSSL parser 1 ;;; dsssl.el --- DSSSL parser
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/04/18 15:44:22 3 ;; Created: 1997/06/10 06:01:32
4 ;; Version: 1.14 4 ;; Version: 1.15
5 ;; Keywords: 5 ;; Keywords:
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1996, 1997 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1996, 1997 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1997 by Free Software Foundation, Inc. 9 ;;; Copyright (c) 1997 by Free Software Foundation, Inc.
41 number\? real\? integer\? = < > <= >= + * - / max min abs quotient 41 number\? real\? integer\? = < > <= >= + * - / max min abs quotient
42 modulo remainder floor ceiling truncate round number->string 42 modulo remainder floor ceiling truncate round number->string
43 string->number char\? char=\? char-property string\? string 43 string->number char\? char=\? char-property string\? string
44 string-length string-ref string=\? substring string-append 44 string-length string-ref string=\? substring string-append
45 procedure\? apply external-procedure make time time->string quote 45 procedure\? apply external-procedure make time time->string quote
46 char-downcase indentity error let) 46 char-downcase identity error let)
47 "A list of all the builtin DSSSL functions that we support.") 47 "A list of all the builtin DSSSL functions that we support.")
48 48
49 (defsubst dsssl-check-args (args expected) 49 (defsubst dsssl-check-args (args expected)
50 ;; Signal an error if we don't have the expected # of arguments 50 ;; Signal an error if we don't have the expected # of arguments
51 (or (= (length args) expected) 51 (or (= (length args) expected)