int GSocket_Verify_Inited()
{
OSStatus err ;
#if TARGET_CARBON
// Marc Newsam: added the clientcontext variable
// however, documentation is unclear how this works
OTClientContextPtr clientcontext;
if ( gInetSvcRef )
return TRUE ;
InitOpenTransportInContext(kInitOTForApplicationMask, &clientcontext);
gOTInited = 1 ;
gInetSvcRef = OTOpenInternetServicesInContext(kDefaultInternetServicesPath,
NULL, &err, clientcontext);
#else
if ( gInetSvcRef )
return TRUE ;
InitOpenTransport() ;
gOTInited = 1 ;
gInetSvcRef = OTOpenInternetServices(kDefaultInternetServicesPath, NULL, &err);
#endif
if ( gInetSvcRef == NULL || err != kOTNoError )
{
OTAssert("Could not open Inet Services", err == noErr);
return FALSE ;
}
gOTNotifierUPP = NewOTNotifyUPP( OTInetEventHandler ) ;
return TRUE ;
}
/* Initialize/Cleanup the network API */
int SDLNet_Init(void)
{
OSStatus status;
int retval;
dnsStatus.stat = dnsNotReady;
dnsStatus.dns = 0;
retval = 0;
if ( ! SDLNet_started ) {
status = InitOpenTransport();
if ( status == noErr ) {
retval = OpenDNS();
if ( retval < 0 ) {
SDLNet_Quit();
}
} else {
SDLNet_SetError("Unable to initialize Open Transport");
retval = status;
}
}
if ( retval == 0 ) {
++SDLNet_started;
}
return(retval);
}
OSStatus ot_OpenDriver( void)
{
OSStatus err;
int i;
// if this function has already been performed, then just return
if( gOTInited){
return( kOTNoError);
}
// Set up the global array of socket pointers and clear it
if( gSockets == NULL)
gSockets = (SocketPtr *) malloc(kNumSockets * sizeof(SocketPtr));
if( gSockets == NULL)
return(memFullErr);
for( i = 0; i < kNumSockets; i++)
gSockets[i] = NULL;
#if TARGET_API_MAC_CARBON
err = InitOpenTransportInContext(kInitOTForApplicationMask, NULL);
#else
err = InitOpenTransport();
#endif
gOTInited = (kOTNoError == err);
return( err);
}
void TCPLow_Create(TCPINSTANCE* pTcp, u_short* port, TCPPEER* peer, int* status)
{
TBind boundAddr;
InetAddress boundInetAddr;
InetInterfaceInfo inetInfo;
OSStatus err;
pTcp->isValid = false;
// Initialize OpenTransport
err = InitOpenTransport();
if (err != noErr) {
*status = comm_STATUS_BAD;
return;
}
// initialize Internet Services
pTcp->inetService = OTOpenInternetServices(kDefaultInternetServicesPath, 0, &err);
if (err != noErr) {
*status = comm_STATUS_BAD;
return;
}
// open an endpoint for sending and recieving data
err = CreateAndConfigUDP(&pTcp->udpEndpoint);
if (err != noErr) {
ShutDownUDP(pTcp->udpEndpoint);
*status = comm_STATUS_BAD;
return;
}
pTcp->isValid = true;
// Get information about Internet
err = OTInetGetInterfaceInfo(&inetInfo, kDefaultInetInterface);
if (err != noErr) {
//DebugStr("\pCannot Get Information About Default Interface");
*status = comm_STATUS_BAD;
ShutDownUDP(pTcp->udpEndpoint);
return;
}
boundAddr.addr.maxlen = sizeof(boundInetAddr);
boundAddr.addr.buf = (unsigned char*) &boundInetAddr;;
err = OTGetProtAddress(pTcp->udpEndpoint,&boundAddr,NULL);
if (err != noErr) {
*status = comm_STATUS_BAD;
ShutDownUDP(pTcp->udpEndpoint);
return;
}
peer->addr = inetInfo.fAddress;
peer->port = *port = boundInetAddr.fPort;
pTcp->myHandle = dcstReplace(pTcp->handles,pTcp->myHandle,peer);
}
int main()
{
OSStatus err;
void *tempmem;
DNSServiceRef sdRef;
DNSServiceErrorType dse;
SIOUXSettings.asktosaveonclose = false;
SIOUXSettings.userwindowtitle = "\pMulticast DNS Searcher";
SIOUXSettings.rows = 40;
SIOUXSettings.columns = 160;
printf("DNS-SD Search Client\n\n");
printf("This software reports errors using MacsBug breaks,\n");
printf("so if you don't have MacsBug installed your Mac may crash.\n\n");
printf("******************************************************************************\n\n");
if (DNSServiceBrowse == (void*)kUnresolvedCFragSymbolAddress)
{
printf("Before you can use mDNS/DNS-SD clients, you need to place the \n");
printf("\"Multicast DNS & DNS-SD\" Extension in the Extensions Folder and restart\n");
return(-1);
}
err = InitOpenTransport();
if (err) { printf("InitOpenTransport failed %d", err); return(err); }
// Make sure OT has a large enough memory pool for us to draw from at OTNotifier (interrupt) time
tempmem = OTAllocMem(0x10000);
if (tempmem) OTFreeMem(tempmem);
else printf("**** Warning: OTAllocMem couldn't pre-allocate 64K for us.\n");
services.serviceinfolist.fHead = NULL;
services.headerPrinted = false;
services.lostRecords = false;
printf("Sending mDNS service lookup queries and waiting for responses...\n\n");
dse = DNSServiceBrowse(&sdRef, 0, 0, "_http._tcp", "", FoundInstance, &services);
if (dse == kDNSServiceErr_NoError)
{
while (!YieldSomeTime(35))
{
if (services.serviceinfolist.fHead)
PrintServiceInfo(&services);
if (services.lostRecords)
{
services.lostRecords = false;
printf("**** Warning: Out of memory: Records have been missed.\n");
}
}
}
DNSServiceRefDeallocate(sdRef);
CloseOpenTransport();
return(0);
}
OSErr ot_init(void)
{
OSStatus err;
err = InitOpenTransport();
if (err != kOTNoError) return err;
ot.inetsvc = OTOpenInternetServices(kDefaultInternetServicesPath, 0, &err);
return err;
}
int main()
{
OSStatus err;
RegisteredService *s;
SIOUXSettings.asktosaveonclose = false;
SIOUXSettings.userwindowtitle = "\pMulticast DNS Responder";
printf("Multicast DNS Responder\n\n");
printf("This software reports errors using MacsBug breaks,\n");
printf("so if you don't have MacsBug installed your Mac may crash.\n\n");
printf("******************************************************************************\n\n");
err = InitOpenTransport();
if (err) { printf("InitOpenTransport failed %d", err); return(err); }
printf("Advertising Services...\n");
#define SRSET 0
#if SRSET==0
RegisterFakeServiceForTesting(&p1, "Web Server One", "_http._tcp.", "local.", "path=/index.html");
RegisterFakeServiceForTesting(&p2, "Web Server Two", "_http._tcp.", "local.", "path=/path.html");
#elif SRSET==1
RegisterFakeServiceForTesting(&p1, "Epson Stylus 900N", "_printer._tcp.", "local.", "rn=lpq1");
RegisterFakeServiceForTesting(&p2, "HP LaserJet", "_printer._tcp.", "local.", "rn=lpq2");
#else
RegisterFakeServiceForTesting(&p1, "My Printer", "_printer._tcp.", "local.", "rn=lpq3");
RegisterFakeServiceForTesting(&p2, "My Other Printer", "_printer._tcp.", "local.", "lrn=pq4");
#endif
// If AFP Server is running, register a record for it
CreateProxyRegistrationForRealService(&afp, "_afpovertcp._tcp.", 548, "");
// If Web Server is running, register a record for it
CreateProxyRegistrationForRealService(&http, "_http._tcp.", 80, "path=/index.html");
while (!YieldSomeTime(35))
for (s = services; s; s = s->next)
if (s->gotresult)
{
printf("%s %s %s registered\n", s->namestr, s->typestr, s->domstr);
s->gotresult = false;
}
for (s = services; s; s = s->next)
if (s->sdRef) DNSServiceRefDeallocate(s->sdRef);
CloseOpenTransport();
return(0);
}
int main()
{
mStatus err;
Boolean DoneSetup = false;
SIOUXSettings.asktosaveonclose = false;
SIOUXSettings.userwindowtitle = "\pMulticast DNS Responder";
printf("Multicast DNS Responder\n\n");
printf("This software reports errors using MacsBug breaks,\n");
printf("so if you don't have MacsBug installed your Mac may crash.\n\n");
printf("******************************************************************************\n");
err = InitOpenTransport();
if (err) { debugf("InitOpenTransport failed %d", err); return(err); }
err = mDNS_Init(&m, &p, mDNS_Init_NoCache, mDNS_Init_ZeroCacheSize,
mDNS_Init_AdvertiseLocalAddresses, mDNS_Init_NoInitCallback, mDNS_Init_NoInitCallbackContext);
if (err) return(err);
while (!YieldSomeTime(35))
{
#if MDNS_ONLYSYSTEMTASK
// For debugging, use "#define MDNS_ONLYSYSTEMTASK 1" and call mDNSPlatformIdle() periodically.
// For shipping code, don't define MDNS_ONLYSYSTEMTASK, and you don't need to call mDNSPlatformIdle()
extern void mDNSPlatformIdle(mDNS *const m);
mDNSPlatformIdle(&m); // Only needed for debugging version
#endif
if (m.mDNSPlatformStatus == mStatus_NoError && !DoneSetup)
{
DoneSetup = true;
printf("\nListening for mDNS queries...\n");
mDNSResponderTestSetup(&m);
}
}
if (p1.RR_SRV.resrec.RecordType ) mDNS_DeregisterService(&m, &p1);
if (p2.RR_SRV.resrec.RecordType ) mDNS_DeregisterService(&m, &p2);
if (afp.RR_SRV.resrec.RecordType ) mDNS_DeregisterService(&m, &afp);
if (http.RR_SRV.resrec.RecordType) mDNS_DeregisterService(&m, &http);
if (njp.RR_SRV.resrec.RecordType ) mDNS_DeregisterService(&m, &njp);
mDNS_Close(&m);
return(0);
}
NMErr NetworkStartup( void )
{
NMErr err = kNMNoError;
_playerCount = 0;
_nextPlayerID = 1;
/*on mac, we gotta set up OpenTransport, which we use for interrupt-safe allocations (since OpenPlay's messages come in at interrupt time)*/
#if (OP_PLATFORM_MAC_CFM)
#if (TARGET_API_MAC_CARBON)
err = InitOpenTransportInContext(kInitOTForApplicationMask,&theOTContext);
#else
err = InitOpenTransport();
#endif
#endif
return err;
}
static long
OpenNetwork(void)
{
OSStatus lStatus;
OSErr err;
long lResponse, lCriteria;
err = Gestalt(gestaltOpenTpt, &lResponse);
if (err == noErr) {
/* Older OpenTransport Headers require that thenext line read:
lCriteria = gestaltOpenTptPresent + gestaltOpenTptTCPPresent; */
lCriteria = gestaltOpenTptPresentMask + gestaltOpenTptTCPPresentMask;
lResponse = lCriteria & lResponse;
if (lResponse == lCriteria) {
#ifdef __CARBON__
lStatus=InitOpenTransportInContext(kInitOTForApplicationMask,NULL);
#else
lStatus = InitOpenTransport();
#endif
if (lStatus == noErr) {
if (OpenInetServices(&sSvcRef)) {
slNetSvcOpen=1;
return(1);
}
}
return(0);
/* OT present, but won't open */
}
}
#if !TARGET_API_MAC_CARBON
else {
gMacTCPDNRResultProcUPP = NewResultProc(&MacTCPDNRResultProc);
err = OpenResolver(nil);
if (err == noErr) {
slNetSvcOpen=1;
return(2);
}
}
#endif
return(0);
} /* end OpenNetwork() */
/*---------------------------------------------------------------------------*/
ExportFunc
sword AGNetInit(AGNetCtx *ctx)
{
OSStatus rc = 0;
if (NULL == ctx)
return AG_NET_ERROR;
rc = InitOpenTransport();
if (noErr == rc) {
AGNetIsInited = 1;
bzero(ctx, sizeof(AGNetCtx));
ctx->inet_services =
OTOpenInternetServices(kDefaultInternetServicesPath,
0,
&rc);
AGNetSetIOFuncs(ctx, NULL, NULL, NULL, NULL, NULL, NULL, NULL);
}
return rc;
}
void _MD_InitNetAccess()
{
OSErr err;
OSStatus errOT;
PRBool hasOTTCPIP = PR_FALSE;
PRBool hasOT = PR_FALSE;
long gestaltResult;
PRThread *me = _PR_MD_CURRENT_THREAD();
err = Gestalt(gestaltOpenTpt, &gestaltResult);
if (err == noErr)
if (gestaltResult & GESTALT_OPEN_TPT_PRESENT)
hasOT = PR_TRUE;
if (hasOT)
if (gestaltResult & GESTALT_OPEN_TPT_TCP_PRESENT)
hasOTTCPIP = PR_TRUE;
PR_ASSERT(hasOTTCPIP == PR_TRUE);
errOT = InitOpenTransport();
PR_ASSERT(err == kOTNoError);
sSvcRef = OTOpenInternetServices(kDefaultInternetServicesPath, NULL, &errOT);
if (errOT != kOTNoError) return; /* no network -- oh well */
PR_ASSERT((sSvcRef != NULL) && (errOT == kOTNoError));
/* Install notify function for DNR Address To String completion */
errOT = OTInstallNotifier(sSvcRef, NotifierRoutine, me);
PR_ASSERT(errOT == kOTNoError);
/* Put us into async mode */
errOT = OTSetAsynchronous(sSvcRef);
PR_ASSERT(errOT == kOTNoError);
/* XXX Does not handle absence of open tpt and tcp yet! */
}
int connect_chuukei_server(char *prf_name)
{
#ifndef MACINTOSH
#ifdef WINDOWS
WSADATA wsaData;
WORD wVersionRequested = (WORD) (( 1) | ( 1 << 8));
#endif
struct sockaddr_in ask;
struct hostent *hp;
if (read_chuukei_prf(prf_name) < 0)
{
printf("Wrong prf file\n");
return (-1);
}
if (init_buffer() < 0)
{
printf("Malloc error\n");
return (-1);
}
#ifdef WINDOWS
if (WSAStartup(wVersionRequested, &wsaData))
{
msg_print("Report: WSAStartup failed.");
return (-1);
}
#endif
printf("server = %s\nport = %d\n", server_name, server_port);
if ((hp = gethostbyname(server_name)) != NULL)
{
memset(&ask, 0, sizeof(ask));
memcpy(&ask.sin_addr, hp->h_addr_list[0], hp->h_length);
}
else
{
if ((ask.sin_addr.s_addr=inet_addr(server_name)) == 0)
{
printf("Bad hostname\n");
return (-1);
}
}
ask.sin_family = AF_INET;
ask.sin_port = htons((unsigned short)server_port);
#ifndef WINDOWS
if ((sd=socket(PF_INET,SOCK_STREAM, 0)) < 0)
#else
if ((sd=socket(PF_INET,SOCK_STREAM, 0)) == INVALID_SOCKET)
#endif
{
printf("Can't create socket\n");
return (-1);
}
if (connect(sd, (struct sockaddr *)&ask, sizeof(ask)) < 0)
{
close(sd);
printf("Can't connect %s port %d\n", server_name, server_port);
return (-1);
}
return (0);
#else /* MACINTOSH */
OSStatus err;
InetHostInfo response;
InetHost host_addr;
InetAddress inAddr;
TCall sndCall;
Boolean bind = false;
OSStatus junk;
if (read_chuukei_prf(prf_name) < 0){
printf("Wrong prf file\n");
return (-1);
}
init_buffer();
printf("server = %s\nport = %d\n", server_name, server_port);
#if TARGET_API_MAC_CARBON
err = InitOpenTransportInContext(kInitOTForApplicationMask, NULL);
#else
err = InitOpenTransport();
#endif
memset(&response, 0, sizeof(response));
#if TARGET_API_MAC_CARBON
inet_services = OTOpenInternetServicesInContext(kDefaultInternetServicesPath, 0, &err, NULL);
#else
inet_services = OTOpenInternetServices(kDefaultInternetServicesPath, 0, &err);
#endif
if (err == noErr) {
err = OTInetStringToAddress(inet_services, (char *)server_name, &response);
if (err == noErr) {
host_addr = response.addrs[0];
} else {
printf("Bad hostname\n");
}
#if TARGET_API_MAC_CARBON
ep = (void *)OTOpenEndpointInContext(OTCreateConfiguration(kTCPName), 0, nil, &err, NULL);
#else
ep = (void *)OTOpenEndpoint(OTCreateConfiguration(kTCPName), 0, nil, &err);
#endif
if (err == noErr) {
err = OTBind(ep, nil, nil);
bind = (err == noErr);
}
if (err == noErr){
OTInitInetAddress(&inAddr, server_port, host_addr);
sndCall.addr.len = sizeof(InetAddress);
sndCall.addr.buf = (unsigned char*) &inAddr;
sndCall.opt.buf = nil; /* no connection options */
sndCall.opt.len = 0;
sndCall.udata.buf = nil; /* no connection data */
sndCall.udata.len = 0;
sndCall.sequence = 0; /* ignored by OTConnect */
err = OTConnect(ep, &sndCall, NULL);
if( err != noErr ){
printf("Can't connect %s port %d\n", server_name, server_port);
}
}
err = OTSetSynchronous(ep);
if (err == noErr)
err = OTSetBlocking(ep);
}
if( err != noErr ){
if( bind ){
OTUnbind(ep);
}
/* Clean up. */
if (ep != kOTInvalidEndpointRef) {
OTCloseProvider(ep);
ep = nil;
}
if (inet_services != nil) {
OTCloseProvider(inet_services);
inet_services = nil;
}
return -1;
}
return 0;
#endif
}
int main()
{
mStatus err;
Boolean DoneSetup = false;
void *tempmem;
SIOUXSettings.asktosaveonclose = false;
SIOUXSettings.userwindowtitle = "\pMulticast DNS Searcher";
SIOUXSettings.rows = 40;
SIOUXSettings.columns = 132;
printf("Multicast DNS Searcher\n\n");
printf("This software reports errors using MacsBug breaks,\n");
printf("so if you don't have MacsBug installed your Mac may crash.\n\n");
printf("******************************************************************************\n");
err = InitOpenTransport();
if (err) { debugf("InitOpenTransport failed %d", err); return(err); }
err = mDNS_Init(&mDNSStorage, &PlatformSupportStorage, rrcachestorage, RR_CACHE_SIZE,
mDNS_Init_DontAdvertiseLocalAddresses, mDNS_Init_NoInitCallback, mDNS_Init_NoInitCallbackContext);
if (err) return(err);
// Make sure OT has a large enough memory pool for us to draw from at OTNotifier (interrupt) time
tempmem = OTAllocMem(0x10000);
if (tempmem) OTFreeMem(tempmem);
else printf("**** Warning: OTAllocMem couldn't pre-allocate 64K for us.\n");
services.serviceinfolist.fHead = NULL;
services.headerPrinted = false;
services.lostRecords = false;
while (!YieldSomeTime(35))
{
#if MDNS_ONLYSYSTEMTASK
// For debugging, use "#define MDNS_ONLYSYSTEMTASK 1" and call mDNSPlatformIdle() periodically.
// For shipping code, don't define MDNS_ONLYSYSTEMTASK, and you don't need to call mDNSPlatformIdle()
extern void mDNSPlatformIdle(mDNS *const m);
mDNSPlatformIdle(&mDNSStorage); // Only needed for debugging version
#endif
if (mDNSStorage.mDNSPlatformStatus == mStatus_NoError && !DoneSetup)
{
domainname srvtype, srvdom;
DoneSetup = true;
printf("\nSending mDNS service lookup queries and waiting for responses...\n\n");
MakeDomainNameFromDNSNameString(&srvtype, "_http._tcp.");
MakeDomainNameFromDNSNameString(&srvdom, "local.");
err = mDNS_StartBrowse(&mDNSStorage, &browsequestion, &srvtype, &srvdom, mDNSInterface_Any, mDNSfalse, FoundInstance, &services);
if (err) break;
err = mDNS_GetDomains(&mDNSStorage, &domainquestion, mDNS_DomainTypeBrowse, NULL, mDNSInterface_Any, FoundDomain, &services);
if (err) break;
}
if (services.serviceinfolist.fHead)
PrintServiceInfo(&services);
if (services.lostRecords)
{
services.lostRecords = false;
printf("**** Warning: Out of memory: Records have been missed.\n");
}
}
mDNS_StopBrowse(&mDNSStorage, &browsequestion);
mDNS_Close(&mDNSStorage);
return(0);
}
errr report_score(void)
{
#ifdef MACINTOSH
OSStatus err;
#else
errr err = 0;
#endif
#ifdef WINDOWS
WSADATA wsaData;
WORD wVersionRequested =(WORD) (( 1) | ( 1 << 8));
#endif
BUF *score;
int sd;
char seikakutmp[128];
score = buf_new();
sprintf(seikakutmp, "%s ", ap_ptr->title);
buf_sprintf(score, "name: %s\n", player_name);
buf_sprintf(score, "version: Hengband %d.%d.%d\n",
FAKE_VER_MAJOR-10, FAKE_VER_MINOR, FAKE_VER_PATCH);
buf_sprintf(score, "score: %d\n", total_points());
buf_sprintf(score, "level: %d\n", p_ptr->lev);
buf_sprintf(score, "depth: %d\n", dun_level);
buf_sprintf(score, "maxlv: %d\n", p_ptr->max_plv);
buf_sprintf(score, "maxdp: %d\n", max_dlv[DUNGEON_ANGBAND]);
buf_sprintf(score, "au: %d\n", p_ptr->au);
buf_sprintf(score, "turns: %d\n", turn_real(turn));
buf_sprintf(score, "sex: %d\n", p_ptr->psex);
buf_sprintf(score, "race: %s\n", rp_ptr->title);
buf_sprintf(score, "class: %s\n", cp_ptr->title);
buf_sprintf(score, "seikaku: %s\n", seikakutmp);
buf_sprintf(score, "realm1: %s\n", realm_names[p_ptr->realm1]);
buf_sprintf(score, "realm2: %s\n", realm_names[p_ptr->realm2]);
buf_sprintf(score, "killer: %s\n", p_ptr->died_from);
buf_sprintf(score, "-----charcter dump-----\n");
make_dump(score);
if (screen_dump)
{
buf_sprintf(score, "-----screen shot-----\n");
buf_append(score, screen_dump, strlen(screen_dump));
}
#ifdef WINDOWS
if (WSAStartup(wVersionRequested, &wsaData))
{
msg_print("Report: WSAStartup failed.");
goto report_end;
}
#endif
#ifdef MACINTOSH
#if TARGET_API_MAC_CARBON
err = InitOpenTransportInContext(kInitOTForApplicationMask, NULL);
#else
err = InitOpenTransport();
#endif
if (err != noErr)
{
msg_print("Report: OpenTransport failed.");
return 1;
}
#endif
Term_clear();
while (1)
{
char buff[160];
prt("connecting...", 0, 0);
Term_fresh();
/* プロキシを設定する */
set_proxy(HTTP_PROXY, HTTP_PROXY_PORT);
/* Connect to the score server */
sd = connect_server(HTTP_TIMEOUT, SCORE_SERVER, SCORE_PORT);
if (!(sd < 0)) break;
sprintf(buff, "Failed to connect to the score server.(%s)", soc_err());
prt(buff, 0, 0);
(void)inkey();
if (!get_check_strict("Try again? ", CHECK_NO_HISTORY))
{
err = 1;
goto report_end;
}
}
prt("Sending the score...", 0, 0);
Term_fresh();
http_post(sd, SCORE_PATH, score);
disconnect_server(sd);
report_end:
#ifdef WINDOWS
WSACleanup();
#endif
#ifdef MACINTOSH
#if TARGET_API_MAC_CARBON
CloseOpenTransportInContext(NULL);
#else
CloseOpenTransport();
#endif
#endif
return err;
}
void main(fptr *f) {
long oldA4;
OSStatus err;
DateTimeRec date;
oldA4 = SetCurrentA4();
RememberA4();
FNS = f;
#ifdef MULTI_SEGMENT
/* Multi-segment code resource stuff */
{
Str255 buf;
short i, n, theID;
char **ch;
OSType theType;
n = Count1Resources('Cccc');
post("This external has %ld resources", (long) n);
for (i = 1; i <= n; i++) {
ch = Get1IndResource('Cccc', i);
GetResInfo(ch, &theID, &theType, buf);
rescopy('Cccc', theID);
}
}
#endif
#ifdef EXTENDED_CODE_RESOURCE
// Cause it's an extended code resource...
// rescopy('Cccc',22222);
#endif
ps_readbufsize = gensym("readbufsize");
ps_writebufsize = gensym("writebufsize");
ps_OTTCP_nbytes = gensym("OTTCP_nbytes");
ps_OTTCP_delim = gensym("OTTCP_delim");
ps_connected = gensym("connected");
ps_disconnected = gensym("disconnected");
setup(&ottcp_class, ottcp_new, (method) ottcp_free, (short)sizeof(OTTCP), 0L, A_GIMME, 0);
version(0);
#ifdef DAVID_LIKES_EXPIRING_MAX_OBJECTS
post("Expires %d/%d/%d", MONTH, DAY, YEAR);
#endif
#ifdef DAVID_LIKES_EXPIRING_MAX_OBJECTS
GetTime(&date);
if((date.year > YEAR) ||
(date.year == YEAR && ((date.month > MONTH) ||
(date.month == MONTH && date.day > DAY)))) {
ouchstring(EXPIRATION_NOTICE);
goto quit;
}
#endif
// post ("*** before InitOpenTransport();");
err = InitOpenTransport();
if (err != kOTNoError) {
ouchstring("Couldn't InitOpenTransport (err %d). Perhaps Open Transport is not installed.",
err);
goto quit;
}
/* bind methods */
addmess((method) ottcp_connect, "connect", A_SYM, A_LONG, 0);
addmess((method) ottcp_disconnect, "disconnect", 0);
addmess((method) ottcp_read_nbytes, "nbytes", A_LONG, 0);
addmess((method) ottcp_read_until_delimiter_symbol, "delim", A_SYM, 0);
addmess((method) ottcp_read_until_delimiter_bytes, "delim-bytes", A_GIMME, 0);
addmess((method) ottcp_write, "write", A_LONG, A_LONG, 0);
addmess((method) version, "version", 0);
addmess((method) ottcp_ErrorReporting, "errorreporting", 0);
addmess((method) ottcp_tellmeeverything, "tellmeeverything", 0);
addmess((method) ottcp_assist, "assist", A_CANT, 0);
finder_addclass("System","ottcp");
quit:
RestoreA4(oldA4);
}
int main()
{
mStatus err;
Boolean DoneSetup = false;
mDNSs32 nextAvail, nextBusy;
SIOUXSettings.asktosaveonclose = false;
SIOUXSettings.userwindowtitle = "\pMulticast DNS Responder";
printf("Multicast DNS Responder\n\n");
printf("This software reports errors using MacsBug breaks,\n");
printf("so if you don't have MacsBug installed your Mac may crash.\n\n");
printf("******************************************************************************\n");
err = InitOpenTransport();
if (err) { debugf("InitOpenTransport failed %d", err); return(err); }
err = mDNS_Init(&m, &p, mDNS_Init_NoCache, mDNS_Init_ZeroCacheSize,
mDNS_Init_AdvertiseLocalAddresses, mDNS_Init_NoInitCallback, mDNS_Init_NoInitCallbackContext);
if (err) return(err);
while (!YieldSomeTime(35))
{
#if MDNS_ONLYSYSTEMTASK
// For debugging, use "#define MDNS_ONLYSYSTEMTASK 1" and call mDNSPlatformIdle() periodically.
// For shipping code, don't define MDNS_ONLYSYSTEMTASK, and you don't need to call mDNSPlatformIdle()
extern void mDNSPlatformIdle(mDNS *const m);
mDNSPlatformIdle(&m); // Only needed for debugging version
#endif
if (m.mDNSPlatformStatus == mStatus_NoError && !DoneSetup)
{
DoneSetup = true;
printf("\nListening for mDNS queries...\n");
mDNSResponderTestSetup(&m);
mDNSResponderSetAvail(&m, &availRec1, &p1);
availRec2Active = false;
nextAvail = mDNS_TimeNow(&m) + mDNSPlatformOneSecond * 10;
nextBusy = mDNS_TimeNow(&m) + mDNSPlatformOneSecond * 15;
}
if (DoneSetup)
{
// We check availRec2.RecordType because we don't want to re-register this record
// if the previous mDNS_Deregister() has not yet completed
if (mDNS_TimeNow(&m) - nextAvail > 0 && !availRec2Active)
{
printf("Setting Two now available\n");
availRec2Active = true;
mDNSResponderSetAvail(&m, &availRec2, &p2);
nextAvail = nextBusy + mDNSPlatformOneSecond * 10;
}
else if (mDNS_TimeNow(&m) - nextBusy > 0)
{
printf("Setting Two now busy\n");
mDNS_Deregister(&m, &availRec2);
nextBusy = nextAvail + mDNSPlatformOneSecond * 5;
}
}
}
if (p1.RR_SRV.resrec.RecordType) mDNS_DeregisterService(&m, &p1);
if (p2.RR_SRV.resrec.RecordType) mDNS_DeregisterService(&m, &p2);
if (availRec1.resrec.RecordType) mDNS_Deregister(&m, &availRec1);
if (availRec2Active) mDNS_Deregister(&m, &availRec2);
mDNS_Close(&m);
return(0);
}
int
commInit(
commInitReq_t * req, // Request (or NULL)
commInitResp_t * resp) // Response (or NULL)
{
commInitReq_t reqDummy;
commInitResp_t respDummy;
ip_adr_t adr_broadcast;
ip_adr_t *padr;
OSStatus err;
extern Str255 gSavedSelection;
// DebugStr ( "\pcommInit()" );
DPRINT(("@TRUMP commInit(): "));
if (req == NULL)
req = (commInitReq_t *)memset(&reqDummy, 0, sizeof(*req));
if (resp == NULL)
resp = &respDummy;
scratch_flat = malloc(MAX_RAW_PKTLEN);
//scratch_flat = my_dos_malloc(MAX_RAW_PKTLEN, &scratch_seg, &scratch_off, &scratch_selector);
if (!scratch_flat) {
DPRINT(("commInit: couldn't allocate DOS memory!\n"));
resp->status = comm_STATUS_BAD;
return FALSE;
}
// check for the existanct of OpenTransport
if(!OpenTransportExists() || !OpenTransportInetExists()) {
//DebugStr("\pOpen Transport Does Not Exist");
DPRINT(("commInit: UDP ABI not found\n"));
resp->status = comm_STATUS_NETWORK_NOT_PRESENT;
free(scratch_flat);
return FALSE;
}
// Initialize OpenTransport
err = InitOpenTransport();
if (err != noErr) {
resp->status = comm_STATUS_BAD;
free(scratch_flat);
return FALSE;
}
// initialize Internet Services
gInetService = OTOpenInternetServices(kDefaultInternetServicesPath, 0, &err);
if (err != noErr) {
resp->status = comm_STATUS_BAD;
free(scratch_flat);
return FALSE;
}
// open an endpoint for sending and recieving data
err = CreateAndConfigUDP(&gUDPEndpoint);
if (err != noErr) {
resp->status = comm_STATUS_BAD;
free(scratch_flat);
ShutDownUDP();
return FALSE;
}
// create the peer table
peertab = assoctab_create(sizeof(ip_adr_t));
if (!peertab) {
// ABORT! Out of Memory
resp->status = comm_STATUS_BAD;
free(scratch_flat);
ShutDownUDP();
return FALSE;
}
// Get information about the Internet
err = OTInetGetInterfaceInfo(&gInetInfo, kDefaultInetInterface);
if (err != noErr) {
//DebugStr("\pCannot Get Information About Default Interface");
resp->status = comm_STATUS_BAD;
free(scratch_flat);
ShutDownUDP();
return FALSE;
}
// Store our address in the peer table under the bogus ME handle
padr = (ip_adr_t *)assoctab_subscript_grow(peertab, trump_HDL_ME);
if (!padr) {
DPRINT(("commInit: couldn't grow peer table\n"));
resp->status = comm_STATUS_BAD;
free(scratch_flat);
assoctab_destroy(peertab);
ShutDownUDP();
return FALSE;
}
dprint_peertab(peertab);
DPRINT(("commInit: saving handle %d adr %x at %p\n", trump_HDL_ME, gInetInfo.fAddress, padr));
memcpy(padr, &gInetInfo.fAddress, sizeof(ip_adr_t));
dprint_peertab(peertab);
// Open a handle good for receiving packets on the standard port
// SRC = (*,*)
// DEST = (localhost, pt->port)
adr_broadcast = 0xffffffff;
hdl_rx = trump_adr2hdl(adr_broadcast, SOCKET_MW2, SOCKET_MW2, TRUE);
if (hdl_rx == trump_HDL_NONE) {
DPRINT(("commInit: couldn't open handle for listening\n"));
resp->status = comm_STATUS_BUSY;
free(scratch_flat);
assoctab_destroy(peertab);
ShutDownUDP();
return FALSE;
}
/*
if ((req->flags & comm_INIT_FLAGS_RESUME) == 0) {
if (!DoHostListDialog()) {
resp->status = comm_STATUS_EMPTY;
free(scratch_flat);
assoctab_destroy(peertab);
ShutDownUDP();
return FALSE;
}
} else {
// we need to load the last string selected when we are resuming
OpenPrefsFile();
p2cstr(gSavedSelection); // the apps like C-strings
ClosePrefsFile();
}
*/
// initialize our address list to nothing
InitAddressList();
// add our own address to the beginning of the list (it MUST Be the first
// address in our list - we broadcast to all _other_ addresses in our list)
AddAddressToList(gInetInfo.fAddress);
// add the address from the dialog to our broadcast list if the user chose one
if (gSavedSelection[0] != 0) {
InetHostInfo theHostInfo;
OTSetSynchronous(gInetService);
err = OTInetStringToAddress(gInetService, gSavedSelection, &theHostInfo);
OTSetAsynchronous(gInetService);
if (err == noErr) {
AddAddressToList(theHostInfo.addrs[0]);
}
}
resp->status = comm_STATUS_OK;
DPRINT(("commInit: success\n"));
return TRUE;
}
