本文整理汇总了C++中EnvPtr::AddProcedure方法的典型用法代码示例。如果您正苦于以下问题：C++ EnvPtr::AddProcedure方法的具体用法？C++ EnvPtr::AddProcedure怎么用？C++ EnvPtr::AddProcedure使用的例子？那么, 这里精选的方法代码示例或许可以为您提供帮助。您也可以进一步了解该方法所在类EnvPtr的用法示例。
在下文中一共展示了EnvPtr::AddProcedure方法的1个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的C++代码示例。
示例1: InitializeGlobalEnv
EnvPtr Env::InitializeGlobalEnv()
{
EnvPtr global = make_shared<Env>();
global->AddProcedure("+", [] (const List& lst) -> LispData {
auto summator = [] (const LispData& a, const DataPtr b) -> LispData {
if (a.GetType() == integer_type && b->GetType() == integer_type) {
return LispData(a.GetInt() + b->GetInt());
}
else {
return LispData(a.GetFloat() + b->GetFloat());
}
};
return accumulate(begin(lst), end(lst), LispData(0L), summator);
});
global->AddProcedure("-", [] (const List& lst) -> LispData {
if (lst.size() != 2) {
throw WrongArity("-");
}
LispData a = *lst.front();
LispData b = *lst.back();
if (a.GetType() == integer_type && b.GetType() == integer_type) {
return LispData(a.GetInt() - b.GetInt());
}
else {
return LispData(a.GetFloat() - b.GetFloat());
}
});
global->AddProcedure("*", [] (const List& lst) -> LispData {
auto multiplicator = [] (const LispData& a, const DataPtr b) -> LispData {
if (a.GetType() == integer_type && b->GetType() == integer_type) {
return LispData(a.GetInt() * b->GetInt());
}
else {
return LispData(a.GetFloat() * b->GetFloat());
}
};
return accumulate(begin(lst), end(lst), LispData(1), multiplicator);
});
global->AddProcedure("/", [] (const List& lst) -> LispData {
if (lst.size() != 2) {
throw WrongArity("/");
}
LispData a = *lst.front();
LispData b = *lst.back();
if (fabs(b.GetFloat()) < 1e-15) {
throw runtime_error("Zero division");
}
if (a.GetType() == integer_type && b.GetType() == integer_type) {
return LispData(a.GetInt() / b.GetInt());
}
else {
return LispData(a.GetFloat() / b.GetFloat());
}
});
global->AddProcedure("=", [] (const List& lst) -> LispData {
if (lst.size() != 2) {
throw WrongArity("=");
}
LispData a = *lst.front();
LispData b = *lst.back();
return LispData(a.GetFloat() == b.GetFloat());
});
global->AddProcedure("cons", [] (const List& lst) -> LispData {
if (lst.size() != 2) {
throw WrongArity("cons");
}
return LispData(lst);
});
global->AddProcedure("car", [] (const List& lst) -> LispData {
if (lst.size() != 1) {
throw WrongArity("car");
}
if (lst.front()->GetType() != list_type) {
throw runtime_error("Not pair type given to 'car'.");
}
return LispData(*lst.front()->GetListRef()->front());
});
global->AddProcedure("cdr", [] (const List& lst) -> LispData {
if (lst.size() != 1) {
throw WrongArity("cdr");
}
auto pair = lst.front();
if (pair->GetType() != list_type || pair->GetListRef()->size() != 2) {
throw runtime_error("Not pair type given to 'cdr'.");
}
return LispData(*pair->GetListRef()->back());
});
//.........这里部分代码省略.........