#include <iostream>
#include <iomanip>
+#include <objc/runtime.h>
+#include <sstream>
+
_finline CYFlags operator ~(CYFlags rhs) {
return static_cast<CYFlags>(~static_cast<unsigned>(rhs));
}
void CYAddressOf::Output(std::ostream &out, CYFlags flags) const {
rhs_->Output(out, 1, CYLeft(flags));
- out << ".$()";
+ out << ".$cya()";
}
void CYArgument::Output(std::ostream &out) const {
out << ']';
}
+void CYArrayComprehension::Output(std::ostream &out, CYFlags flags) const {
+ // XXX: I don't necc. need the ()s
+ out << "(function($cyv";
+ for (CYComprehension *comprehension(comprehensions_); comprehension != NULL; comprehension = comprehension->next_)
+ if (const char *name = comprehension->Name())
+ out << ',' << name;
+ out << "){";
+ out << "$cyt=[];";
+ comprehensions_->Output(out);
+ out << "$cyt.push(";
+ expression_->Output(out, CYPA, CYNoFlags);
+ out << ");";
+ for (CYComprehension *comprehension(comprehensions_); comprehension != NULL; comprehension = comprehension->next_)
+ comprehension->End_(out);
+ out << "return $cyt;";
+ out << "}())";
+}
+
void CYAssignment::Output(std::ostream &out, CYFlags flags) const {
lhs_->Output(out, Precedence() - 1, CYLeft(flags));
out << Operator();
rhs_->Output(out, Precedence(), CYRight(flags));
}
+void CYBlock::Output(std::ostream &out) const {
+ for (CYSource *statement(statements_); statement != NULL; statement = statement->next_)
+ statement->Output(out);
+}
+
void CYBoolean::Output(std::ostream &out, CYFlags flags) const {
if ((flags & CYNoLeader) != 0)
out << ' ';
code_->Output(out, true);
}
+void CYCategory::Output(std::ostream &out) const {
+ out << "(function($cys,$cyp,$cyc,$cyn,$cyt){";
+ out << "$cyp=object_getClass($cys);";
+ out << "$cyc=$cys;";
+ if (messages_ != NULL)
+ messages_->Output(out, true);
+ out << "})(";
+ name_->ClassName(out, true);
+ out << ");";
+}
+
void CYClass::Output(std::ostream &out) const {
- out << "(function($cys,$cyc,$cym,$cyn,$cyt){";
- out << "$cyc=objc_allocateClassPair($cys,\"" << *name_ << "\",0);";
+ Output(out, CYNoBF);
+ out << ";";
+}
+
+void CYClass::Output(std::ostream &out, CYFlags flags) const {
+ // XXX: I don't necc. need the ()s
+ out << "(function($cys,$cyp,$cyc,$cyn,$cyt,$cym){";
+ out << "$cyp=object_getClass($cys);";
+ out << "$cyc=objc_allocateClassPair($cys,";
+ if (name_ != NULL)
+ name_->ClassName(out, false);
+ else
+ out << "$cyq(\"CY$\")";
+ out << ",0);";
out << "$cym=object_getClass($cyc);";
if (fields_ != NULL)
fields_->Output(out);
if (messages_ != NULL)
- messages_->Output(out);
+ messages_->Output(out, false);
out << "objc_registerClassPair($cyc);";
- out << "})(";
+ out << "return $cyc;";
+ out << "}(";
if (super_ != NULL)
super_->Output(out, CYPA, CYNoFlags);
else
out << "null";
- out << ");";
+ out << "))";
+}
+
+void CYCompound::Output(std::ostream &out, CYFlags flags) const {
+ if (CYExpression *expression = expressions_)
+ if (CYExpression *next = expression->next_) {
+ expression->Output(out, CYLeft(flags));
+ CYFlags center(CYCenter(flags));
+ while (next != NULL) {
+ expression = next;
+ out << ',';
+ next = expression->next_;
+ CYFlags right(next != NULL ? center : CYRight(flags));
+ expression->Output(out, right);
+ }
+ } else
+ expression->Output(out, flags);
+}
+
+void CYComprehension::Output(std::ostream &out) const {
+ Begin_(out);
+ if (next_ != NULL)
+ next_->Output(out);
}
void CYCondition::Output(std::ostream &out, CYFlags flags) const {
out << *next_;
}
-// XXX: deal with NoIn
-void CYDeclaration::Part(std::ostream &out) const {
+void CYDeclaration::Part(std::ostream &out, CYFlags flags) const {
+ if ((flags & CYNoLeader) != 0)
+ out << ' ';
out << "var ";
- Output(out);
+ Output(out, CYRight(flags));
}
-void CYDeclaration::Output(std::ostream &out) const {
+void CYDeclaration::ForEachIn(std::ostream &out) const {
+ out << *identifier_;
+}
+
+void CYDeclaration::Output(std::ostream &out, CYFlags flags) const {
out << *identifier_;
if (initialiser_ != NULL) {
out << '=';
- initialiser_->Output(out, CYPA, CYNoFlags);
- }
+ initialiser_->Output(out, CYPA, CYRight(flags));
+ } else if ((flags & CYNoTrailer) != 0)
+ out << ' ';
}
-// XXX: deal with NoIn
-void CYDeclarations::Part(std::ostream &out) const {
+void CYDeclarations::Part(std::ostream &out, CYFlags flags) const {
+ if ((flags & CYNoLeader) != 0)
+ out << ' ';
out << "var ";
const CYDeclarations *declaration(this);
output:
- out << *declaration->declaration_;
- declaration = declaration->next_;
+ CYDeclarations *next(declaration->next_);
+ CYFlags right(next == NULL ? CYRight(flags) : CYCenter(flags));
+ declaration->declaration_->Output(out, right);
- if (declaration != NULL) {
+ if (next != NULL) {
out << ',';
+ declaration = next;
goto output;
}
}
void CYDeclarations::Output(std::ostream &out) const {
- Part(out);
+ Part(out, CYNoFlags);
out << ';';
}
+void CYDirectMember::Output(std::ostream &out, CYFlags flags) const {
+ object_->Output(out, Precedence(), CYLeft(flags));
+ if (const char *word = property_->Word())
+ out << '.' << word;
+ else {
+ out << '[';
+ property_->Output(out, CYNoFlags);
+ out << ']';
+ }
+}
+
void CYDoWhile::Output(std::ostream &out) const {
// XXX: extra space character!
out << "do ";
}
void CYExpress::Output(std::ostream &out) const {
- expression_->Output(out, CYNoFunction | CYNoBrace);
+ expression_->Output(out, CYNoBF);
out << ';';
}
-void CYExpression::Part(std::ostream &out) const {
+void CYExpression::ClassName(std::ostream &out, bool object) const {
+ Output(out, CYPA, CYNoFlags);
+}
+
+void CYExpression::ForEachIn(std::ostream &out) const {
// XXX: this should handle LeftHandSideExpression
- Output(out, CYNoIn);
+ Output(out, CYPA, CYNoFlags);
}
-void CYCompound::Output(std::ostream &out, CYFlags flags) const {
- if (CYExpression *expression = expressions_)
- if (CYExpression *next = expression->next_)
- expression->Output(out, flags);
- else {
- expression->Output(out, CYLeft(flags));
- CYFlags center(CYCenter(flags));
- while (next != NULL) {
- out << ',';
- next = expression->next_;
- CYFlags right(next != NULL ? center : CYRight(flags));
- expression->Output(out, right);
- }
- }
+void CYExpression::Part(std::ostream &out, CYFlags flags) const {
+ // XXX: this should handle LeftHandSideExpression
+ Output(out, flags);
}
void CYExpression::Output(std::ostream &out, unsigned precedence, CYFlags flags) const {
void CYFor::Output(std::ostream &out) const {
out << "for(";
if (initialiser_ != NULL)
- initialiser_->Part(out);
+ initialiser_->Part(out, CYNoFlags);
out << ';';
if (test_ != NULL)
test_->Output(out, CYNoFlags);
code_->Output(out, false);
}
+void CYForEachIn::Output(std::ostream &out) const {
+ const char *name(initialiser_->ForEachIn());
+
+ if (name != NULL) {
+ out << '{';
+ out << "var " << name << ';';
+ }
+
+ out << "(function($cys,$cyt){";
+ out << "$cys=";
+ set_->Output(out, CYPA, CYNoFlags);
+ out << ";";
+
+ out << "for($cyt in $cys){";
+
+ initialiser_->ForEachIn(out);
+ out << "=$cys[$cyt];";
+
+ code_->Show(out);
+
+ out << "}}());";
+
+ if (name != NULL)
+ out << '}';
+}
+
+void CYForEachInComprehension::Begin_(std::ostream &out) const {
+ out << "(function($cys){";
+ out << "$cys=";
+ set_->Output(out, CYPA, CYNoFlags);
+ out << ";";
+
+ out << "for(" << *name_ << " in $cys){";
+ out << *name_ << "=$cys[" << *name_ << "];";
+}
+
+void CYForEachInComprehension::End_(std::ostream &out) const {
+ out << "}}());";
+}
+
void CYForIn::Output(std::ostream &out) const {
out << "for(";
- initialiser_->Part(out);
- // XXX: deal with this space character!
- out << ' ';
+ initialiser_->Part(out, CYNoIn | CYNoTrailer);
out << "in";
set_->Output(out, CYNoLeader);
out << ')';
code_->Output(out, false);
}
+void CYForInComprehension::Begin_(std::ostream &out) const {
+ out << "for(" << *name_ << " in";
+ set_->Output(out, CYNoLeader);
+ out << ')';
+}
+
void CYFunction::Output(std::ostream &out) const {
CYLambda::Output(out, CYNoFlags);
}
}
}
+void CYIfComprehension::Begin_(std::ostream &out) const {
+ out << "if(";
+ test_->Output(out, CYNoFlags);
+ out << ')';
+}
+
void CYIndirect::Output(std::ostream &out, CYFlags flags) const {
rhs_->Output(out, 1, CYLeft(flags));
- out << "[0]";
+ out << ".$cyi";
+}
+
+void CYIndirectMember::Output(std::ostream &out, CYFlags flags) const {
+ object_->Output(out, Precedence(), CYLeft(flags));
+ out << ".$cyi";
+ if (const char *word = property_->Word())
+ out << '.' << word;
+ else {
+ out << '[';
+ property_->Output(out, CYNoFlags);
+ out << ']';
+ }
}
void CYInfix::Output(std::ostream &out, CYFlags flags) const {
CYFlags right(protect ? CYNoFlags : CYRight(flags));
if (alphabetic)
right |= CYNoLeader;
+ if (strcmp(name, "-") == 0)
+ right |= CYNoHyphen;
rhs_->Output(out, Precedence() - 1, right);
if (protect)
out << ')';
bool protect((flags & CYNoFunction) != 0);
if (protect)
out << '(';
+ else if ((flags & CYNoLeader) != 0)
+ out << ' ';
out << "function";
if (name_ != NULL)
out << ' ' << *name_;
out << ')';
}
-void CYMember::Output(std::ostream &out, CYFlags flags) const {
- object_->Output(out, Precedence(), CYLeft(flags));
- if (const char *word = property_->Word())
- out << '.' << word;
- else {
- out << '[';
- property_->Output(out, CYNoFlags);
- out << ']';
- }
-}
-
-void CYMessage::Output(std::ostream &out) const {
+void CYMessage::Output(std::ostream &out, bool replace) const {
+ if (next_ != NULL)
+ next_->Output(out, replace);
out << "$cyn=new Selector(\"";
for (CYMessageParameter *parameter(parameter_); parameter != NULL; parameter = parameter->next_)
if (parameter->tag_ != NULL) {
out << ':';
}
out << "\");";
- out << "$cyt=$cyn.type($cys," << (instance_ ? "true" : "false") << ");";
- out << "class_addMethod($cy" << (instance_ ? 'c' : 'm') << ",$cyn,";
- out << "new Functor(function(";
- bool comma(false);
+ out << "$cyt=$cyn.type($cy" << (instance_ ? 's' : 'p') << ");";
+ out << "class_" << (replace ? "replace" : "add") << "Method($cy" << (instance_ ? 'c' : 'm') << ",$cyn,";
+ out << "new Functor(function(self,_cmd";
for (CYMessageParameter *parameter(parameter_); parameter != NULL; parameter = parameter->next_)
- if (parameter->name_ != NULL) {
- if (comma)
- out << ',';
- else
- comma = true;
- out << *parameter->name_;
- }
- out << "){";
+ if (parameter->name_ != NULL)
+ out << ',' << *parameter->name_;
+ out << "){return function(){";
if (body_ != NULL)
body_->Show(out);
- out << "},$cyt),$cyt);";
+ out << "}.call(self);},$cyt),$cyt);";
}
void CYNew::Output(std::ostream &out, CYFlags flags) const {
+ if ((flags & CYNoLeader) != 0)
+ out << ' ';
out << "new";
constructor_->Output(out, Precedence(), CYCenter(flags) | CYNoLeader);
out << '(';
}
void CYNumber::Output(std::ostream &out, CYFlags flags) const {
- if ((flags & CYNoLeader) != 0)
+ double value(Value());
+ if ((flags & CYNoLeader) != 0 || value < 0 && (flags & CYNoHyphen) != 0)
out << ' ';
- // XXX: this is not a useful formatting
- out << Value();
+ // XXX: decide on correct precision
+ out << std::setprecision(9) << value;
if ((flags & CYNoTrailer) != 0)
out << ' ';
}
+void CYNumber::PropertyName(std::ostream &out) const {
+ Output(out);
+}
+
void CYObject::Output(std::ostream &out, CYFlags flags) const {
bool protect((flags & CYNoBrace) != 0);
if (protect)
}
void CYPrefix::Output(std::ostream &out, CYFlags flags) const {
+ const char *name(Operator());
bool alphabetic(Alphabetic());
- out << Operator();
+ if (alphabetic && (flags & CYNoLeader) != 0 || name[0] == '-' && (flags & CYNoHyphen) != 0)
+ out << ' ';
+ out << name;
CYFlags right(CYRight(flags));
if (alphabetic)
right |= CYNoLeader;
}
void CYProperty::Output(std::ostream &out) const {
- out << *name_ << ':';
+ name_->PropertyName(out);
+ out << ':';
value_->Output(out, CYPA, CYNoFlags);
if (next_ != NULL) {
out << ',';
}
void CYSelector::Output(std::ostream &out, CYFlags flags) const {
+ if ((flags & CYNoLeader) != 0)
+ out << ' ';
out << "new Selector(\"";
if (name_ != NULL)
name_->Output(out);
}
void CYSend::Output(std::ostream &out, CYFlags flags) const {
+ if ((flags & CYNoLeader) != 0)
+ out << ' ';
out << "objc_msgSend(";
self_->Output(out, CYPA, CYNoFlags);
- out << ",\"";
+ out << ",";
+ std::ostringstream name;
for (CYArgument *argument(arguments_); argument != NULL; argument = argument->next_)
if (argument->name_ != NULL) {
- out << *argument->name_;
+ name << *argument->name_;
if (argument->value_ != NULL)
- out << ':';
+ name << ':';
}
- out << "\"";
+ out << reinterpret_cast<void *>(sel_registerName(name.str().c_str()));
for (CYArgument *argument(arguments_); argument != NULL; argument = argument->next_)
if (argument->value_ != NULL) {
out << ",";
void CYSource::Show(std::ostream &out) const {
for (const CYSource *next(this); next != NULL; next = next->next_)
- next->Output(out);
+ next->Output_(out);
}
void CYSource::Output(std::ostream &out, bool block) const {
- if (!block && next_ == NULL)
+ if (!block && !IsBlock())
Output(out);
else {
out << '{';
}
}
+void CYSource::Output_(std::ostream &out) const {
+ Output(out);
+}
+
+void CYStatement::Output_(std::ostream &out) const {
+ for (CYLabel *label(labels_); label != NULL; label = label->next_)
+ out << *label->name_ << ':';
+ Output(out);
+}
+
void CYString::Output(std::ostream &out, CYFlags flags) const {
- out << '\"';
+ unsigned quot(0), apos(0);
+ for (const char *value(value_), *end(value_ + size_); value != end; ++value)
+ if (*value == '"')
+ ++quot;
+ else if (*value == '\'')
+ ++apos;
+
+ bool single(quot > apos);
+
+ out << (single ? '\'' : '"');
for (const char *value(value_), *end(value_ + size_); value != end; ++value)
switch (*value) {
- case '"': out << "\\\""; break;
case '\\': out << "\\\\"; break;
case '\b': out << "\\b"; break;
case '\f': out << "\\f"; break;
case '\t': out << "\\t"; break;
case '\v': out << "\\v"; break;
+ case '"':
+ if (!single)
+ out << "\\\"";
+ else goto simple;
+ break;
+
+ case '\'':
+ if (single)
+ out << "\\'";
+ else goto simple;
+ break;
+
default:
if (*value < 0x20 || *value >= 0x7f)
out << "\\x" << std::setbase(16) << std::setw(2) << std::setfill('0') << unsigned(*value);
- else
+ else simple:
out << *value;
}
- out << '\"';
+ out << (single ? '\'' : '"');
+}
+
+void CYString::PropertyName(std::ostream &out) const {
+ if (const char *word = Word())
+ out << word;
+ else
+ Output(out);
}
void CYSwitch::Output(std::ostream &out) const {
out << "try";
try_->Output(out, true);
if (catch_ != NULL)
- out << catch_;
+ catch_->Output(out);
if (finally_ != NULL) {
out << "finally";
finally_->Output(out, true);
}
void CYVariable::Output(std::ostream &out, CYFlags flags) const {
- bool protect((flags & CYNoLeader) != 0);
- if (protect)
- out << '(';
+ if ((flags & CYNoLeader) != 0)
+ out << ' ';
out << *name_;
- if (protect)
- out << ')';
+ if ((flags & CYNoTrailer) != 0)
+ out << ' ';
}
void CYWhile::Output(std::ostream &out) const {
code_->Output(out, false);
}
+void CYWord::ClassName(std::ostream &out, bool object) const {
+ if (object)
+ out << "objc_getClass(";
+ out << '"' << Value() << '"';
+ if (object)
+ out << ')';
+}
+
void CYWord::Output(std::ostream &out) const {
out << Value();
}
+
+void CYWord::PropertyName(std::ostream &out) const {
+ Output(out);
+}
projects / cycript.git / blobdiff