File: pwp.pl

package info (click to toggle)
swi-prolog 8.0.2%2Bdfsg-3%2Bdeb10u1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 72,036 kB
  • sloc: ansic: 349,612; perl: 306,654; java: 5,208; cpp: 4,436; sh: 3,042; ruby: 1,594; yacc: 845; makefile: 136; xml: 82; sed: 12; sql: 6
file content (705 lines) | stat: -rw-r--r-- 24,905 bytes parent folder | download
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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
:- module(pwp,
          [ pwp_files/2,                % +FileIn, +FileOut
            pwp_stream/3,               % +StreamIn, +StreamOut, +Context
            pwp_xml/3                   % +DomIn, -DOMOut, +Context
          ]).

/** <module> Prolog Well-formed Pages

PWP is an approach to server-side scripting using Prolog
which is based on a simple key principle:

    - The source form of a PWP should be WELL-FORMED XML

Especially when generating XML rather than HTML, this is such an
obvious thing to do.  We have many kinds of XML checking tools.

    - We can tell whether an XML document is WELL FORMED (all the
      punctuation is right, all tags balance) using practically
      any decent parser, including SWI Prolog's 'sgml'.

    - If we can write a Document Type Description then we can check
      that a document is VALID using tools like Open SP (formerly
      James Clark's SP) or SWI Prolog's 'sgml'.  This does not
      guarantee that the output will be valid, but it does catch
      a lot of errors very early.

    - If we can write an XML Schema then we can check that a
      document is schema-valid.  (SWI Prolog's 'sgml' does not
      yet come with a schema validator, but who knows what the
      future holds?).

    - Since an XML document is just a data structure, we can use
      any checking tool that we can write in Prolog, IF the input
      is well-formed so that we can load a template as a Prolog
      data structure.

Having decided that the input should be well formed, that means
*|NO NEW SYNTAX|*

None of the weird and horrible <% ... %> or whatever not-quite-XML
stuff you see in other template systems, making checking so very hard
(and therefore, making errors so distressingly common).

That in turns means that PWP "markup" must be based on special
elements or special attributes.  The fact that an XML parser must
allow undeclared attributes on any element even when validating,
but must not allow undeclared elements, suggests doing this through
attributes.  In particular, one should be able to take an existing
DTD, such as an XHTML DTD, and just use that without modification.
So the design reduces to

    - Allow dynamic data selection, insertion, and transformation
    just using a small number of extra attributes.

This description uses the following name space:

    ==
    xmlns:pwp='http://www.cs.otago.ac.nz/staffpriv/ok/pwp.pl'
    ==

The attributes are

    - pwp:ask = Query
    - pwp:use = Term
    - pwp:how = text | xml
    - pwp:tag = QName or '-'
    - pwp:att = '' | 'one non-alphanumeric character'

Here's what they mean.  Each element is expanded in the context
of a set of variable bindings.  After expansion, if the tag is
not mapped to '-', all attributes in the pwp: namespace are removed
and the children elements are recursively expanded.

    * pwp:ask = Query

        * Query is a Prolog goal.  For each solution of Query, the element
        is further processed with the new variables of Query added to
        the context.

        * If Query is not a well formed Prolog goal, or if execution of
        Query throws an exception, page transformation comes to a complete
        halt and no page is generated.

    * pwp:use = Term
    * pwp:how = text | xml | text-file | xml-file | pwp-file

        Term is a Prolog term; variables in Term are bound by the context.
        An empty Term is regarded as a missing value for this attribute.
        The Prolog variable CONTEXT refers to the entire context, a list
        of Name = Value, where Name is a Prolog atom holding the name of        the context variable and Value is an arbitrary Prolog term.

        - If pwp:how is text,
            The value of Term is used to define a sequence of characters.

            - A number produces the same characters that write/1 would.
            - An atom produces the same characters that write/1 would.
            - A string produces the same characters that write/1 would.
            - A list of character codes produces those characters.

            - The following terms produce the same sequence of characters
              that the corresponding goal would have sent to the current
              output stream:

              - write(Datum)
              - writeq(Datum)
              - write_canonical(Datum)
              - print(Datum)
              - print(Datum)
              - format(Format)
              - format(Format, Arguments)

            - A singleton list [X] defines the characters that X defines.
            - Any other term F(T1,...,Tn) defines the characters that T1
              defines, followed by the characters that T2 defines, ...,
              followed by the characters that Tn defines.

        - If pwp:how is xml,
            The value of Term must be an XML term as defined in the
            SGML2PL documentation or a list of such terms.  A single
            term is taken as if it had been [Term].  The resulting
            list of terms replaces the children of the current element
            and will not be further processed.

        - If pwp:how is text-file,
            The value of Term is used to define a sequence of characters.
            That sequence of characters is used as a file name.
            The file is read as a sequence of characters, and that
            sequence used as character data.

        - If pwp:how is xml-file,
            The value of Term is used to define a sequence of characters.
            That sequence of characters is used as a file name.
            The file is loaded as XML, and the sequence of XML items thus
            obtained used.  This means that PWP provides XML inclusion
            without depending on the parser to support XInclude.

        - If pwp:how is pwp-file,
            Like xml-file, but PWP attributes are evaluated and processed.
            The current context variables are passed to the PWP processor.

        The default value for pwp:how is text.

    * pwp:tag = QName or '-'

        If pwp:tag is missing or the value is empty, the current element
        appears in the output (after further processing) with its present
        tag.  If pwp:tag is a QName, the current element appears (...)
        with that as its tag.  That option is most useful in DTDs, where
        an "authoring" DTD may use one tag and have it automatically mapped
        to another tag in the output, e.g., <item> -> <li>.  Finally, if
        pwp:tag is '-', the children of the current element (either the
        result of pwp:use or the transformed original children, whichever
        applies) appear in the output but there is no element around them.

        A missing or empty pwp:ask is just like pwp:ask = 'true'.

    * pwp:att = '' | 'one non-alphanumeric character'.

        Attributes in the pwp namespace are not affected by this attribute.
        Such attributes are always stripped out and never substituted into.

        If pwp:att is missing or empty, attributes of the current
        element are copied over to the output unchanged.

        If pwp:att = 'c' for some non-alphanumeric character c,
        each attribute is examined for occurrences of c(...)c and c[...]c
        which are as short as possible.
        There is no one character which could be used every time, so you
        have to explicitly choose a substitution marker which is safe
        for the data you do not want to be altered.  None of the pwp
        attributes are inherited, least of all this one.

        Text outside c(...)c groups is copied unchanged; text inside
        a c(...)c group is parsed as a Prolog term and treated as if by
        pwp:how = text. Text inside a c[...]c group is evaluated (in the
        current context), and if it fails, the entire attribute will be
        removed from the element.


Examples:

    1. *|A "Hello World" like example|*

    ==
    <html
      xmlns:pwp="http://www.cs.otago.ac.nz/staffpriv/ok/pwp.pl"
      pwp:ask = "ensure_loaded(msg), once(msg(Greeting))">
      <head>
        <title pwp:use="Greeting"/>
      </head>
      <body>
        <p><span pwp:use="Greeting" pwp:tag='-'/></p>
      </body>
    </html>
    ==

    where msg.pl contains

    ==
    msg('Hello, World!').
    ==

    This example illustrates an important point.  Prolog Well-Formed
    Pages provide *NO* way to physically incorporate Prolog *clauses*
    into a page template.   Prolog clauses must be put in separate
    files which can be checked by a Prolog syntax checker, compiler,
    cross-referencer, &c WITHOUT the Prolog tool in question needing
    to know anything whatsoever about PWP.  You load the files using
    pwp:ask on the root element.

    2. *|Binding some variables and using them|*

    ==
    <html
      xmlns:pwp="http://www.cs.otago.ac.nz/staffpriv/ok/pwp.pl">
      <head><title>Example 2</title></head>
      <body pwp:ask="Hello = 'Hello world', A = 20, B = 22">
        <h1 pwp:use="Hello"/>
        <p>The answer is <span pwp:use="C" pwp:ask="C is A+B"/>.</p>
      </body>
    </html>
    ==

    3. *|Making a table|*
    We are given a Prolog database staff.pl defining
    staff(NickName, FullName, Office, Phone, E_Mail_Address).
    status(NickName, full_time | part_time).
    We want to make a phone list of full time staff.

    ==
    <html
      xmlns:pwp="http://www.cs.otago.ac.nz/staffpriv/ok/pwp.pl"
      pwp:ask='ensure_loaded(staff)'>
      <head>
        <title>Phone list for Full-Time staff.</title>
      </head>
      <body>
        <h1>Phone list for Full-Time staff.</h1>
        <table
          pwp:ask = "setof(FullName-Phone,
                           N^O^E^(
                             status(N, full_time),
                             staff(N, FullName, O, Phone, E)
                           ),
                           Staff_List)">
          <tr><th>Name</th><th>Phone</th></tr>
          <tr pwp:ask="member(FullName-Phone, Staff_List)">
            <td pwp:use="FullName"/>
            <td pwp:use="Phone"/>
          </tr>
        </table>
      </body>
    </html>
    ==

    4. *|Substituting into an attribute|*
    Same data base as before, but now we want to make a mailing list
    page.

    ==
    <html
      xmlns:pwp="http://www.cs.otago.ac.nz/staffpriv/ok/pwp.pl"
      pwp:ask='ensure_loaded(staff)'>
      <head>
        <title>Phone list for Full-Time staff.</title>
      </head>
      <body>
        <h1>Phone list for Full-Time staff.</h1>
        <table
          pwp:ask = "setof(FullName-E_Mail,
                           N^O^P^staff(N, FullName, O, P, E_Mail),
                           Staff_List)">
          <tr><th>Name</th><th>Address</th></tr>
          <tr pwp:ask="member(FullName-E_Mail, Staff_List)">
            <td pwp:use="FullName"/>
            <td><a pwp:use="E_Mail"
                   pwp:att='$' href="mailto:$(E_Mail)$"/></td>
          </tr>
        </table>
      </body>
    </html>
    ==

    5. *|If-then-else effect|*
    A page that displays the value of the 'SHELL' environment
    variable if it has one, otherwise displays 'There is no
    default shell.'

    ==
    <html
      xmlns:pwp="http://www.cs.otago.ac.nz/staffpriv/ok/pwp.pl">
      <head><title>$SHELL</title></head>
      <body>
        <p pwp:ask="getenv('SHELL', Shell)"
        >The default shell is <span pwp:tag="-" pwp:use="Shell"/>.</p>
        <p pwp:ask="\+getenv('SHELL',_)">There is no default shell.</p>
      </body>
    </html>
    ==

    There is one other criterion for a good server-side template
    language:

    It should be possible to compile templates so as to eliminate
    most if not all interpretation overhead.

    This particular notation satisfies that criterion with the
    limitation that the conversion of a term to character data requires
    run-time traversal of terms (because the terms are not known until
    run time).

@author Richard O'Keefe
@tbd    Support compilation of PWP input files
*/

