// Interp.C -*- C++ -*-
// Copyright (c) 1998 Etienne BERNARD
-// Copyright (C) 2002,2005 Clinton Ebadi
+// Copyright (C) 2002,2005,2008 Clinton Ebadi
// This program is free software; you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
{
scm_c_use_module ("guile-user");
// Hooks
- scm_c_define ("bot:exit-hook", scm_make_hook (scm_long2num (0)));
+ scm_c_define ("bot:exit-hook", scm_make_hook (scm_from_int (0)));
// Symbols
// bot:user-*
- scm_c_define ("bot:user-none", scm_long2num (User::NONE));
- scm_c_define ("bot:user-user", scm_long2num (User::USER));
- scm_c_define ("bot:user-trusted", scm_long2num (User::TRUSTED_USER));
- scm_c_define ("bot:user-friend", scm_long2num (User::FRIEND));
- scm_c_define ("bot:user-master", scm_long2num (User::MASTER));
+ scm_c_define ("bot:user-none", scm_from_int (User::NONE));
+ scm_c_define ("bot:user-user", scm_from_int (User::USER));
+ scm_c_define ("bot:user-trusted", scm_from_int (User::TRUSTED_USER));
+ scm_c_define ("bot:user-friend", scm_from_int (User::FRIEND));
+ scm_c_define ("bot:user-master", scm_from_int (User::MASTER));
// protection
- scm_c_define ("bot:protection/none", scm_long2num (User::NO_PROT));
- scm_c_define ("bot:protection/no-ban", scm_long2num (User::NO_BAN));
- scm_c_define ("bot:protection/no-kick", scm_long2num (User::NO_KICK));
- scm_c_define ("bot:protection/no-deop", scm_long2num (User::NO_DEOP));
+ scm_c_define ("bot:protection/none", scm_from_int (User::NO_PROT));
+ scm_c_define ("bot:protection/no-ban", scm_from_int (User::NO_BAN));
+ scm_c_define ("bot:protection/no-kick", scm_from_int (User::NO_KICK));
+ scm_c_define ("bot:protection/no-deop", scm_from_int (User::NO_DEOP));
// auto-op
- scm_c_define ("bot:aop/yes", scm_long2num (true));
- scm_c_define ("bot:aop/no", scm_long2num (false));
+ scm_c_define ("bot:aop/yes", scm_from_int (true));
+ scm_c_define ("bot:aop/no", scm_from_int (false));
// shit-list
- scm_c_define ("bot:shit/none", scm_long2num (ShitEntry::SHIT_NOSHIT));
- scm_c_define ("bot:shit/no-op", scm_long2num (ShitEntry::SHIT_NOOP));
- scm_c_define ("bot:shit/no-join", scm_long2num (ShitEntry::SHIT_NOJOIN));
+ scm_c_define ("bot:shit/none", scm_from_int (ShitEntry::SHIT_NOSHIT));
+ scm_c_define ("bot:shit/no-op", scm_from_int (ShitEntry::SHIT_NOOP));
+ scm_c_define ("bot:shit/no-join", scm_from_int (ShitEntry::SHIT_NOJOIN));
scm_c_define ("bot:shit/no-deban",
- scm_long2num (ShitEntry::SHIT_NODEBAN));
+ scm_from_int (ShitEntry::SHIT_NODEBAN));
// sys-dir
scm_c_define ("bot:sys-scripts-dir",
- scm_makfrom0str (String(PREFIX) +
- "/share/bobotpp/scripts/"));
+ scm_from_locale_string (String(PREFIX) +
+ "/share/bobotpp/scripts/"));
// Hooks
- scm_c_define ("hooks/action", scm_long2num(Hook::ACTION));
- scm_c_define ("hooks/nickname", scm_long2num(Hook::NICKNAME));
- scm_c_define ("hooks/signoff", scm_long2num(Hook::SIGNOFF));
- scm_c_define ("hooks/ctcp", scm_long2num(Hook::CTCP));
- scm_c_define ("hooks/ctcp-reply", scm_long2num(Hook::CTCP_REPLY));
- scm_c_define ("hooks/disconnect", scm_long2num(Hook::DISCONNECT));
- scm_c_define ("hooks/flood", scm_long2num(Hook::FLOOD));
- scm_c_define ("hooks/invite", scm_long2num(Hook::INVITE));
- scm_c_define ("hooks/join", scm_long2num(Hook::JOIN));
- scm_c_define ("hooks/kick", scm_long2num(Hook::KICK));
- scm_c_define ("hooks/mode", scm_long2num(Hook::MODE));
- scm_c_define ("hooks/message", scm_long2num(Hook::MESSAGE));
- scm_c_define ("hooks/notice", scm_long2num(Hook::NOTICE));
- scm_c_define ("hooks/part", scm_long2num(Hook::PART));
- scm_c_define ("hooks/public", scm_long2num(Hook::PUBLIC));
- scm_c_define ("hooks/public-notice", scm_long2num(Hook::PUBLIC_NOTICE));
- scm_c_define ("hooks/raw", scm_long2num(Hook::RAW));
- scm_c_define ("hooks/timer", scm_long2num(Hook::TIMER));
- scm_c_define ("hooks/topic", scm_long2num(Hook::TOPIC));
+ scm_c_define ("hooks/action", scm_from_int(Hook::ACTION));
+ scm_c_define ("hooks/nickname", scm_from_int(Hook::NICKNAME));
+ scm_c_define ("hooks/signoff", scm_from_int(Hook::SIGNOFF));
+ scm_c_define ("hooks/ctcp", scm_from_int(Hook::CTCP));
+ scm_c_define ("hooks/ctcp-reply", scm_from_int(Hook::CTCP_REPLY));
+ scm_c_define ("hooks/disconnect", scm_from_int(Hook::DISCONNECT));
+ scm_c_define ("hooks/flood", scm_from_int(Hook::FLOOD));
+ scm_c_define ("hooks/invite", scm_from_int(Hook::INVITE));
+ scm_c_define ("hooks/join", scm_from_int(Hook::JOIN));
+ scm_c_define ("hooks/kick", scm_from_int(Hook::KICK));
+ scm_c_define ("hooks/mode", scm_from_int(Hook::MODE));
+ scm_c_define ("hooks/message", scm_from_int(Hook::MESSAGE));
+ scm_c_define ("hooks/notice", scm_from_int(Hook::NOTICE));
+ scm_c_define ("hooks/part", scm_from_int(Hook::PART));
+ scm_c_define ("hooks/public", scm_from_int(Hook::PUBLIC));
+ scm_c_define ("hooks/public-notice", scm_from_int(Hook::PUBLIC_NOTICE));
+ scm_c_define ("hooks/raw", scm_from_int(Hook::RAW));
+ scm_c_define ("hooks/timer", scm_from_int(Hook::TIMER));
+ scm_c_define ("hooks/topic", scm_from_int(Hook::TOPIC));
// send hooks
- scm_c_define ("hooks/send/public", scm_long2num (Hook::SEND_PUBLIC));
- scm_c_define ("hooks/send/message", scm_long2num (Hook::SEND_MESSAGE));
- scm_c_define ("hooks/send/action", scm_long2num (Hook::SEND_ACTION));
- scm_c_define ("hooks/send/ctcp", scm_long2num (Hook::SEND_CTCP));
- scm_c_define ("hooks/send/who", scm_long2num (Hook::SEND_WHO));
- scm_c_define ("hooks/send/whois", scm_long2num (Hook::SEND_WHOIS));
+ scm_c_define ("hooks/send/public", scm_from_int (Hook::SEND_PUBLIC));
+ scm_c_define ("hooks/send/message", scm_from_int (Hook::SEND_MESSAGE));
+ scm_c_define ("hooks/send/action", scm_from_int (Hook::SEND_ACTION));
+ scm_c_define ("hooks/send/ctcp", scm_from_int (Hook::SEND_CTCP));
+ scm_c_define ("hooks/send/who", scm_from_int (Hook::SEND_WHO));
+ scm_c_define ("hooks/send/whois", scm_from_int (Hook::SEND_WHOIS));
// dcc hooks
scm_c_define ("hooks/dcc/chat-begin",
- scm_long2num (Hook::DCC_CHAT_BEGIN));
+ scm_from_int (Hook::DCC_CHAT_BEGIN));
scm_c_define ("hooks/dcc/chat-end",
- scm_long2num (Hook::DCC_CHAT_END));
+ scm_from_int (Hook::DCC_CHAT_END));
scm_c_define ("hooks/dcc/chat-message",
- scm_long2num (Hook::DCC_CHAT_MESSAGE));
+ scm_from_int (Hook::DCC_CHAT_MESSAGE));
// procedures
bot_new_procedure ("bot:action", (SCMFunc)ScriptCommands::Action, 2, 0, 0);
// load bobot-utils
scm_primitive_load
- (scm_makfrom0str (String(PREFIX) +
- "/share/bobotpp/scripts/bobot-utils.scm"));
+ (scm_from_locale_string (String(PREFIX) +
+ "/share/bobotpp/scripts/bobot-utils.scm"));
return SCM_UNSPECIFIED;
}
void
Interp::Shutdown()
{
- scm_c_run_hook (gh_lookup ("bot:exit-hook"), SCM_EOL);
+ scm_c_run_hook (scm_variable_ref (scm_c_module_lookup (bot_module,
+ "bot:exit-hook")),
+ SCM_EOL);
}
void
// ScriptCommands.C -*- C++ -*-
// Copyright (c) 1998 Etienne BERNARD
-// Copyright (C) 2002,2005 Clinton Ebadi
+// Copyright (C) 2002,2005,2008 Clinton Ebadi
// This program is free software; you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
#include "Message.H"
#include <libguile.h>
-#define VERIFY_STRING(par) if (!SCM_STRINGP((par))) \
- return scm_long2num(-17)
+#define VERIFY_STRING(par) if (!scm_is_string((par))) \
+ return scm_from_int(-17)
#define VERIFY_NUMBER(par) if (!SCM_NUMBERP((par))) \
- return scm_long2num(-17)
+ return scm_from_int(-17)
SCM
ScriptCommands::Action(SCM channel, SCM message)
VERIFY_STRING(message);
Message m = Commands::Action(Interp::bot, Utils::scm2str(channel),
Utils::scm2str(message));
- return scm_long2num(m.getCode());
+ return scm_from_int(m.getCode());
}
SCM
if (!eexpire) eexpire = -1;
}
- int protect = scm_num2int (prot, SCM_ARG1, "ScriptCommands::AddUser");
- bool aaop = SCM_NFALSEP (aop);
- int llevel = scm_num2int (level, SCM_ARG1,
- "ScriptCommands::AddUser");
+ int protect = scm_to_int (prot);
+ bool aaop = scm_is_true (aop);
+ int llevel = scm_to_int (level);
Message m = Commands::AddUser (Interp::bot, wwho, mask, llevel,
protect, aaop, eexpire, passwd);
- return scm_long2num(m.getCode ());
+ return scm_from_int(m.getCode ());
}
SCM
{
int p = 6667;
if (SCM_NUMBERP(port))
- p = scm_num2long(port, SCM_ARG1, "ScriptCommands::AddServer");
+ p = scm_to_int (port);
Message m = Commands::AddServer(Interp::bot,
Utils::scm2str(servername),
p);
- return scm_long2num(m.getCode());
+ return scm_from_int(m.getCode());
}
SCM
VERIFY_NUMBER (level);
String mmask = Utils::scm2str (mask);
String mmaskChannel = Utils::scm2str (maskChannel);
- int llevel = scm_num2int (level, SCM_ARG1, "ScriptCommands::AddShit");
+ int llevel = scm_to_int (level);
std::time_t expire;
String rreason;
Message m = Commands::AddShit (Interp::bot, mmask, mmaskChannel,
llevel, expire, rreason);
- return scm_long2num(m.getCode ());
+ return scm_from_int(m.getCode ());
}
SCM
VERIFY_STRING(who);
Message m = Commands::Ban(Interp::bot, Utils::scm2str(channel),
Utils::scm2str(who));
- return scm_long2num(m.getCode());
+ return scm_from_int(m.getCode());
}
SCM
VERIFY_STRING (command);
VERIFY_NUMBER (level);
- SCM_STRING_COERCE_0TERMINATION_X (command);
- std::string ccommand = SCM_STRING_CHARS (command);
- unsigned int llevel = scm_num2uint
- (level, 0, "ScriptCommands::ChangeCommandLevel");
+ std::string ccommand = scm_to_locale_string (command);
+ unsigned int llevel = scm_to_uint (level);
if (llevel > 4)
return SCM_BOOL_F;
{
VERIFY_STRING(channel);
Message m = Commands::Cycle(Interp::bot, Utils::scm2str(channel));
- return scm_long2num(m.getCode());
+ return scm_from_int(m.getCode());
}
SCM
VERIFY_STRING(who);
Message m = Commands::Deban(Interp::bot, Utils::scm2str(channel),
Utils::scm2str(who));
- return scm_long2num(m.getCode());
+ return scm_from_int(m.getCode());
}
SCM
ScriptCommands::DelServer(SCM number)
{
VERIFY_NUMBER(number);
- Message m = Commands::DelServer(Interp::bot,
- scm_num2long(number, SCM_ARG1,
- "ScriptCommands::DelServer"));
- return scm_long2num(m.getCode());
+ Message m = Commands::DelServer(Interp::bot, scm_to_int (number));
+ return scm_from_int(m.getCode());
}
SCM
VERIFY_STRING(maskChannel);
Message m = Commands::DelUser(Interp::bot, Utils::scm2str(who),
Utils::scm2str(maskChannel));
- return scm_long2num(m.getCode());
+ return scm_from_int(m.getCode());
}
SCM
VERIFY_STRING(maskChannel);
Message m = Commands::DelShit(Interp::bot, Utils::scm2str(who),
Utils::scm2str(maskChannel));
- return scm_long2num(m.getCode());
+ return scm_from_int(m.getCode());
}
SCM
VERIFY_STRING(who);
Message m = Commands::Deop(Interp::bot, Utils::scm2str(channel),
Utils::scm2str(who));
- return scm_long2num(m.getCode());
+ return scm_from_int(m.getCode());
}
SCM
ScriptCommands::Die(SCM reason)
{
String r = "Leaving";
- if (SCM_STRINGP(reason))
+ if (scm_is_string(reason))
r = Utils::scm2str(reason);
Message m = Commands::Die(Interp::bot, r);
- return scm_long2num(m.getCode());
+ return scm_from_int(m.getCode());
}
SCM
{
VERIFY_STRING(command);
Message m = Commands::Do(Interp::bot, Utils::scm2str(command));
- return scm_long2num(m.getCode());
+ return scm_from_int(m.getCode());
}
SCM
VERIFY_STRING(who);
Message m = Commands::Invite(Interp::bot, Utils::scm2str(channel),
Utils::scm2str(who));
- return scm_long2num(m.getCode());
+ return scm_from_int(m.getCode());
}
SCM
{
VERIFY_STRING(channel);
String k = "";
- if (SCM_STRINGP(key))
+ if (scm_is_string(key))
k = Utils::scm2str(key);
Message m = Commands::Join(Interp::bot, Utils::scm2str(channel),
k);
- return scm_long2num(m.getCode());
+ return scm_from_int(m.getCode());
}
SCM
VERIFY_STRING(modes);
Message m = Commands::Keep(Interp::bot, Utils::scm2str(channel),
Utils::scm2str(modes));
- return scm_long2num(m.getCode());
+ return scm_from_int(m.getCode());
}
SCM
VERIFY_STRING(who);
String r = "";
- if (SCM_STRINGP(reason))
+ if (scm_is_string(reason))
r = Utils::scm2str(reason);
Message m = Commands::Kick(Interp::bot, Utils::scm2str(channel),
Utils::scm2str(who), r);
- return scm_long2num(m.getCode());
+ return scm_from_int(m.getCode());
}
SCM
VERIFY_STRING(channel);
VERIFY_STRING(who);
String r = "";
- if (SCM_STRINGP(reason))
+ if (scm_is_string(reason))
r = Utils::scm2str(reason);
Message m = Commands::KickBan(Interp::bot, Utils::scm2str(channel),
Utils::scm2str(who), r);
- return scm_long2num(m.getCode());
+ return scm_from_int(m.getCode());
}
SCM
{
VERIFY_STRING(channel);
Message m = Commands::Lock(Interp::bot, Utils::scm2str(channel));
- return scm_long2num(m.getCode());
+ return scm_from_int(m.getCode());
}
SCM
VERIFY_STRING(mode);
Message m = Commands::Mode(Interp::bot, Utils::scm2str(channel),
Utils::scm2str(mode));
- return scm_long2num(m.getCode());
+ return scm_from_int(m.getCode());
}
SCM
VERIFY_STRING(message);
Message m = Commands::Msg(Interp::bot, Utils::scm2str(nick),
Utils::scm2str(message));
- return scm_long2num(m.getCode());
+ return scm_from_int(m.getCode());
}
ScriptCommands::NextServer(void)
{
Message m = Commands::NextServer(Interp::bot);
- return scm_long2num(m.getCode());
+ return scm_from_int(m.getCode());
}
SCM
{
VERIFY_STRING(nick);
Message m = Commands::Nick(Interp::bot, Utils::scm2str(nick));
- return scm_long2num(m.getCode());
+ return scm_from_int(m.getCode());
}
SCM
VERIFY_STRING (to);
VERIFY_STRING (message);
- return (scm_long2num
+ return (scm_from_int
(Commands::Notice (Interp::bot,
Utils::scm2str (to),
Utils::scm2str (message)).getCode ()));
VERIFY_STRING(who);
Message m = Commands::Op(Interp::bot, Utils::scm2str(channel),
Utils::scm2str(who));
- return scm_long2num(m.getCode());
+ return scm_from_int(m.getCode());
}
SCM
{
VERIFY_STRING(channel);
Message m = Commands::Part(Interp::bot, Utils::scm2str(channel));
- return scm_long2num(m.getCode());
+ return scm_from_int(m.getCode());
}
SCM
ScriptCommands::Reconnect(void)
{
Message m = Commands::Reconnect(Interp::bot);
- return scm_long2num(m.getCode());
+ return scm_from_int(m.getCode());
}
SCM
VERIFY_STRING(message);
Message m = Commands::Say(Interp::bot, Utils::scm2str(channel),
Utils::scm2str(message));
- return scm_long2num(m.getCode());
+ return scm_from_int(m.getCode());
}
SCM
ScriptCommands::Server(SCM number)
{
VERIFY_NUMBER(number);
- Message m = Commands::Server(Interp::bot, gh_scm2long(number));
- return scm_long2num(m.getCode());
+ Message m = Commands::Server(Interp::bot, scm_to_int(number));
+ return scm_from_int(m.getCode());
}
SCM
ScriptCommands::SetFloodRate(SCM rate)
{
VERIFY_NUMBER(rate);
- Message m = Commands::SetFloodRate(Interp::bot, scm_num2uint
- (rate, 0, "SetFloodRate"));
- return scm_long2num(m.getCode());
+ Message m = Commands::SetFloodRate(Interp::bot, scm_to_uint (rate));
+ return scm_from_int(m.getCode());
}
SCM
ScriptCommands::SetVersion(SCM version)
{
Message m = Commands::SetVersion(Interp::bot, Utils::scm2str(version));
- return scm_long2num(m.getCode());
+ return scm_from_int(m.getCode());
}
SCM
VERIFY_STRING(who);
VERIFY_NUMBER(seconds);
Message m = Commands::TBan(Interp::bot, Utils::scm2str(channel),
- Utils::scm2str(who), gh_scm2long(seconds));
- return scm_long2num(m.getCode());
+ Utils::scm2str(who), scm_to_int(seconds));
+ return scm_from_int(m.getCode());
}
SCM
VERIFY_STRING(who);
VERIFY_NUMBER(seconds);
String r = "";
- if (SCM_STRINGP(reason))
+ if (scm_is_string(reason))
r = Utils::scm2str(reason);
Message m = Commands::TKBan(Interp::bot, Utils::scm2str(channel),
Utils::scm2str(who),
- gh_scm2long(seconds), r);
- return scm_long2num(m.getCode());
+ scm_to_int(seconds), r);
+ return scm_from_int(m.getCode());
}
SCM
VERIFY_STRING(topic);
Message m = Commands::Topic(Interp::bot, Utils::scm2str(channel),
Utils::scm2str(topic));
- return scm_long2num(m.getCode());
+ return scm_from_int(m.getCode());
}
SCM
{
VERIFY_STRING(channel);
Message m = Commands::Unlock(Interp::bot, Utils::scm2str(channel));
- return scm_long2num(m.getCode());
+ return scm_from_int(m.getCode());
}
SCM
Message m = Commands::Who (Interp::bot, Utils::scm2str (target));
- return scm_long2num (m.getCode ());
+ return scm_from_int (m.getCode ());
}
SCM
Message m = Commands::Whois (Interp::bot, Utils::scm2str (nick));
- return scm_long2num (m.getCode ());
+ return scm_from_int (m.getCode ());
}
SCM
::Server *serv = Interp::bot->serverList->currentServer();
int serverNumber = Interp::bot->serverList->currentNumber;
- return gh_list(scm_long2num(serverNumber),
+ return scm_list_n(scm_from_int(serverNumber),
Utils::str2scm(serv->getHostName()),
- scm_long2num(serv->getPort()),
+ scm_from_int(serv->getPort()),
Utils::str2scm(serv->getPassword()),
SCM_UNDEFINED);
}
SCM
ScriptCommands::getServerList(void)
{
- SCM res = gh_list(SCM_UNDEFINED);
+ SCM res = scm_list_n(SCM_UNDEFINED);
::Server *s;
int i = 0;
std::vector<class Server *>::iterator it =
for ( ; it != Interp::bot->serverList->end(); ++it) {
s = (*it);
- res = gh_append2(res,
- gh_list(gh_list(scm_long2num(i++),
- Utils::str2scm(s->getHostName()),
- scm_long2num(s->getPort()),
- Utils::str2scm(s->getPassword()),
- SCM_UNDEFINED), SCM_UNDEFINED));
- }
+ res =
+ scm_append
+ (scm_list_2 (res,
+ scm_list_n(scm_list_n(scm_from_int(i++),
+ Utils::str2scm(s->getHostName()),
+ scm_from_int(s->getPort()),
+ Utils::str2scm(s->getPassword()),
+ SCM_UNDEFINED), SCM_UNDEFINED)));
+ }
return res;
}
int max = 0;
//srand(time(NULL));
if (SCM_NUMBERP(scm_max))
- max = gh_scm2int(scm_max);
- return scm_long2num(max ? rand() % max : 0);
+ max = scm_to_int(scm_max);
+ return scm_from_int(max ? rand() % max : 0);
}
SCM
SCM scm_minLevel)
{
// We check that commandName is a string
- if (!SCM_STRINGP(scm_commandName))
+ if (!scm_is_string(scm_commandName))
return SCM_BOOL_F;
// We check that the command does not exist
return SCM_BOOL_F;
// Next we check that needsChannel is a boolean
- if (!gh_boolean_p(scm_needsChannel))
+ if (!scm_is_bool (scm_needsChannel))
return SCM_BOOL_F;
- bool needsChannel = gh_scm2bool(scm_needsChannel);
+ bool needsChannel = scm_to_bool(scm_needsChannel);
// We check that minLevel is an integer and that it's
// a valid level
if (!SCM_NUMBERP(scm_minLevel))
return SCM_BOOL_F;
- int minLevel = gh_scm2long(scm_minLevel);
+ int minLevel = scm_to_int(scm_minLevel);
if (minLevel < User::NONE || minLevel > User::MASTER)
return SCM_BOOL_F;
// We check that "scm_function" is a Scheme procedure
- if (!gh_procedure_p(scm_function))
+ if (!scm_is_true (scm_procedure_p(scm_function)))
return SCM_BOOL_F;
// We check that args is an integer and is between 0 and 20 (arbitrary limit)
if (!SCM_NUMBERP(scm_args))
return SCM_BOOL_F;
- int args = gh_scm2long(scm_args);
+ int args = scm_to_int(scm_args);
if (args < 0 || args > 20)
return SCM_BOOL_F;
ScriptCommands::delCommand(SCM scm_commandName)
{
// We check that commandName is a string
- if (!SCM_STRINGP(scm_commandName))
+ if (!scm_is_string(scm_commandName))
return SCM_BOOL_F;
// We check that the command does exist
String rname = "DEFAULT";
if (!SCM_UNBNDP (pri))
- priority = scm_num2int (pri, SCM_ARG1, "ScriptCommands::AddHook");
+ priority = scm_to_int (pri);
if (!SCM_UNBNDP (fall))
- fallt = SCM_NFALSEP (fall);
+ fallt = scm_is_true (fall);
if (!SCM_UNBNDP (name))
rname = Utils::scm2str (name);
- return SCM_BOOL (Interp::bot->botInterp->AddHook(gh_scm2long(type),
+ return scm_from_bool (Interp::bot->botInterp->AddHook(scm_to_int(type),
regex, function,
priority, fallt, rname));
}
SCM
ScriptCommands::AddTimer(SCM when, SCM function)
{
- return Interp::bot->botInterp->AddTimer(gh_scm2long(when), function);
+ return Interp::bot->botInterp->AddTimer(scm_to_int(when), function);
}
SCM
ScriptCommands::DelTimer(SCM timer)
{
- return SCM_BOOL (Interp::bot->botInterp->DelTimer(timer));
+ return scm_from_bool (Interp::bot->botInterp->DelTimer(timer));
}
SCM
ScriptCommands::sendDCCChatMessage (SCM to, SCM message)
{
- return SCM_BOOL (Interp::bot->dccConnections->sendMessage
+ return scm_from_bool (Interp::bot->dccConnections->sendMessage
(Utils::scm2str (to),
Utils::scm2str (message)));
}
HCoop / clinton / bobotpp.git / commitdiff