Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

42 lines (32 sloc) 0.779 kb
#include "clips.h"
#include "zmq.h"
#include "hypnotoad.h"
void UserFunctions(void);
void EnvUserFunctions(void *);
void * remote_retr_file()
{
DATA_OBJECT data;
RtnUnknown(1, &data);
char * filename = (char *) DOToString(data);
zmq_msg_t message;
zmq_msg_init_size (&message, strlen(filename));
memcpy (zmq_msg_data (&message), filename, strlen(filename));
zmq_send (pub, &message, 0);
zmq_msg_close (&message);
void * result = AddSymbol(filename);
return result;
}
void UserFunctions()
{
DefineFunction2("remote-retrieve-file",'s',PTIF remote_retr_file,"remote-retrieve-file","1s");
}
#if WIN_BTC
#pragma argsused
#endif
void EnvUserFunctions(
void *theEnv)
{
#if MAC_MCW || WIN_MCW || MAC_XCD
#pragma unused(theEnv)
#endif
}
Jump to Line
Something went wrong with that request. Please try again.