:- use_module(library(sgml),       [load_xml_file/2]).
:- use_module(library(sgml_write), [xml_write/3]).
:- use_module(library(lists),      [append/3]).

:- meta_predicate
    pwp_files(:, +),
    pwp_stream(:, +, +),
    pwp_xml(:, -, +).


%%  pwp_files(:In:atom, +Out:atom) is det.
%
%   loads an Xml document from the file named In,
%   transforms it using the PWP attributes, and
%   writes the transformed version to the new file named Out.

pwp_files(M:In, Out) :-
    load_xml_file(In, Contents),
    pwp_xml(M:Contents, Transformed, []),
    !,
    setup_call_cleanup(open(Out, write, Output),
                       xml_write(Output, Transformed, []),
                       close(Output)).


%!  pwp_stream(:Input:input_stream, +Output:output_stream,
%!             +Context:list) is det.
%
%   Loads an Xml document from the given Input stream, transforms it
%   using the PWP attributes, and writes  the transformed version to
%   the given Output stream.  Context   provides  initial contextual
%   variables and is a list of Name=Value.

pwp_stream(M:Input, Output, Context) :-
    load_xml_file(stream(Input), Contents),
    pwp_xml(M:Contents, Transformed, Context),
    !,
    xml_write(Output, Transformed, []).


