summaryrefslogtreecommitdiff
path: root/util.h
blob: 861a74d86edbccbe3aa8f3c0fd0ea38bc8288f3f (plain)
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
#import "runtime-compatibility.h"
#import "functions.h"
#import <Foundation/NSException.h>
#import <Foundation/NSNull.h>
#import "MLKSymbol.h"

#define DEFINE_GMP_OPERATION(SIGNATURE, TYPE, GMPOP, RETTYPE, OBJTYPE, CONSTRUCTOR) \
  -(RETTYPE *) SIGNATURE                                                \
  {                                                                     \
    TYPE##_t mpval;                                                     \
    RETTYPE *result;                                                    \
                                                                        \
    TYPE##_init (mpval);                                                \
    GMPOP;                                                              \
    result = [OBJTYPE CONSTRUCTOR mpval];                               \
    TYPE##_clear (mpval);                                               \
                                                                        \
    return result;                                                      \
  }


// Read this as “Lisp ASSIGN” etc..
#define LASSIGN(VAR, VALUE)                             \
  ({ LRELEASE (VAR); VAR = VALUE; LRETAIN (VAR); })

#define LASSIGN_COPY(VAR, VALUE)                                \
  ({                                                            \
    id ___object = VALUE;                                       \
    LRELEASE (VAR);                                             \
    if (MLKInstanceP (___object))                               \
      {                                                         \
        VAR = [___object copy];                                 \
        RETAIN (VAR);                                           \
      }                                                         \
    else                                                        \
      VAR = ___object;                                          \
  })

#define LAUTORELEASE(VALUE)                                             \
  ({ id __object = VALUE;                                               \
     MLKInstanceP (__object) ? (id)AUTORELEASE(__object) : (id)__object; })

#define LDESTROY(VAR)                           \
  ({ LRELEASE (VAR); VAR = nil; })

#define LRELEASE(VALUE)                         \
  ({ id __object = VALUE;                       \
     if (MLKInstanceP (__object)) RELEASE(__object); })

#define LRETAIN(VALUE)                                                  \
  ({ id __object = VALUE;                                               \
     MLKInstanceP (__object) ? (id)RETAIN(__object) : (id)__object; })


static id nullify (id value) __attribute__ ((pure, unused));
static id denullify (id value) __attribute__ ((pure, unused));
static id stringify (id value) __attribute__ ((pure, unused));

static id nullify (id value)
{
  if (MLKFixnumP (value))
    return [MLKInteger integerWithFixnum:value];
  else if (value)
    return value;
  else
    return [NSNull null];
}

static id denullify (id value)
{
  if (value == [NSNull null])
    return nil;
  else if ([value isKindOfClass:[MLKInteger class]])
    return MLKCanoniseInteger (value);
  else
    return value;
}

static id stringify (id thing)
{
  // FIXME: Some cases may be missing.
  if (!thing)
    return @"NIL";
  if ([thing isKindOfClass:[NSString class]])
    return thing;
  else if ([thing isKindOfClass:[MLKSymbol class]])
    return [thing name];

  [NSException raise:@"MLKTypeError" format:@"Can't coerce %@ to a string.",
                                            MLKPrintToString(thing)];

  return nil;
}