1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
;;;
;;; WML:javascript - Standard Tags for Javascript Support
;;;
;;; Package from WML <URL:http://www.engelschall.com/sw/wml/>
;;; Derived from wml::std::tags - Standard Tags
;;; Copyright (c) 1997 Ralf S. Engelschall, All Rights Reserved.
;;;
;;;
;;; Support-Tag for protected Client-Side JavaScript
;;;
<define-tag javascript endtag=required whitespace=delete>
<preserve defer src version language type />
<set-var defer=* />
<set-var %attributes />
<defvar language "JavaScript<get-var version />" />
<defvar type "text/javascript" />
<script type="<get-var type />" language="<get-var language />"<dnl />
<ifeq "<get-var src />" "" "" " src=\"<get-var src />\"" /><dnl />
<ifeq "<get-var defer />" "*" "" " defer" />>
<group "
<!-- Hiding the code
<subst-in-string "%Ubody" "^\n*(.*[^\n])\n*$" "\\1" singleline=true />
// done hiding -->
" />
</script>
<restore defer src version language type />
</define-tag>
##EOF##
__END__
=head1 NAME
WML:javascript - Standard Tags for Javascript Support
=head1 SYNOPSIS
<use name="WML:javascript" />
<javascript [defer]> ... </javascript>
=head1 DESCRIPTION
This include file defines some standard support tags one needs all the time.
=head1 AUTHOR
Ralf S. Engelschall
rse@engelschall.com
www.engelschall.com
=cut
|