/*  Recall that an XML term is one of

        <atom>                  Character Data
        sdata(...)              SDATA (SGML only)
        ndata(...)              NDATA
        pi(...)                 Processing instruction

        element(Name, [Att...], [Child...])

            where Att is Attribute=Value and Child is an XML term.

    We are only concerned with elements; all other XML terms are
    left alone.  I have given some thought to recognising

        <?pwp ...Command...?>

    processing instructions, executing the Command, and removing
    the processing instructions, as a debugging tool.  But this
    is a proof-of-concept implementation; debugging features can
    wait for The Real Thing.
*/



%%  pwp_xml(:In:list(xml), -Out:list(xml), +Context)
%
%   maps down a list of XML items, acting specially on elements and
%   copying everything else unchanged, including white space.
%   The Context is a list of 'VariableName'=CurrentValue bindings.

pwp_xml(M:In, Out, Context) :-
    pwp_list(In, Out, M, Context).

pwp_list([], [], _, _).
pwp_list([element(Tag0,Atts0,Kids0)|Xs], Ys0, M, Context) :-
    !,
    pwp_attributes(Atts0, Ask, Use, How, Att, Tag1, Atts1),
    (   nonvar(Tag1), Tag1 \== '' -> Tag2 = Tag1
    ;   Tag2 = Tag0
    ),
    (   nonvar(Ask), Ask \== '', Ask \== 'true'
    ->  atom_to_term(Ask, Query, Bindings),
        pwp_unite(Bindings, Context, Context1),
        findall(Xml,
                ( M:Query,
                  pwp_element(Tag2, Atts1, Kids0, Use, How, Att,
                              M, Context1, Xml)),
                NewContent)
    ;   /* Ask is missing, empty, or true */
            pwp_element(Tag2, Atts1, Kids0, Use, How, Att,
                    M, Context, NewContent)
    ),
    pwp_attach(NewContent, Ys0, Ys1),
    pwp_list(Xs, Ys1, M, Context).
