← Back to branch summary

~ubuntu-branches/ubuntu/trusty/ricochet/trusty

« back to all changes in this revision

Viewing changes to server-readreq.5c

  • Committer: Package Import Robot
  • Author(s): Keith Packard
  • Date: 2012-03-19 21:46:32 UTC
  • Revision ID: package-import@ubuntu.com-20120319214632-zna7p3rikn2y1qf4
Tags: 0.1
Initial release

Show diffs side-by-side

added added

removed removed

Lines of Context:
server-readreq.5c
 
1
/*
 
2
 * $Id$
 
3
 *
 
4
 * Copyright © 2003 Keith Packard
 
5
 *
 
6
 * Permission to use, copy, modify, distribute, and sell this software and its
 
7
 * documentation for any purpose is hereby granted without fee, provided that
 
8
 * the above copyright notice appear in all copies and that both that
 
9
 * copyright notice and this permission notice appear in supporting
 
10
 * documentation, and that the name of Keith Packard not be used in
 
11
 * advertising or publicity pertaining to distribution of the software without
 
12
 * specific, written prior permission.  Keith Packard makes no
 
13
 * representations about the suitability of this software for any purpose.  It
 
14
 * is provided "as is" without express or implied warranty.
 
15
 *
 
16
 * KEITH PACKARD DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
 
17
 * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
 
18
 * EVENT SHALL KEITH PACKARD BE LIABLE FOR ANY SPECIAL, INDIRECT OR
 
19
 * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
 
20
 * DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
 
21
 * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
 
22
 * PERFORMANCE OF THIS SOFTWARE.
 
23
 */
 
24
 
 
25
autoload RR::Lex
 
26
autoload Ctype
 
27
autoload Array
 
28
autoload Server
 
29
 
 
30
extend namespace Server {
 
31
    public namespace Readreq {
 
32
        import RR;
 
33
        import Lex;
 
34
 
 
35
        public string[] read (file f) {
 
36
            try {
 
37
                twixt (unlock (); lock ())
 
38
                    return recv (f);
 
39
            } catch syntax () {
 
40
                raise rr_error (Error.SYNTAX);
 
41
            }
 
42
            raise notreached ();
 
43
        }
 
44
    }
 
45
}