← Back to branch summary

~ubuntu-branches/ubuntu/lucid/gauche-c-wrapper/lucid

« back to all changes in this revision

Viewing changes to src/ObjCError.h

  • Committer: Bazaar Package Importer
  • Author(s): NIIBE Yutaka
  • Date: 2008-04-07 09:15:03 UTC
  • Revision ID: james.westby@ubuntu.com-20080407091503-wu0h414koe95kj4i
Tags: upstream-0.5.2
Import upstream version 0.5.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/ObjCError.h
 
1
/**
 
2
 *  ObjCError.h
 
3
 *  
 
4
 *   Copyright (c) 2006 KOGURO, Naoki (naoki@koguro.net)
 
5
 *  
 
6
 *   Permission is hereby granted, free of charge, to any person 
 
7
 *   obtaining a copy of this software and associated 
 
8
 *   documentation files (the "Software"), to deal in the 
 
9
 *   Software without restriction, including without limitation 
 
10
 *   the rights to use, copy, modify, merge, publish, distribute, 
 
11
 *   sublicense, and/or sell copies of the Software, and to 
 
12
 *   permit persons to whom the Software is furnished to do so, 
 
13
 *   subject to the following conditions:
 
14
 *  
 
15
 *   The above copyright notice and this permission notice shall 
 
16
 *   be included in all copies or substantial portions of the 
 
17
 *   Software.
 
18
 *  
 
19
 *   THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY 
 
20
 *   KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE 
 
21
 *   WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR 
 
22
 *   PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS 
 
23
 *   OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR 
 
24
 *   OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR 
 
25
 *   OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE 
 
26
 *   SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
27
 *  
 
28
 *   $Id: $
 
29
 */
 
30
 
 
31
typedef struct ScmObjCErrorRec {
 
32
    SCM_HEADER;
 
33
    ScmObj name;
 
34
    ScmObj reason;
 
35
} ScmObjCError;
 
36
 
 
37
SCM_CLASS_DECL(Scm_ObjCErrorClass);
 
38
#define SCM_CLASS_OBJC_ERROR (&Scm_ObjCErrorClass)
 
39
#define SCM_OBJC_ERROR(obj) ((ScmObjCError*)obj)
 
40
#define SCM_OBJC_ERRORP(obj) SCM_XTYPEP(obj, SCM_CLASS_OBJC_ERROR)
 
41
 
 
42
ScmObj Scm_MakeObjCError(ScmObj name, ScmObj reason);
 
43