pwp_list([X|Xs], [X|Ys], M, Context) :-
    pwp_list(Xs, Ys, M, Context).


%!  pwp_attributes(+Atts0:list(=(atom,atom)),
%!                 -Ask:atom, -Use:atom, -How:atom, -Att:atom,
%!                 -Tag:atom, -Atts1:list(=(atom,atom)))
%
%   Walks down a list of AttributeName=ItsValue pairs, stripping out
%   those whose AttributeName begins  with   the  'pwp:' prefix, and
%   copying the rest to Atts1.   Along  the way, Ask/Use/How/Att/Tag
%   are      bound      to       the        values       of      the
%   pwp:ask/pwp:use/pwp:how/pwp:att/pwp:tag attributes, if   any. At
%   the end, any of these variables   that  are still unbound REMAIN
%   unbound; they are not bound to default values.

pwp_attributes([], _, _, _, _, _, []).
pwp_attributes([AV|AVs], Ask, Use, How, Att, Tag, New_Atts1) :-
    AV = (Name=Value),
    (   pwp_attr(Name, PWPName)
    ->  (   pwp_attr(PWPName, Value, Ask, Use, How, Att, Tag)
        ->  New_Atts1 = New_Atts2
        ;   New_Atts1 = New_Atts2
        )
    ;   New_Atts1 = [AV|New_Atts2]
    ),
    pwp_attributes(AVs, Ask, Use, How, Att, Tag, New_Atts2).


pwp_attr(ask, Value, Value, _Use, _How, _Att, _Tag).
pwp_attr(use, Value, _Ask, Value, _How, _Att, _Tag).
pwp_attr(how, Value, _Ask, _Use, Value, _Att, _Tag).
pwp_attr(att, Value, _Ask, _Use, _How, Value, _Tag).
pwp_attr(tag, Value, _Ask, _Use, _How, _Att, Value).

%!  pwp_attr(+XMLAttr, -PWPLocal) is semidet.
%
%   True if PWPLocal is the local name  of a pwp:Local expression in
%   XML.  This  predicate  deals  with    the  three  different  XML
%   representations:  the  form  is  returned    of   XML  namespace
%   processing is not enabled. The second if   it is enabled and the
%   namespace is properly defined and the   last if the namespace is
%   not defined.

pwp_attr(Atom, PWP) :-
    atom(Atom),
    atom_concat('pwp:', PWP, Atom),
    !.
pwp_attr('http://www.cs.otago.ac.nz/staffpriv/ok/pwp.pl':PWP, PWP) :- !.
pwp_attr('pwp':PWP, PWP) :- !.
pwp_attr('xmlns:pwp', -).

%%  pwp_unite(+Bindings, +Context0, -Context:list(=(atom,any)))
%
%   merges the new Bindings with the bindings in the outer Context0,
%   constructing a new list of VariableName=CurrentValue bindings in
%   Context1.  This is only used when the CurrentValue parts of the
%   new Bindings are known to be distinct new variables, so the
%   Bindings cannot possibly conflict with any existing binding in
%   Context0.  This is O(|Bindings|.|Context0|), which is not that
%   efficient, but since we do not expect there to be very many
%   variables it doesn't matter much.

pwp_unite(Bindings, Context0, Context) :-
    pwp_unite(Bindings, Context0, Context0, Context).


pwp_unite([], _, Context, Context).
pwp_unite([Binding|Bindings], Context0, Context1, Context) :-
    memberchk(Binding, Context0),
    !,
    pwp_unite(Bindings, Context0, Context1, Context).
