← Back to branch summary

~ubuntu-branches/ubuntu/vivid/inform/vivid

« back to all changes in this revision

Viewing changes to html/answers2/answer57.html

  • Committer: Bazaar Package Importer
  • Author(s): Jan Christoph Nordholz
  • Date: 2008-05-26 22:09:44 UTC
  • mfrom: (2.1.1 lenny)
  • Revision ID: james.westby@ubuntu.com-20080526220944-ba7phz0d1k4vo7wx
Tags: 6.31.1+dfsg-1
* Remove a considerable number of files from the package
  due to unacceptable licensing terms.
* Repair library symlinks.

Show diffs side-by-side

added added

removed removed

Lines of Context:
html/answers2/answer57.html
1
 
<HTML><HEAD><TITLE>Answer to Exercise 57</TITLE></HEAD>
2
 
<BODY BGCOLOR="#FFFFFF">
3
 
<TABLE><TR><TD Valign="top"><IMG SRC="../icons/exercise.gif" ALT="??"><TD bgcolor="#FAA89B"><B>ANSWER TO EXERCISE 57</B><TR><TD><TD>
4
 
<P>
5
 
 
6
 
 
7
 
<PRE>
8
 
Object -&#62; "/?%?/ (the artiste formally known as Princess)"
9
 
  with name "princess" "artiste" "formally" "known" "as",
10
 
       short_name
11
 
       [;   if (self hasnt general) { print "Princess"; rtrue; }
12
 
       ],
13
 
       react_before
14
 
       [;  Listen: print_ret (name) self, " sings a soft siren song.";
15
 
       ],
16
 
       initial
17
 
       [;  print_ret (name) self, " is singing softly.";
18
 
       ],
19
 
       parse_name
20
 
       [ x n; if (self hasnt general)
21
 
            {   if (NextWord()=='princess') return 1;
22
 
                return 0;
23
 
            }
24
 
            x=WordAddress(wn);
25
 
            if (   x-&#62;0 == '/' &#38;&#38; x-&#62;1 == '?' &#38;&#38; x-&#62;2 == '%'
26
 
                &#38;&#38; x-&#62;3 == '?' &#38;&#38; x-&#62;4 == '/')
27
 
            {   while (wn&#60;=parse-&#62;1 &#38;&#38; WordAddress(wn++)&#60;x+5) n++;
28
 
                return n;
29
 
            }
30
 
            return -1;
31
 
       ],
32
 
       life
33
 
       [;   Kiss: give self general; self.life = NULL;
34
 
                "In a fairy-tale transformation, the Princess 
35
 
                 steps back and astonishes the world by announcing 
36
 
                 that she will henceforth be known as ~/?%?/~.";
37
 
       ],
38
 
  has  animate proper female;
39
 
</PRE>
40
 
 
41
 
</TABLE>
42
 
<HR>Back to <A HREF="../section24.html#ex57">the exercise in section 24</A><HR>
43
 
<SMALL><I>Mechanically translated to HTML from third edition as revised 16 May 1997. Copyright &#169; Graham Nelson 1993, 1994, 1995, 1996, 1997: all rights reserved.</I></SMALL></BODY></HTML>