]> git.saurik.com Git - cycript.git/blob - ObjectiveC/Output.cpp
I really really want some kind of Error monad :(.
[cycript.git] / ObjectiveC / Output.cpp
1 /* Cycript - Optimizing JavaScript Compiler/Runtime
2 * Copyright (C) 2009-2013 Jay Freeman (saurik)
3 */
4
5 /* GNU General Public License, Version 3 {{{ */
6 /*
7 * Cycript is free software: you can redistribute it and/or modify
8 * it under the terms of the GNU General Public License as published
9 * by the Free Software Foundation, either version 3 of the License,
10 * or (at your option) any later version.
11 *
12 * Cycript is distributed in the hope that it will be useful, but
13 * WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 * GNU General Public License for more details.
16 *
17 * You should have received a copy of the GNU General Public License
18 * along with Cycript. If not, see <http://www.gnu.org/licenses/>.
19 **/
20 /* }}} */
21
22 #include "Replace.hpp"
23 #include "ObjectiveC/Syntax.hpp"
24
25 #include <sstream>
26
27 void CYCategory::Output(CYOutput &out, CYFlags flags) const {
28 out << "(function($cys,$cyp,$cyc,$cyn,$cyt){";
29 out << "$cyp=object_getClass($cys);";
30 out << "$cyc=$cys;";
31 if (messages_ != NULL)
32 messages_->Output(out, true);
33 out << "})(";
34 name_->ClassName(out, true);
35 out << ')';
36 out << ';';
37 }
38
39 void CYClass::Output(CYOutput &out, CYFlags flags) const {
40 // XXX: I don't necc. need the ()s
41 out << "(function($cys,$cyp,$cyc,$cyn,$cyt,$cym){";
42 out << "$cyp=object_getClass($cys);";
43 out << "$cyc=objc_allocateClassPair($cys,";
44 if (name_ != NULL)
45 name_->ClassName(out, false);
46 else
47 out << "$cyq(\"CY$\")";
48 out << ",0);";
49 out << "$cym=object_getClass($cyc);";
50 if (fields_ != NULL)
51 fields_->Output(out);
52 if (messages_ != NULL)
53 messages_->Output(out, false);
54 if (protocols_ != NULL) {
55 out << '<';
56 out << *protocols_;
57 out << '>';
58 }
59 out << "objc_registerClassPair($cyc);";
60 out << "return $cyc;";
61 out << "}(";
62 if (super_ != NULL)
63 super_->Output(out, CYAssign::Precedence_, CYNoFlags);
64 else
65 out << "null";
66 out << "))";
67 }
68
69 void CYClassExpression::Output(CYOutput &out, CYFlags flags) const {
70 CYClass::Output(out, flags);
71 }
72
73 void CYClassStatement::Output(CYOutput &out, CYFlags flags) const {
74 CYClass::Output(out, flags);
75 }
76
77 void CYEncodedType::Output(CYOutput &out, CYFlags flags) const {
78 out << "@encode(";
79 // XXX: this is seriously wrong
80 out << ")";
81 }
82
83 void CYField::Output(CYOutput &out) const {
84 }
85
86 void CYImport::Output(CYOutput &out, CYFlags flags) const {
87 out << "@import";
88 }
89
90 void CYMessage::Output(CYOutput &out, bool replace) const {
91 out << (instance_ ? '-' : '+');
92
93 CYForEach (parameter, parameters_)
94 if (parameter->tag_ != NULL) {
95 out << ' ' << *parameter->tag_;
96 if (parameter->name_ != NULL)
97 out << ':' << *parameter->name_;
98 }
99
100 out << code_;
101 }
102
103 void CYBox::Output(CYOutput &out, CYFlags flags) const {
104 out << '@';
105 value_->Output(out, Precedence(), CYRight(flags));
106 }
107
108 void CYObjCBlock::Output(CYOutput &out, CYFlags flags) const {
109 // XXX: this is seriously wrong
110 out << "^(";
111 out << ")";
112 out << "{";
113 out << "}";
114 }
115
116 void CYProtocol::Output(CYOutput &out) const {
117 name_->Output(out, CYAssign::Precedence_, CYNoFlags);
118 if (next_ != NULL)
119 out << ',' << ' ' << *next_;
120 }
121
122 void CYSelector::Output(CYOutput &out, CYFlags flags) const {
123 out << "@selector" << '(' << name_ << ')';
124 }
125
126 void CYSelectorPart::Output(CYOutput &out) const {
127 out << name_;
128 if (value_)
129 out << ':';
130 out << next_;
131 }
132
133 void CYSend::Output(CYOutput &out, CYFlags flags) const {
134 CYForEach (argument, arguments_)
135 if (argument->name_ != NULL) {
136 out << ' ' << *argument->name_;
137 if (argument->value_ != NULL)
138 out << ':' << *argument->value_;
139 }
140 }
141
142 void CYSendDirect::Output(CYOutput &out, CYFlags flags) const {
143 out << '[';
144 self_->Output(out, CYAssign::Precedence_, CYNoFlags);
145 CYSend::Output(out, flags);
146 out << ']';
147 }
148
149 void CYSendSuper::Output(CYOutput &out, CYFlags flags) const {
150 out << '[' << "super";
151 CYSend::Output(out, flags);
152 out << ']';
153 }