pwp_unite(['CONTEXT'=Context0|Bindings], Context0, Context1, Context) :-
    !,
    pwp_unite(Bindings, Context0, Context1, Context).
pwp_unite([Binding|Bindings], Context0, Context1, Context) :-
    pwp_unite(Bindings, Context0, [Binding|Context1], Context).



%%  pwp_unite(+Bindings, +Context0: list(=(atom,any)))
%
%   looks up the bindings in Bindings in the outer Context0.
%   This is only used for 'pwp:use' terms (and the related terms
%   in $(...)$ attribute value substitutions), so that we have
%   no interest in forming a new context.  (If we did, we'd use
%   pwp_unite/3 instead.)  This is only used when the CurrentValue
%   parts of the new Bindings are known to be distinct new variables,
%   so the Bindings cannot possibly conflict with any existing
%   binding in Context0.  However, there _could_ be new variables
%   in Bindings, and that would cause problems.  An XML term may
%   not contain variables, and a term we want to convert to a list
%   of character codes had better not contain variables either.
%   One approach would be to just bind such variables to something,
%   another is to throw some kind of exception.  For the moment we
%   call functor/3 so as to get an instantiation error.

pwp_unite([], _).
pwp_unite([Binding|Bindings], Context) :-
    memberchk(Binding, Context),
    !,
    pwp_unite(Bindings, Context).
pwp_unite([_=Value|_], _) :-
    functor(Value, _, _).

%%  pwp_attach(+Tree, ?Ys0: list(xml), ?Ys: list(xml))
%
%   is a combination of "flatten" and "append".
%   It unifies Ys0\Ys with the result of flattening Tree.

pwp_attach([], Ys, Ys) :- !.
pwp_attach([X|Xs], Ys0, Ys) :-
    !,
    pwp_attach(X, Ys0, Ys1),
    pwp_attach(Xs, Ys1, Ys).
pwp_attach(X, [X|Ys], Ys).



pwp_element('-', _, Kids, Use, How, _, M, Context, Xml) :-
    !,
    pwp_use(Use, How, Kids, M, Context, Xml).
pwp_element(Tag, Atts, [Value], Use, How, Magic, M, Context,
            element(Tag,Atts1,Kids1)) :-
    verbatim_element(Tag), nonvar(Magic), atomic(Value),
    !,
    %% Apply substition of c(..)c variables also to content of
        %% <script> and <style> tags:
        pwp_substitute([cdata=Value|Atts], Magic, Context,
                   [cdata=Value1|Atts1]),
    pwp_use(Use, How, [Value1], M, Context, Kids1).
pwp_element(Tag, Atts, Kids, Use, How, Magic, M, Context,
            element(Tag,Atts1,Kids1)) :-
    (   nonvar(Magic)
    ->  pwp_substitute(Atts, Magic, Context, Atts1)
    ;   Atts1 = Atts
    ),
    pwp_use(Use, How, Kids, M, Context, Kids1).

pwp_use('', _, Kids, M, Context, Kids1) :-
    !,
    pwp_list(Kids, Kids1, M, Context).
pwp_use(Use, How, _, M, Context, Kids1) :-
    atom_to_term(Use, Term, Bindings),
    pwp_unite(Bindings, Context),
    pwp_how(How, Term, M, Context, Kids1).

pwp_how('text', Term, _,_, [CData]) :-
    !,
    pwp_use_codes(Term, Codes, []),
    atom_codes(CData, Codes).
pwp_how('xml', Term, _,_, Kids1) :-
    (   Term == []   -> Kids1 = Term
    ;   Term = [_|_] -> Kids1 = Term
    ;                   Kids1 = [Term]
    ).
pwp_how('text-file', Term, _,_, [CData]) :-
    pwp_use_codes(Term, Codes, []),
    atom_codes(FileName, Codes),
    read_file_to_codes(FileName, FileCodes, []),
    atom_codes(CData, FileCodes).
pwp_how('xml-file', Term, _,_, Kids1) :-
    pwp_use_codes(Term, Codes, []),
    atom_codes(FileName, Codes),
    load_xml_file(FileName, Kids1).
pwp_how('pwp-file', Term, M,Context, Kids1) :-
    pwp_use_codes(Term, Codes, []),
    atom_codes(FileName, Codes),
    ( memberchk('SCRIPT_DIRECTORY'=ScriptDir,Context) -> true
    ; ScriptDir='.'
    ),
    absolute_file_name(FileName, PathName, [relative_to(ScriptDir)]),
    load_xml_file(PathName, Kids0),
    pwp_xml(M:Kids0, Kids1, Context),
    !.


