← Back to branch summary

~ubuntu-branches/ubuntu/wily/gargoyle-free/wily-proposed

« back to all changes in this revision

Viewing changes to tads/tads3/test/data/strcomp.t

  • Committer: Bazaar Package Importer
  • Author(s): Sylvain Beucler
  • Date: 2009-09-11 20:09:43 UTC
  • Revision ID: james.westby@ubuntu.com-20090911200943-idgzoyupq6650zpn
Tags: upstream-2009-08-25
Import upstream version 2009-08-25

Show diffs side-by-side

added added

removed removed

Lines of Context:
tads/tads3/test/data/strcomp.t
 
1
#include <tads.h>
 
2
#include <strcomp.h>
 
3
 
 
4
main(args)
 
5
{
 
6
    local comp = new StringComparator(6, nil,
 
7
        [
 
8
         ['\u00DF', 'ss', 0x0100, 0x0200],
 
9
         ['\u00E0', 'a',  0x1000, 0x2000],
 
10
         ['\u00E1', 'a',  0x4000, 0x8000]
 
11
        ]);
 
12
 
 
13
    "Type QUIT to quit.\n";
 
14
    for (;;)
 
15
    {
 
16
        local s1, s2;
 
17
        local m, h1, h2;
 
18
        
 
19
        "\bDictionary string: ";
 
20
        s1 = inputLine();
 
21
        if (s1.toLower() == 'quit')
 
22
            break;
 
23
        
 
24
        "Input string: ";
 
25
        s2 = inputLine();
 
26
 
 
27
        m = comp.matchValues(s2, s1);
 
28
        h1 = comp.calcHash(s1);
 
29
        h2 = comp.calcHash(s2);
 
30
        "Match = <<toString(m, 16)>>,
 
31
        hash(<<s1>>) = <<h1>>, hash(<<s2>>) = <<h2>>";
 
32
 
 
33
        if (m != 0 && h1 != h2)
 
34
            "\n*** HASH MISMATCH!!! ***\n";
 
35
    }
 
36
}
 
37