annotate orange/util/Use.d @ 1:11a31bd929f9

Removed dependency on private library
author Jacob Carlborg <doob@me.com>
date Mon, 31 May 2010 16:06:36 +0200
parents f7b078e85f7f
children 78e5fef4bbf2
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
1 /**
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
2 * Copyright: Copyright (c) 2010 Jacob Carlborg.
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
3 * Authors: Jacob Carlborg
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
4 * Version: Initial created: Jan 29, 2010
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
5 * License: $(LINK2 http://www.boost.org/LICENSE_1_0.txt, Boost Software License 1.0)
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
6 */
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
7 module orange.util.Use;
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
8
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
9 version (Tango)
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
10 {
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
11 import tango.core.Tuple;
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
12 import tango.core.Traits;
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
13 }
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
14
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
15 else
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
16 {
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
17 import std.typetuple;
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
18 import std.traits;
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
19
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
20 alias ReturnType ReturnTypeOf;
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
21 alias ParameterTypeTuple ParameterTupleOf;
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
22 }
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
23
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
24 struct OpInStruct (ARGS...)
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
25 {
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
26 static assert (ARGS.length > 0);
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
27
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
28 private
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
29 {
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
30 alias ReturnTypeOf!(ARGS[0]) ReturnType;
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
31
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
32 static if (ARGS.length >= 2)
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
33 alias Tuple!(ReturnType delegate (ARGS), ARGS[1 .. $]) NEW_ARGS;
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
34
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
35 else
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
36 alias Tuple!(ReturnType delegate (ARGS)) NEW_ARGS;
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
37 }
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
38
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
39 NEW_ARGS args;
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
40
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
41 ReturnType opIn (ARGS[0] dg)
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
42 {
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
43 assert(args[0]);
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
44
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
45 static if (NEW_ARGS.length == 1)
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
46 return args[0](dg);
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
47
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
48 else
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
49 return args[0](dg, args[1 .. $]);
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
50 }
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
51 }
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
52
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
53 struct RestoreStruct (U, T)
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
54 {
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
55 U delegate(U delegate (), ref T) dg;
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
56 T* value;
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
57
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
58 U opIn (U delegate () deleg)
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
59 {
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
60 return dg(deleg, *value);
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
61 }
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
62 }
1
11a31bd929f9 Removed dependency on private library
Jacob Carlborg <doob@me.com>
parents: 0
diff changeset
63
0
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
64 RestoreStruct!(U, T) restore (U = void, T) (ref T val)
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
65 {
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
66 RestoreStruct!(U, T) restoreStruct;
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
67
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
68 restoreStruct.dg = (U delegate () dg, ref T value){
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
69 T t = value;
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
70
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
71 static if (is(U == void))
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
72 {
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
73 dg();
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
74 value = t;
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
75 }
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
76
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
77 else
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
78 {
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
79 auto result = dg();
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
80 value = t;
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
81
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
82 return result;
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
83 }
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
84 };
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
85
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
86 restoreStruct.value = &val;
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
87
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
88 return restoreStruct;
f7b078e85f7f First commit
Jacob Carlborg <doob@me.com>
parents:
diff changeset
89 }