pwp_substitute([], _, _, []).
pwp_substitute([AV|AVs], Magic, Context, NewAvs) :-
    AV = (Name = Value),
    (   sub_atom(Value, _, _, _, Magic)
    ->  char_code(Magic, C),
        atom_codes(Value, Codes),
        pwp_split(Codes, C, B0, T0, A0, Type),
        !,
        (   pwp_substitute(B0, T0, A0, C, Context, V, Type)
        ->  NewAvs = [AV1|Atts1],
            atom_codes(New_Value, V),
            AV1 = (Name = New_Value)
        ;   Type == existence->
            NewAvs = Atts1
        ),
        pwp_substitute(AVs, Magic, Context, Atts1)
    ).
pwp_substitute([AV|AVs], Magic, Context, [AV|Atts1]) :-
    pwp_substitute(AVs, Magic, Context, Atts1).


pwp_substitute(B0, T0, A0, C, Context, V0, Type) :-
    append(B0, V1, V0),
    atom_codes(Atom, T0),
    atom_to_term(Atom, Term, Bindings),
    pwp_unite(Bindings, Context, _),
    (   Type == value
    ->  pwp_use_codes(Term, V1, V2)
    ;   catch(Term, _, fail),
        V2 = V1
    ),
    (   pwp_split(A0, C, B1, T1, A1, T2)
    ->  pwp_substitute(B1, T1, A1, C, Context, V2, T2)
    ;   V2 = A0
    ).


pwp_split(Codes, C, Before, Text, After, Type) :-
    append(Before, [C,C1|Rest], Codes),
    (   C1 == 0'(
    ->  Type = value,
        C2 = 0')
    ;   C1 == 0'[,
        Type = existence,
        C2 = 0']
    ),
    append(Text,   [C2,C|After], Rest),
    !.

pwp_use_codes(format(Format), S0, S) :-
    !,
    pwp_format(Format, [], S0, S).
pwp_use_codes(format(Format,Args), S0, S) :-
    !,
    pwp_format(Format, Args, S0, S).
pwp_use_codes(write_canonical(Datum), S0, S) :-
    !,
    pwp_format('~k', [Datum], S0, S).
pwp_use_codes(print(Datum), S0, S) :-
    !,
    pwp_format('~p', [Datum], S0, S).
pwp_use_codes(writeq(Datum), S0, S) :-
    !,
    pwp_format('~q', [Datum], S0, S).
pwp_use_codes(write(Datum), S0, S) :-
    !,
    pwp_format('~w', [Datum], S0, S).
pwp_use_codes(Atomic, S0, S) :-
    atomic(Atomic),
    !,
    (   number(Atomic) -> number_codes(Atomic, Codes)
    ;   atom(Atomic)   -> atom_codes(Atomic, Codes)
    ;   string(Atomic) -> string_codes(Atomic, Codes)
    ;   pwp_format('~w', [Atomic], S0, S)
    ),
    append(Codes, S, S0).
pwp_use_codes([X|Xs], S0, S) :-
    pwp_is_codes([X|Xs]),
    !,
    append([X|Xs], S, S0).
pwp_use_codes([X|Xs], S0, S) :-
    !,
    pwp_use_codes(Xs, X, S0, S).
pwp_use_codes(Compound, S0, S) :-
    Compound =.. [_,X|Xs],
    pwp_use_codes(Xs, X, S0, S).



pwp_use_codes([], X, S0, S) :-
    !,
    pwp_use_codes(X, S0, S).
pwp_use_codes([Y|Ys], X, S0, S) :-
    pwp_use_codes(X, S0, S1),
    pwp_use_codes(Ys, Y, S1, S).



%%  pwp_is_codes(+String: any)
%
%   is true when String is a list of integers and each of those
%   integers is a possible Unicode value (in the range U+0000..U+10FFFF).
%   Back in the days of ISO Latin 1 we would have checked for 0..255,
%   and way back in the days of ASCII for 0..127.  Yes, there are more
%   than a million possible characters in Unicode; currently about
%   100 000 of them are in use.

pwp_is_codes([]).
pwp_is_codes([C|Cs]) :-
    integer(C), C >= 0, C =< 0x10FFFF,
    pwp_is_codes(Cs).

pwp_format(Format, Arguments, S0, S) :-
    format(codes(S0, S), Format, Arguments).


verbatim_element(script).
verbatim_element(style).