|
26
|
1 ;;; w3-script.el --- Scripting support
|
|
|
2 ;; Author: wmperry
|
|
32
|
3 ;; Created: 1997/03/08 01:28:33
|
|
|
4 ;; Version: 1.6
|
|
26
|
5 ;; Keywords: hypermedia, scripting
|
|
|
6
|
|
|
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
8 ;;; Copyright (c) 1997 Free Software Foundation, Inc.
|
|
|
9 ;;;
|
|
|
10 ;;; This file is part of GNU Emacs.
|
|
|
11 ;;;
|
|
|
12 ;;; GNU Emacs is free software; you can redistribute it and/or modify
|
|
|
13 ;;; it under the terms of the GNU General Public License as published by
|
|
|
14 ;;; the Free Software Foundation; either version 2, or (at your option)
|
|
|
15 ;;; any later version.
|
|
|
16 ;;;
|
|
|
17 ;;; GNU Emacs is distributed in the hope that it will be useful,
|
|
|
18 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
19 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
20 ;;; GNU General Public License for more details.
|
|
|
21 ;;;
|
|
|
22 ;;; You should have received a copy of the GNU General Public License
|
|
|
23 ;;; along with GNU Emacs; see the file COPYING. If not, write to the
|
|
|
24 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
25 ;;; Boston, MA 02111-1307, USA.
|
|
|
26 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
27
|
|
|
28 (require 'cl)
|
|
|
29 (require 'w3-elisp)
|
|
|
30 (require 'w3-jscript)
|
|
|
31
|
|
|
32 ;; Event Handlers
|
|
|
33 ;; onclick ; It was clicked on
|
|
|
34 ;; onchange ; Text area was changed
|
|
|
35 ;; onselect ; Menu choice changed
|
|
|
36 ;; onmouseover ; Mouse is over us
|
|
|
37 ;; onmouseout ; Mouse left us
|
|
|
38 ;; onblur ; We lost focus
|
|
|
39 ;; onfocus ; We gained focus
|
|
|
40 ;; onload ; We got loaded
|
|
|
41 ;; onunload ; We got unloaded
|
|
|
42 ;; onreset ; Form got reset
|
|
|
43 ;; onsubmit ; From is about to be submitted
|
|
|
44 ;; onabort ; User cancelled loading an image
|
|
|
45 ;; onerror ; Error occurred loading an image
|
|
|
46
|
|
|
47 (defvar w3-do-scripting t
|
|
|
48 "*Whether to handle client-side scripting or not.
|
|
|
49 If you are ultra-paranoid, set this to `nil'")
|
|
|
50
|
|
|
51 (defvar w3-current-scripting-language 'elisp)
|
|
|
52 (make-variable-buffer-local 'w3-current-scripting-language)
|
|
|
53
|
|
|
54 (put 'form 'w3-event-handlers
|
|
|
55 '(onclick onchange onselect onblur onfocus onreset onsubmit))
|
|
|
56
|
|
|
57 (put 'mouse 'w3-event-handlers '(onmouseover onmouseout))
|
|
|
58
|
|
|
59 (put 'misc 'w3-event-handlers '(onload onunload))
|
|
|
60
|
|
|
61 (put 'all 'w3-event-handlers (append (get 'form 'w3-event-handlers)
|
|
|
62 (get 'mouse 'w3-event-handlers)))
|
|
|
63
|
|
|
64 (defun w3-script-find-event-handlers (pt type)
|
|
|
65 (if w3-do-scripting
|
|
|
66 (let* ((html-stack (get-text-property pt 'html-stack))
|
|
|
67 (args nil)
|
|
|
68 (rval nil)
|
|
|
69 (cur nil))
|
|
|
70 (while html-stack
|
|
|
71 (setq args (cdr (pop html-stack)))
|
|
|
72 (while (setq cur (pop args))
|
|
|
73 (if (memq (car cur) (get type 'w3-event-handlers))
|
|
|
74 (setq rval (cons cur rval)))))
|
|
|
75 (nreverse rval))))
|
|
|
76
|
|
|
77 (defun w3-script-evaluate-form (f)
|
|
|
78 (if w3-do-scripting
|
|
|
79 (case w3-current-scripting-language
|
|
|
80 (elisp
|
|
|
81 (let ((st 0)
|
|
|
82 (form nil)
|
|
|
83 (max (length f)))
|
|
32
|
84 (condition-case ()
|
|
|
85 (while (and (< st max) (setq form (read-from-string f st)))
|
|
|
86 (setq st (cdr form)
|
|
|
87 form (car form))
|
|
|
88 (w3-elisp-safe-eval form))
|
|
|
89 (error nil))))
|
|
26
|
90 (otherwise
|
|
30
|
91 (message "Unimplemented scripting language: %S"
|
|
|
92 w3-current-scripting-language)))))
|
|
26
|
93
|
|
|
94 (provide 'w3-script)
|
