Macintosh-SW
/
sys7.1-doc-wip
mirror of https://github.com/elliotnunn/sys7.1-doc-wip.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
sys7.1-doc-wip/OS/PPC/PPCBrowser.c

4299 lines
98 KiB
C
Raw Blame History

/*
Hacks to match MacOS (most recent first):
<Sys7.1> 8/3/92 Elliot make this change
9/2/94 SuperMario ROM source dump (header preserved below)
*/
/*
File: PPCBrowser.c
Contains: C routines for the PPC Browser
Written by: Jeff Miller
Copyright: © 1990, 1992 by Apple Computer, Inc., all rights reserved.
This file is used in these builds: Bigbang
Change History (most recent first):
SM2 <36> 10/2/90 JAL Changed all occurances of GetMyZone to PPCGetMyZone because of conflict
with new AppleTalk Phase II. Screwed up version <35>.
<34> 9/21/90 JSM Update to use new "real" PPCToolbox.h (I checked, it generates
exactly the same object code as the last revision.)
<33> 9/21/90 JSM <VL> Make sure theLoc and thePortInfo are valid.
<32> 9/21/90 JSM <TAR> Return paramErr if defaultSpecified and
theLoc.locationKindSelector is ppcNBPTypeLocation.
<31> 9/16/90 JSM Return paramErr if theLocNBPType contains a wildcard.
<30> 9/15/90 JSM Update for new PPCToolbox.h.
<29> 9/14/90 JSM Add support for theLocNBPType parameter.
<28> 8/21/90 JSM Add support for default prompt.
<27> 7/25/90 JSM Add FixMachRects and misc. other changes from the Diet Clinic.
<26> 6/25/90 JSM Fix bug in CheckOurMachine where current selection was not
updated correctly if our machine was inserted before it.
<25> 6/19/90 JSM Remove CenterDialog, done via DLOG resource now.
<24> 5/29/90 JSM Update to support new Chooser-style interface, look for machine
name STR in System first before using <This Macintosh>.
<23> 5/3/90 JSM Remove workaround for type select utilities bug.
<22> 5/3/90 JSM Use the new type select utilities.
<21> 5/2/90 JSM Don't compare authReq field in PortInfo when doing default
selection.
<20> 4/24/90 JSM More code size reduction: combine and cleanup routines to
enable/disable and outline OK button.
<19> 4/13/90 JSM Save and restore current GrafPort.
<18> 4/9/90 JSM Use less code to show ports with the same nameStr.
<17> 4/8/90 JSM Show ports with the same nameStr but different types.
<16> 4/5/90 JSM Don't use GetIndPattern, call PenPatGray now.
<15> 4/3/90 JSM Do nullEvent processing at updateEvt time, too.
<14> 3/27/90 JSM Fix bug in MyListUpdate where LUpdate could be called with a
NULL ListHandle.
<13> 3/26/90 JSM Fix bug in PollNBP that caused crashes on 68000 machines,
implement shift-tab support, change SelectAndReveal to scroll to
top of list always.
<12> 3/23/90 JSM Reduce code size, call filter proc every time PortInfo changes
instead of just the first time it is returned.
<11> 3/22/90 JSM Fix bug where home machine would not be selected if AppleTalk is
enabled but there is no zone list.
<10> 3/19/90 JSM Add support for machine not registered on network, always
PPCInit, save and restore SetSelfSend state, use PortInfo
instead of PortName.
<9> 3/15/90 JSM Add support for browser configuration resource.
<8> 3/14/90 JSM Return NoLocName in theLoc if a port in the local machine is
chosen.
<7> 3/14/90 JSM Fix bug setting up application list when AppleTalk is disabled.
<6> 3/12/90 JSM Add support for zones coming and going.
<5> 3/8/90 JSM Update to do asynchronous NBP lookups and IPCListPorts.
<4> 3/2/90 JSM Update GetIndPattern calls to work with new ToolUtils.h.
<3> 2/27/90 JSM Add support for defaultSpecified.
<2> 2/20/90 JSM Add support for AppleTalk being disabled.
<1> 2/19/90 JSM First checked in.
To Do:
Improve error handling - not returning errors everywhere we should.
*/
/* get our private header */
#include "PPCBrowserPriv.h"
#include <Resources.h>
#define ROMMapInsert (* (short*) 0xB9E)
/* I M P O R T S */
short InsertListCell(char *theStr, ListHandle theList, Boolean *unique);
void PenPatGray();
Boolean ContainsWildcard(char *theStr);
/* E X P O R T S */
pascal OSErr MyPPCBrowser(const Str255 prompt, const Str255 applListLabel,
Boolean defaultSpecified, LocationNameRec *theLoc, PortInfoRec *thePortInfo,
PPCFilterProcPtr portFilter, const Str32 theLocNBPType);
pascal Boolean BrowseFilt(DialogPtr theDialog, EventRecord *theEvent, short *itemhit);
Boolean PPCGetMyZone(Str32 homeZone);
OSErr FillZoneList(ListHandle theZoneList);
void NewZoneSelected(browseGlobals *globs);
void NewMachSelected(browseGlobals *globs);
void NewApplSelected(browseGlobals *globs);
void ZoneListCommon(browseGlobals *globs);
void ShowZoneList(browseGlobals *globs);
void HideZoneList(browseGlobals *globs);
void CheckOurMachine(browseGlobals *globs);
void GetCurrentPortLoc(browseGlobals *globs, LocationNameRec *currLoc);
void GetCurrentPortInfo(browseGlobals *globs, PortInfoRec *thePortInfo);
Boolean ComparePortInfo(PortInfoRec *thePortInfo1, PortInfoRec *thePortInfo2);
short ComparePortName(PPCPortRec *thePortName1, PPCPortRec *thePortName2);
short CheckButtonKey(DialogPtr theDialog, EventRecord *theEvent);
void HandleListKeys(browseGlobals *globs, EventRecord *theEvent);
void HandleListArrows(char theChar, ListHandle theList);
void FindMatch(ListHandle theList, TypeSelectRecord *theTSR);
void SetupListUserItems(DialogPtr theDialog, short titleItem, short listItem,
short listOutline);
ListHandle CreateNewList(DialogPtr theDialog, short listItem, short numColumns);
void EraseListRects(browseGlobals *globs);
void EraseAndInvalItem(DialogPtr theDialog, short theItem);
void FixListRects(browseGlobals *globs);
void FixMachRects(DialogPtr theDialog, short bottDelta);
Boolean GetSelectedCell(ListHandle list, Cell *theCell);
Boolean GetSelectedText(ListHandle list, char *theText, Cell *theCell);
void SelectAndReveal(Cell theCell, ListHandle theList);
void SelectAndRevealArrows(Cell theCell, ListHandle theList);
void SelectAndRevealRelative(Cell theCell, ListHandle theList);
Boolean FindAndSelectCell(ListHandle theList, char *theText);
Boolean FindAndSelectPortInfoCell(ListHandle theList, PortInfoRec *thePortInfo);
void SetupDefaultButton(DialogPtr theDialog, short hilite);
void FlashButton(DialogPtr theDialog, short itemNo);
pascal void MyListUpdate(DialogPtr theDialog, short itemNo);
pascal void RectOutline(DialogPtr theDialog, short itemNo);
void FrameList(DialogPtr theDialog, short index);
pascal void BtnOutline(DialogPtr theDialog, short itemNo);
pascal void CenterTitleProc(DialogPtr dialog, short item);
void SetItemHandle(DialogPtr dialog, short item, Handle procH);
OSErr StartNBP(browseGlobals *globs, char *machZone);
void StopNBP(browseGlobals *globs);
void KillNBP(MPPPBPtr pb);
OSErr PollNBP(browseGlobals *globs);
OSErr GrowAndPostNBP(browseGlobals *globs);
void AgeNBP(browseGlobals *globs);
OSErr PostNBP(browseGlobals *globs);
OSErr StartListPorts(browseGlobals *globs, LocationNameRec *portLocName);
OSErr StopListPorts(browseGlobals *globs);
OSErr KillListPorts(IPCListPortsPBPtr pb);
OSErr PollListPorts(browseGlobals *globs);
OSErr PostListPorts(browseGlobals *globs);
short InsertPortInfo(PortInfoRec *thePortInfo, ListHandle theList,
Boolean *unique);
/*FORM_FEED*/
/*
*
* OBJECT: MyPPCBrowser
*
* DESCRIPTION: External interface to the PPCBrowser
*
* INPUTS: prompt: String to prompt with.
* applListLabel: Label for list of applications.
* defaultSpecified: If true, try to select specified loc and port.
* theLoc: Pointer for LocationNameRec.
* thePortInfo: Pointer for PortInfoRec.
*
* OUTPUTS: theLoc: If noErr returned, filled in.
* thePortInfo: If noErr returned, filled in.
*
* RETURNS: noErr
* userCanceledError
* Other errors.
*
* MODIFICATIONS:
* 01-18-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
*/
pascal OSErr
MyPPCBrowser(const Str255 prompt, const Str255 applListLabel, Boolean defaultSpecified,
LocationNameRec *theLoc, PortInfoRec *thePortInfo, PPCFilterProcPtr portFilter,
const Str32 theLocNBPType)
{
DialogPtr theDialog;
browseGlobals *globs;
short itemh, i, rc;
Cell theCell;
char *theCellData;
short applListBott;
short type;
Handle h;
Rect r;
BrowseConfigRes *configPtr;
GrafPort *oldPort;
char oldSelfSend;
Str32 currZone;
LocationNameRec currLoc;
MPPParamBlock pb;
/* make sure theLoc and thePortInfo are valid */
if ((theLoc == NULL) || (thePortInfo == NULL))
return paramErr;
/* check for legal theLocNBPType */
if ((theLocNBPType != NULL) && (theLocNBPType[0] != '\0'))
{
/* there is a type specified, check it */
if (ContainsWildcard(theLocNBPType))
/* type contains '=' or '≈' */
return paramErr;
}
/* check for legal default location */
if (defaultSpecified && (theLoc->locationKindSelector == ppcNBPTypeLocation))
/* ppcNBPTypeLocation location not supported for default matching */
return paramErr;
/* always PPCInit */
if ((rc = PPCInit()) != noErr)
return(rc);
/* save current GrafPort */
GetPort(&oldPort);
/* we'll be working hard */
SetCursor(*GetCursor(watchCursor));
/* get our dialog */
theDialog = GetNewDialog(BrowseDLOGID, NULL, (WindowPtr)(-1));
SetPort(theDialog);
/* set the windows font and size for the lists */
TextFont(listFont);
TextSize(listFontSize);
/* set up our globals */
globs = (browseGlobals*)NewPtr(sizeof(browseGlobals));
/* save dialog */
globs->theDialog = theDialog;
/* reset type selecting */
TypeSelectClear(&(globs->theTSR));
/* get the difference in sizes between mach and appl lists */
GetDItem(theDialog, ApplListItem, &type, &h, &r);
applListBott = r.bottom;
GetDItem(theDialog, MachListItem, &type, &h, &r);
globs->machListBottDelta = applListBott - r.bottom;
/* save filter specified by caller */
globs->portFilter = portFilter;
/* initially, we're trying to select the specified default or the home machine */
globs->selectingDefault = true;
/* dialog initially set up with zone list */
globs->zoneListShown = true;
/* save default location and port */
globs->defaultSpecified = defaultSpecified;
globs->theLoc = theLoc;
globs->thePortInfo = thePortInfo;
/* get NBP and PPC parameters from configuration resource */
h = GetResource(BrowseConfigType, BrowseConfigID);
if (h)
{
/* got configuration resource, fill in globals */
configPtr = (BrowseConfigRes*)*h;
globs->NBPInterval = configPtr->NBPInterval;
globs->NBPCount = configPtr->NBPCount;
globs->NBPMaxLives = configPtr->NBPMaxLives;
globs->NBPMaxToGet = configPtr->NBPMaxToGet;
globs->NBPMaxIdle = configPtr->NBPMaxIdle;
globs->PPCMaxToGet = configPtr->PPCMaxToGet;
globs->PPCMaxIdle = configPtr->PPCMaxIdle;
ReleaseResource(h);
}
else
{
/* no configuration resource, use default values */
globs->NBPInterval = 1;
globs->NBPCount = 5;
globs->NBPMaxLives = 9;
globs->NBPMaxToGet = 256;
globs->NBPMaxIdle = 120;
globs->PPCMaxToGet = 128;
globs->PPCMaxIdle = 120;
}
/* set up for NBP lookup */
globs->NBPpb = NULL;
/* set up for listing PPC ports */
globs->PPCpb = NULL;
/* look for ports of any name and type */
globs->PPCPort.nameScript = 0; /* how do we determine this? */
globs->PPCPort.name[0] = 0x01; /* name wildcard */
globs->PPCPort.name[1] = '=';
globs->PPCPort.portKindSelector = ppcByString; /* type is a string */
globs->PPCPort.u.portTypeStr[0] = 0x01; /* type wildcard */
globs->PPCPort.u.portTypeStr[1] = '=';
/* hang globals off of dialog */
SetWRefCon(theDialog, (long)globs);
/* set up to draw the prompt */
SetItemHandle(theDialog, PromptText, (Handle)CenterTitleProc);
/* save the prompt and application list title */
if ((prompt == NULL) || (prompt[0] == '\0'))
{
/* no prompt specified, get default prompt */
GetIndString(globs->promptStr, BrowseSTR, DefaultPromptStr);
}
else
{
/* use specified prompt */
BlockMove(prompt, globs->promptStr, prompt[0]+1);
}
if ((applListLabel == NULL) || (applListLabel[0] == '\0'))
{
/* no title specified, get default application list title */
GetIndString(globs->applListTitle, BrowseSTR, ApplTitle);
}
else
{
/* copy title specified by caller */
BlockMove(applListLabel, globs->applListTitle, applListLabel[0]+1);
}
/* save NBP type to use for lookups */
if ((theLocNBPType == NULL) || (theLocNBPType[0] == '\0'))
{
/* no NBP type specified, use default type "PPCToolbox" */
GetIndString(globs->theLocNBPType, PPCToolboxSTR, PPCNBPType);
}
else
{
/* use specified type */
BlockMove(theLocNBPType, globs->theLocNBPType, theLocNBPType[0]+1);
}
/* see if AppleTalk is enabled (stolen from Chooser) */
globs->hasAT = ((SPConfig) & 0x0F) == 1;
if (globs->hasAT)
{
/* tell AppleTalk we want to see our own machine */
pb.SETSELF.newSelfFlag = 1;
PSetSelfSend(&pb, false);
/* save current state of self send */
oldSelfSend = pb.SETSELF.oldSelfFlag;
/* see if we need a zone list */
globs->hasZones = PPCGetMyZone(globs->homeZone);
}
else
/* no AppleTalk, so no zones */
globs->hasZones = false;
/* fix up list title, list outline, and list rectangles appropriately */
FixListRects(globs);
/* always set up user items for zone list, even if there are currently no zones */
SetupListUserItems(theDialog, ZoneText, ZoneListItem, ZoneListOutlineItem);
/* allocate the lists */
if (globs->hasZones)
{
/* we need a zone list - only one column */
globs->theList[ZoneListIndex] = CreateNewList(theDialog, ZoneListItem, ZoneListColumns);
/* fill zone list now */
FillZoneList(globs->theList[ZoneListIndex]);
if (defaultSpecified)
{
/* see if home zone specified, or local machine */
if ((theLoc->locationKindSelector == ppcNoLocation) ||
((theLoc->u.nbpEntity.zoneStr[0] == 0x01) &&
(theLoc->u.nbpEntity.zoneStr[1] == '*')))
{
/* yes, so zone is our zone */
theCellData = globs->homeZone;
}
else
{
/* no, use specified zone */
theCellData = &(theLoc->u.nbpEntity.zoneStr[0]);
}
/* try to select the specified zone */
if (!FindAndSelectCell(globs->theList[ZoneListIndex], theCellData))
{
/* couldn't select specified zone, just select our zone */
FindAndSelectCell(globs->theList[ZoneListIndex], globs->homeZone);
/* cancel further default selecting */
globs->selectingDefault = false;
}
}
else
{
/* no default specified, select home zone */
FindAndSelectCell(globs->theList[ZoneListIndex], globs->homeZone);
}
/* save current zone cell */
if (GetSelectedText(globs->theList[ZoneListIndex], currZone, &theCell))
globs->zoneCell = theCell.v;
else
globs->zoneCell = NoCellSelected;
}
else
{
/* there are no zones */
if (defaultSpecified)
{
/* see if home zone specified, or local machine */
if (!((theLoc->locationKindSelector == ppcNoLocation) ||
((theLoc->u.nbpEntity.zoneStr[0] == 0x01) &&
(theLoc->u.nbpEntity.zoneStr[1] == '*'))))
{
/* another zone was specified, so cancel default selecting */
globs->selectingDefault = false;
}
}
/* no zone list */
globs->theList[ZoneListIndex] = NULL;
globs->zoneCell = NoCellSelected;
}
/* no machines or applications selected yet */
globs->machCell = NoCellSelected;
globs->applCell = NoCellSelected;
/* allocate application list - two columns */
SetupListUserItems(theDialog, ApplText, ApplListItem, ApplListOutlineItem);
globs->theList[ApplListIndex] = CreateNewList(theDialog, ApplListItem, ApplListColumns);
/* allocate machine list - two columns */
SetupListUserItems(theDialog, MachText, MachListItem, MachListOutlineItem);
globs->theList[MachListIndex] = CreateNewList(theDialog, MachListItem, MachListColumns);
if (globs->hasAT)
{
/* start looking up machines on the network */
if (globs->zoneCell == NoCellSelected)
{
/* no zones, use home zone */
StartNBP(globs, globs->homeZone);
}
else
{
/* use currently selected zone */
StartNBP(globs, currZone);
}
}
else
{
/* no AppleTalk, so no need to do lookups */
/* current location is our machine always */
currLoc.locationKindSelector = ppcNoLocation;
if (defaultSpecified)
{
/* see if local machine specified */
if (theLoc->locationKindSelector != ppcNoLocation)
{
/* another machine was specified, so cancel default selecting */
globs->selectingDefault = false;
}
}
/* no AppleTalk, so our machine can't be registered on the network */
globs->machineRegistered = false;
/* add our machine to the list (this will be the only entry */
CheckOurMachine(globs);
if (globs->machCell != NoCellSelected)
{
/* start building the list of applications in the local machine */
StartListPorts(globs, &currLoc);
}
}
/* set up so that the application list is the current list */
globs->currList = ApplListIndex;
/* disable OK button */
SetupDefaultButton(theDialog, buttonDisabledHilite);
/* set up to draw the OK outline */
SetItemHandle(theDialog, OKOutlineItem, (Handle)BtnOutline);
/* we are now ready to display the window */
ShowWindow(theDialog);
InitCursor();
do
{
ModalDialog(BrowseFilt, &itemh);
} while ((itemh != 1) && (itemh != 2));
if (itemh == 1)
{
/* OK hit */
rc = noErr;
/* return current port location */
if (globs->hasAT)
/* has AppleTalk, so get location */
GetCurrentPortLoc(globs, theLoc);
else
/* local location only */
theLoc->locationKindSelector = ppcNoLocation;
/* return current port name */
GetCurrentPortInfo(globs, thePortInfo);
}
else if (itemh == 2)
{
/* Cancel hit */
rc = userCanceledErr;
}
/* stop any outstanding lookups and lists */
StopNBP(globs);
StopListPorts(globs);
if (globs->hasAT)
{
/* restore self send state */
pb.SETSELF.newSelfFlag = oldSelfSend;
PSetSelfSend(&pb, false);
}
/* get rid of lists */
for (i=0; i<3; i++)
{
if (globs->theList[i])
LDispose(globs->theList[i]);
}
DisposDialog(theDialog);
DisposPtr((Ptr)globs);
/* restore old GrafPort */
SetPort(oldPort);
return(rc);
} /* MyPPCBrowser() */
/*FORM_FEED*/
/*
*
* OBJECT: BrowseFilt
*
* DESCRIPTION: Filter routine to handle the PPCBrowser dialog.
*
* INPUTS: theDialog: Pointer to dialog.
* theEvent: Pointer to event record.
* itemhit: Pointer to item hit.
*
* OUTPUTS: None.
*
* RETURNS: TRUE if OK or Cancel hit or double-click in application
* list, FALSE otherwise.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 01-22-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
*/
pascal Boolean
BrowseFilt(DialogPtr theDialog, EventRecord *theEvent, short *itemhit)
{
short currCell;
Cell theCell;
Point pt;
Boolean dblclick;
short item;
short index;
browseGlobals *globs;
Boolean hasZones;
globs = GetBrowseGlobals(theDialog);
switch (theEvent->what)
{
case nullEvent:
case updateEvt:
/*
During null events, check zone status and poll for stuff.
Note that if there is a pending update event for an
application window behind us, it will sit at the top of
the queue and we will never get any null events. Thus, we
have to do this processing for update events, too.
*/
if (globs->hasAT)
{
/* AppleTalk enabled, check if zone status has changed */
hasZones = GetBridgeAddress() != 0;
if (hasZones != globs->hasZones)
{
/* yes, need to update stuff accordingly */
globs->hasZones = hasZones;
if (hasZones)
/* zones have appeared */
ShowZoneList(globs);
else
/* zones have disappeared */
HideZoneList(globs);
}
}
/* if there is an NBPLookup outstanding, check it */
if (globs->NBPpb)
PollNBP(globs);
/* if there is an IPCListPorts outstanding, check it */
if (globs->PPCpb)
PollListPorts(globs);
break;
case keyDown:
case autoKey:
/* check for OK or cancel */
if ((item = CheckButtonKey(theDialog, theEvent)) != 0)
{
/* OK or cancel hit, return from ModalDialog */
*itemhit = item;
return(true);
}
else
{
/* not OK or Cancel, handle other keys */
HandleListKeys(globs, theEvent);
/* update lists if needed */
switch (globs->currList)
{
case ZoneListIndex:
NewZoneSelected(globs);
break;
case MachListIndex:
NewMachSelected(globs);
break;
case ApplListIndex:
NewApplSelected(globs);
break;
}
}
break;
case mouseDown:
pt = theEvent->where;
GlobalToLocal(&pt);
item = FindDItem(theDialog, pt) + 1;
/* figure out which item we're in */
index = item - ZoneListItem;
switch (item)
{
case ZoneListItem:
currCell = globs->zoneCell;
break;
case MachListItem:
currCell = globs->machCell;
break;
case ApplListItem:
currCell = globs->applCell;
break;
default:
/* not in a list */
index = -1;
break;
}
if (index != -1)
{
/* clicked in a list, see if it's the active one */
if (index != globs->currList)
{
/* erase old frame */
PenMode(notPatCopy);
FrameList(theDialog, globs->currList);
/* draw the new frame */
globs->currList = index;
FrameList(theDialog, index);
}
/* handle the click */
dblclick = LClick(pt, theEvent->modifiers,
globs->theList[index]);
/* see if selection has changed */
if (!GetSelectedCell(globs->theList[index], &theCell))
theCell.v = NoCellSelected;
if (theCell.v != currCell)
{
/* selection has changed, no more default selection */
globs->selectingDefault = false;
/* handle change in selection */
switch (item)
{
case ZoneListItem:
NewZoneSelected(globs);
break;
case MachListItem:
NewMachSelected(globs);
break;
case ApplListItem:
NewApplSelected(globs);
break;
}
}
/* handle double click in application list */
if (dblclick && (index == ApplListIndex) && (globs->applCell != NoCellSelected))
{
/* double click, cell selected */
*itemhit = 1;
FlashButton(theDialog, 1);
return(true);
}
}
break;
}
return(false);
} /* BrowseFilt() */
/*FORM_FEED*/
/*
*
* OBJECT: PPCGetMyZone
*
* DESCRIPTION: Get name of current zone. Returns "*" and false if no zones.
*
* INPUTS: homeZone: Pointer to buffer for zone.
*
* OUTPUTS: homeZone: Filled in with our zone.
*
* RETURNS: TRUE if there are zones, FALSE otherwise.
*
* MODIFICATIONS:
* 01-22-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
*/
Boolean
PPCGetMyZone(Str32 homeZone)
{
short bridge, node, net;
ATPPBPtr thePBptr;
OSErr result;
BDSElement *theBDSPtr;
/* assume no zones */
homeZone[0] = 0x01;
homeZone[1] = '*';
bridge = GetBridgeAddress();
GetNodeAddress(&node, &net);
// if ((bridge == 0) && (net == 0))
if (bridge == 0)
/* no zones */
return(false);
/* get our zone name */
thePBptr = (ATPPBPtr)NewPtr(sizeof(ATPParamBlock));
thePBptr->ATPuserData = 0x07000000; /* PPCGetMyZone command */
thePBptr->ATPatpFlags = 0;
thePBptr->ATPaddrBlock.aNet = net;
thePBptr->ATPaddrBlock.aNode = bridge;
thePBptr->ATPaddrBlock.aSocket = 0x06; /* ZIP socket */
thePBptr->ATPreqLength = 0; /* request is zero length */
thePBptr->ATPreqPointer = 0L; /* pointer to request data */
thePBptr->ATPbdsPointer = NewPtr(sizeof(BDSElement));
theBDSPtr = (BDSElement*)(thePBptr->ATPbdsPointer);
theBDSPtr->buffSize = 34; /* 32 characters max */
theBDSPtr->buffPtr = homeZone; /* return zone name here */
thePBptr->ATPnumOfBuffs = 0x01; /* only one response */
thePBptr->ATPtimeOutVal = 0x01; /* one second timeout */
thePBptr->ATPretryCount = 0x05; /* retry five times */
/* send the request */
result = PSendRequest(thePBptr, false);
/* clean up */
DisposPtr(thePBptr->ATPbdsPointer);
DisposPtr((Ptr)thePBptr);
if (result != noErr)
{
/* error occurred */
homeZone[0] = 0x01;
homeZone[1] = '*';
return(false);
}
return(true);
} /* PPCGetMyZone() */
/*FORM_FEED*/
/*
*
* OBJECT: FillZoneList
*
* DESCRIPTION: Fill specified list with zone names. This should only be called once.
*
* INPUTS: theZoneList: ListHandle to fill.
*
* OUTPUTS: None.
*
* RETURNS: Errors from OpenXPP.
*
* MODIFICATIONS:
* 01-18-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
*/
OSErr
FillZoneList(ListHandle theZoneList)
{
short bridge, node, net;
short numZones, numFound, i;
char *ZonePtr;
Boolean unique;
ATPPBPtr thePBptr;
OSErr result;
BDSElement *theBDSPtr;
bridge = GetBridgeAddress();
GetNodeAddress(&node, &net);
// if ((bridge == 0) && (net == 0))
if (bridge == 0)
/* no zones */
return(noErr);
/* get a list of zones */
thePBptr = (ATPPBPtr)NewPtr(sizeof(ATPParamBlock));
thePBptr->ATPaddrBlock.aNet = net;
thePBptr->ATPaddrBlock.aNode = bridge;
thePBptr->ATPaddrBlock.aSocket = 0x06; /* ZIP socket */
thePBptr->ATPreqLength = 0; /* request is zero length */
thePBptr->ATPreqPointer = 0L; /* pointer to request data */
thePBptr->ATPbdsPointer = NewPtr(sizeof(BDSElement));
theBDSPtr = (BDSElement*)(thePBptr->ATPbdsPointer);
theBDSPtr->buffSize = 578; /* size of buffer */
theBDSPtr->buffPtr = NewPtr(578); /* return zone names here */
thePBptr->ATPnumOfBuffs = 0x01; /* only one response */
thePBptr->ATPtimeOutVal = 0x01; /* one second timeout */
/* get zones */
numZones = 0;
LDoDraw(false, theZoneList);
do
{
/* fill in fields that get trashed */
thePBptr->ATPatpFlags = 0;
thePBptr->ATPretryCount = 0x05; /* retry five times */
/* munge in index with GetZoneList command */
thePBptr->ATPuserData = 0x08000000 + (numZones + 1);
/* send the request */
result = PSendRequest(thePBptr, false);
if (result != noErr)
break;
/* add zones retrieved */
numFound = (theBDSPtr->userBytes & 0x0000FFFF);
numZones += numFound;
/* add zones to list in alphabetical order */
ZonePtr = theBDSPtr->buffPtr;
for(i=0; i < numFound; i++)
{
InsertListCell(ZonePtr, theZoneList, &unique);
ZonePtr += *ZonePtr + 1; /* March the zone ptr */
}
} while ((theBDSPtr->userBytes & 0xFF000000) == 0); /* until LastFlag is non-zero */
LDoDraw(true, theZoneList);
/* clean up */
DisposPtr(theBDSPtr->buffPtr);
DisposPtr((Ptr)theBDSPtr);
DisposPtr((Ptr)thePBptr);
HLock((Handle)theZoneList);
InvalRect(&((**theZoneList).rView));
HUnlock((Handle)theZoneList);
return(result);
}
/*FORM_FEED*/
/*
*
* OBJECT: NewZoneSelected
*
* DESCRIPTION: Handle updating when a new zone is selected.
*
* INPUTS: globs: Pointer to globals.
*
* OUTPUTS: None.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 02-09-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*/
void
NewZoneSelected(browseGlobals *globs)
{
Cell theCell;
ListHandle theList;
Str32 newZone;
theList = globs->theList[ZoneListIndex];
/* get current selection */
if (!GetSelectedText(theList, newZone, &theCell))
theCell.v = NoCellSelected;
/* see if selection has changed */
if (theCell.v != globs->zoneCell)
{
/* yes, need to update everything */
globs->zoneCell = theCell.v;
/* clear other lists */
LDelRow(0, 0, globs->theList[MachListIndex]);
LDelRow(0, 0, globs->theList[ApplListIndex]);
/* no machines or applications selected */
globs->machCell = NoCellSelected;
globs->applCell = NoCellSelected;
/* disable OK button */
SetupDefaultButton(globs->theDialog, buttonDisabledHilite);
/* kill any outstanding lookups and lists */
StopNBP(globs);
StopListPorts(globs);
/* is there a current zone selected? */
if (theCell.v != NoCellSelected)
{
/* yes, rebuild list of machines in current zone */
StartNBP(globs, newZone);
}
}
} /* NewZoneSelected() */
/*FORM_FEED*/
/*
*
* OBJECT: NewMachSelected
*
* DESCRIPTION: Handle updating when a new machine is selected.
*
* INPUTS: globs: Pointer to globals.
*
* OUTPUTS: None.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 02-09-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*/
void
NewMachSelected(browseGlobals *globs)
{
Cell theCell;
ListHandle theList;
Str32 newMach;
LocationNameRec currLoc;
theList = globs->theList[MachListIndex];
/* get current selection */
if (!GetSelectedText(theList, newMach, &theCell))
theCell.v = NoCellSelected;
/* see if selection has changed */
if (theCell.v != globs->machCell)
{
/* yes, need to update everything */
globs->machCell = theCell.v;
/* clear application list */
LDelRow(0, 0, globs->theList[ApplListIndex]);
/* no applications selected */
globs->applCell = NoCellSelected;
/* disable OK button */
SetupDefaultButton(globs->theDialog, buttonDisabledHilite);
/* kill any outstanding list ports */
StopListPorts(globs);
/* is there a current machine selected? */
if (theCell.v != NoCellSelected)
{
/* yes, get the current location */
GetCurrentPortLoc(globs, &currLoc);
/* start building port list */
StartListPorts(globs, &currLoc);
}
}
} /* NewMachSelected() */
/*FORM_FEED*/
/*
*
* OBJECT: NewApplSelected
*
* DESCRIPTION: Handle updating when a new application is selected.
*
* INPUTS: globs: Pointer to globals.
*
* OUTPUTS: None.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 02-09-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*/
void
NewApplSelected(browseGlobals *globs)
{
short hilite;
Cell theCell;
ListHandle theList;
theList = globs->theList[ApplListIndex];
/* see if selection has changed */
if (!GetSelectedCell(theList, &theCell))
theCell.v = NoCellSelected;
/* see if selection has changed */
if (theCell.v != globs->applCell)
{
/* yes */
globs->applCell = theCell.v;
/* disable OK button if there is no cell selected, otherwise enable it */
hilite = (globs->applCell == NoCellSelected) ? buttonDisabledHilite : buttonEnabledHilite;
SetupDefaultButton(globs->theDialog, hilite);
}
} /* NewApplSelected() */
/*FORM_FEED*/
/*
*
* OBJECT: ZoneListCommon
*
* DESCRIPTION: Common code when showing or hiding the zone list.
*
* Zones have disappeared or reappeared on the network, so:
*
* Cancel any outstanding lookups and lists.
* Terminate any default selection processing.
* Set all currently selected machine and application
* cell variables to NoCellSelected.
* Dispose of the current machine and application lists.
* Erase and inval the current list and title rectangles.
* Resize the list rectangles.
* Allocate new machine and application lists.
* Get the home zone.
* Make the application list the current list and disable OK button.
*
* INPUTS: globs: Pointer to globals.
*
* OUTPUTS: None.
*
* RETURNS: Errors.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 03-22-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*/
void
ZoneListCommon(browseGlobals *globs)
{
/* stop any outstanding lookups and lists */
StopNBP(globs);
StopListPorts(globs);
SetCursor(*GetCursor(watchCursor));
/* make sure we no longer do any default selecting */
globs->selectingDefault = false;
/* there is no longer anything selected */
globs->machCell = NoCellSelected;
globs->applCell = NoCellSelected;
/* get rid of the current machine and application lists */
LDispose(globs->theList[MachListIndex]);
LDispose(globs->theList[ApplListIndex]);
/* erase list and title rectangles */
EraseListRects(globs);
/* fix the zone and machine lists */
FixListRects(globs);
/* allocate new machine and application lists */
globs->theList[MachListIndex] = CreateNewList(globs->theDialog, MachListItem, MachListColumns);
globs->theList[ApplListIndex] = CreateNewList(globs->theDialog, ApplListItem, ApplListColumns);
/* get the home zone */
PPCGetMyZone(globs->homeZone);
/* set up so that the application list is the current list */
globs->currList = ApplListIndex;
/* disable OK button */
SetupDefaultButton(globs->theDialog, buttonDisabledHilite);
} /* ZoneListCommon() */
/*FORM_FEED*/
/*
*
* OBJECT: ShowZoneList
*
* DESCRIPTION: Zones have reappeared on the network, so:
*
* Call common code for showing and hiding zone lists.
* Allocate and fill zone list.
* Preselect our zone.
*
* INPUTS: globs: Pointer to globals.
*
* OUTPUTS: None.
*
* RETURNS: Errors.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 03-06-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*/
void
ShowZoneList(browseGlobals *globs)
{
Cell theCell;
/* use common code for most stuff */
ZoneListCommon(globs);
/* allocate new zone list */
globs->theList[ZoneListIndex] = CreateNewList(globs->theDialog, ZoneListItem, ZoneListColumns);
/* fill zone list now */
FillZoneList(globs->theList[ZoneListIndex]);
/* try to select home zone */
FindAndSelectCell(globs->theList[ZoneListIndex], globs->homeZone);
/* save current zone cell */
if (GetSelectedText(globs->theList[ZoneListIndex], globs->homeZone, &theCell))
{
globs->zoneCell = theCell.v;
/* start looking up */
StartNBP(globs, globs->homeZone);
}
else
/* couldn't select our zone */
globs->zoneCell = NoCellSelected;
InitCursor();
} /* ShowZoneList() */
/*FORM_FEED*/
/*
*
* OBJECT: HideZoneList
*
* DESCRIPTION: Zones have disappeared from the network, so:
*
* Cancel any outstanding lookups and lists.
* Terminate any default selection processing.
* Set all currently selected zone cell variable to NoCellSelected.
* Dispose of the current zone list.
* Start a new lookup in the '*' zone.
*
* INPUTS: globs: Pointer to globals.
*
* OUTPUTS: None.
*
* RETURNS: Errors.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 03-06-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*/
void
HideZoneList(browseGlobals *globs)
{
/* use common code for most stuff */
ZoneListCommon(globs);
/* there is no longer a zone selected */
globs->zoneCell = NoCellSelected;
/* get rid of current zone list */
LDispose(globs->theList[ZoneListIndex]);
globs->theList[ZoneListIndex] = NULL;
/* start a new lookup */
StartNBP(globs, globs->homeZone);
InitCursor();
} /* HideZoneList() */
/*FORM_FEED*/
/*
*
* OBJECT: CheckOurMachine
*
* DESCRIPTION: After the first NBP lookup completes for our home zone, we need
* to check and see if our machine was returned. If it wasn't
* (implying that the PPCToolbox didn't register it on the
* network), we need to generate an entry for it in the machine
* list ourselves.
*
* INPUTS: globs: Pointer to globals.
*
* OUTPUTS: None.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 03-19-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*/
void
CheckOurMachine(browseGlobals *globs)
{
ListHandle theList;
Cell theCell;
Boolean unique;
MachListData theData;
char **machName;
Str32 ownMachineStr;
if (globs->machineRegistered)
/* we found our machine on the network already */
return;
/*
We didn't find our machine on the network, so we have
to generate an entry for it. Check to see if the machine
name string is in the System, if not or if it is empty
then use the default name.
*/
theList = globs->theList[MachListIndex];
/* look for name in system */
machName = GetResource('STR ', PPCMachNameSTR);
if ((machName == NULL) || (**machName == '\0'))
{
/* no machine name or null machine name, use default */
GetIndString(ownMachineStr, BrowseSTR, NoMachineStr);
}
else
{
/* machine name in System, probably just network access disabled */
BlockMove(*machName, ownMachineStr, (**machName) + 1);
}
/* try to insert it */
theCell.v = InsertListCell(ownMachineStr, theList, &unique);
/*
If the default name is not unique (i.e. some moron on
the network has named his machine the same thing), we
override the network version and use the default name
to refer to our machine.
*/
theCell.h = 1;
theData.isHomeMachine = true;
LSetCell((Ptr)&theData, sizeof(MachListData), theCell, theList);
if (unique)
{
/* cell was unique, if it was inserted before the current cell, need to update */
if (theCell.v <= globs->machCell)
globs->machCell++;
}
/* try to do default selecting, if necessary */
if (globs->selectingDefault)
{
/* see if we're selecting ourselves */
if ((!globs->defaultSpecified) || (globs->theLoc->locationKindSelector == ppcNoLocation))
{
/* yes */
if (FindAndSelectCell(theList, ownMachineStr))
{
/* should always have found it, since we just inserted it */
NewMachSelected(globs);
}
}
}
} /* CheckOurMachine() */
/*FORM_FEED*/
/*
*
* OBJECT: GetCurrentPortLoc
*
* DESCRIPTION: Build current port location from currently selected machine.
* If currently selected machine is the local machine, sets
* currLoc->locationKindSelector to ppcNoLocation.
*
* INPUTS: globs: Pointer to globals.
* currLoc: Pointer to LocationNameRec to be filled in.
*
* OUTPUTS: currLoc: Filled in.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 02-10-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*/
void
GetCurrentPortLoc(browseGlobals *globs, LocationNameRec *currLoc)
{
Cell theCell;
short theLen;
MachListData theData;
/* get currently select cell in machine list */
GetSelectedCell(globs->theList[MachListIndex], &theCell);
/* see if this it is the local machine */
theCell.h = 1;
theLen = sizeof(MachListData);
LGetCell((Ptr)&theData, &theLen, theCell, globs->theList[MachListIndex]);
if (theData.isHomeMachine)
{
/* yes, no location name */
currLoc->locationKindSelector = ppcNoLocation;
return;
}
/* always NBP */
currLoc->locationKindSelector = ppcNBPLocation;
/* have to fill in object, type, and zone in entity */
/* get object name from machine list */
GetSelectedText(globs->theList[MachListIndex], &(currLoc->u.nbpEntity.objStr[0]),
&theCell);
/* get type name from globals */
BlockMove(globs->theLocNBPType, &(currLoc->u.nbpEntity.typeStr[0]), globs->theLocNBPType[0]+1);
/* get zone from zone list, if there is one */
if (globs->hasZones)
GetSelectedText(globs->theList[ZoneListIndex],
&(currLoc->u.nbpEntity.zoneStr[0]), &theCell);
else
{
/* no zones, just use '*' */
currLoc->u.nbpEntity.zoneStr[0] = 0x01;
currLoc->u.nbpEntity.zoneStr[1] = '*';
}
} /* GetCurrentPortLoc() */
/*FORM_FEED*/
/*
*
* OBJECT: GetCurrentPortInfo
*
* DESCRIPTION: Build current port info from currently selected application.
* Note that the PortInfo is stored in the second column of
* the application list.
*
* INPUTS: globs: Pointer to globals.
* currPortInfo: Pointer to PortInfoRec to be filled in.
*
* OUTPUTS: currPortInfo: Filled in.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 02-10-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*/
void
GetCurrentPortInfo(browseGlobals *globs, PortInfoRec *currPortInfo)
{
Cell theCell;
short theLen;
ApplListData theData;
/* get currently selected application */
GetSelectedCell(globs->theList[ApplListIndex], &theCell);
/* read port from data in column 2 */
theCell.h = 1;
theLen = sizeof(ApplListData);
LGetCell((Ptr)&theData, &theLen, theCell, globs->theList[ApplListIndex]);
/* copy over PortInfoRec */
BlockMove((Ptr)&(theData.thePortInfo), (Ptr)currPortInfo, sizeof(PortInfoRec));
} /* GetCurrentPortInfo() */
/*FORM_FEED*/
/*
*
* OBJECT: ComparePortInfo
*
* DESCRIPTION: Compare two PortInfoRec structures. Return TRUE if they are the
* same, FALSE otherwise.
*
* INPUTS: thePortInfo1: Pointer to first PortInfoRec.
* thePortInfo2: Pointer to second PortInfoRec.
*
* OUTPUTS: None.
*
* RETURNS: TRUE if records are the same, FALSE otherwise.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 03-23-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*/
Boolean
ComparePortInfo(PortInfoRec *thePortInfo1, PortInfoRec *thePortInfo2)
{
Boolean rc;
PPCPortRec *name1, *name2;
/* check authRequired */
rc = (thePortInfo1->authRequired == thePortInfo2->authRequired);
if (rc)
{
/* get pointers to port names */
name1 = &(thePortInfo1->name);
name2 = &(thePortInfo2->name);
/* compare scriptCode (not done by ComparePortName) */
rc = (name1->nameScript == name2->nameScript);
if (rc)
{
/* compare rest of PPCPortRec */
rc = (ComparePortName(name1, name2) == 0);
}
}
return(rc);
} /* ComparePortInfo() */
/*FORM_FEED*/
/*
*
* OBJECT: ComparePortName
*
* DESCRIPTION: Compare two PPCPortRec structures (except nameScript). Returns 0 if
* PortNames are the same, <0 if thePortName1 < thePortName2, or >0 if
* thePortName1 > thePortName2.
*
* Comparison criteria is as follows:
*
* name
* portKindSelector (ppcByCreatorAndType before ppcByString)
* creator/type or typeStr
*
* Note that in the PPCToolbox name and typeStr are treated as just
* bytes, so to compare them we use a straight byte compare.
*
* INPUTS: thePortName1: Pointer to first PPCPortRec.
* thePortName2: Pointer to second PPCPortRec.
*
* OUTPUTS: None.
*
* RETURNS: <0 if thePortName1 < thePortName2
* 0 if thePortName1 = thePortName2
* >0 if thePortName1 > thePortName2
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 04-09-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*/
short
ComparePortName(PPCPortRec *thePortName1, PPCPortRec *thePortName2)
{
short rc;
short port1Len, port2Len;
/* first, compare nameStr */
port1Len = thePortName1->name[0];
port2Len = thePortName2->name[0];
/* compare using shorter length */
rc = (short)memcmp(&(thePortName1->name[1]), &(thePortName2->name[1]),
(port1Len < port2Len) ? port1Len : port2Len);
if ((rc == 0) && (port1Len != port2Len))
{
/* memcmp said they were equal, but lengths are actually different */
/* shorter name is smaller */
rc = (port1Len < port2Len) ? -1 : 1;
}
if (rc == 0)
{
/* names are the same, now check type selectors */
if (thePortName1->portKindSelector != thePortName2->portKindSelector)
{
/* different selectors, ppcByCreatorAndType is smaller */
rc = (thePortName1->portKindSelector == ppcByCreatorAndType) ? -1 : 1;
}
else
{
/* type selectors are the same, now check type */
if (thePortName1->portKindSelector == ppcByCreatorAndType)
{
/* both are ppcByCreatorAndType */
rc = (short)memcmp(&(thePortName1->u.port.creator),
&(thePortName2->u.port.creator), 8);
}
else
{
/* both are ppcByString */
port1Len = thePortName1->u.portTypeStr[0];
port2Len = thePortName2->u.portTypeStr[0];
/* compare using shorter length */
rc = (short)memcmp(&(thePortName1->u.portTypeStr[1]),
&(thePortName2->u.portTypeStr[1]),
(port1Len < port2Len) ? port1Len : port2Len);
if ((rc == 0) && (port1Len != port2Len))
{
/* memcmp said they were equal, but lengths are actually different */
/* shorter type is smaller */
rc = (port1Len < port2Len) ? -1 : 1;
}
}
}
}
return(rc);
} /* ComparePortName() */
/*FORM_FEED*/
/*
*
* OBJECT: CheckButtonKey
*
* DESCRIPTION: If enter or return pressed and OK button is enabled, returns 1.
* If command-. or escape is pressed, returns 2. Otherwise, returns 0.
* Buttons are hilited appropriately.
*
* INPUTS: theDialog: Pointer to the dialog.
* theEvent: Pointer to event (should be autokey or keydown).
*
* OUTPUTS: None.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 01-22-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
*/
short
CheckButtonKey(DialogPtr theDialog, EventRecord *theEvent)
{
short type;
Handle h;
Rect r;
char theChar;
theChar = theEvent->message & charCodeMask;
/* check for return or enter */
if (theChar == charReturn || theChar == charEnter)
{
/* yes, see if OK is enabled */
GetDItem(theDialog, 1, &type, &h, &r);
if ((**(ControlHandle)h).contrlHilite == 0)
{
/* yes, flash button and return 1 */
FlashButton(theDialog, 1);
return(1);
}
}
else
{
/* check for cmd-. or escape for Cancel */
if (((theChar == charPeriod) && ((theEvent->modifiers & cmdKey) != 0))
|| ((theChar == charEscape) &&
(((theEvent->message & keyCodeMask) >> 8) == kcEscape)))
{
/* yes, flash button and return 2 */
FlashButton(theDialog, 2);
return(2);
}
}
/* otherwise, return 0 */
return(0);
} /* CheckButtonKey() */
/*FORM_FEED*/
/*
*
* OBJECT: HandleListKeys
*
* DESCRIPTION: Handle a keydown or autokey event in a list.
*
* Uses Type Select Utilities.
*
* Arrow, delete/backspace, and clear keys clear the TypeSelectRecord.
*
* INPUTS: globs: Pointer to globals.
* theEvent: Event record.
*
* OUTPUTS: None.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 02-07-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
*/
void
HandleListKeys(browseGlobals *globs, EventRecord *theEvent)
{
ListHandle theList;
short index;
char theChar;
theList = globs->theList[globs->currList];
theChar = theEvent->message & charCodeMask;
/* tabbing is always valid, if there is more than one list */
if (theChar == charTab)
{
/* clear TypeSelectRecord */
TypeSelectClear(&(globs->theTSR));
/* we always have at least two lists */
if ((theEvent->modifiers & shiftKey) != 0)
{
/* shift-tab means go backwards */
index = globs->currList - 1;
/* have we gone too far backwards? */
if (globs->hasZones)
{
if (index < ZoneListIndex)
{
/* went past zones, wrap to applications */
index = ApplListIndex;
}
}
else
{
if (index < MachListIndex)
{
/* no zones, went past machines, wrap to applications */
index = ApplListIndex;
}
}
}
else
{
/* tab means go forwards */
index = globs->currList + 1;
/* have we gone too far forwards? */
if (index > ApplListIndex)
{
/* wrap to zones or machines */
if (globs->hasZones)
index = ZoneListIndex;
else
index = MachListIndex;
}
}
/* erase old frame */
PenMode(notPatCopy);
FrameList(globs->theDialog, globs->currList);
/* draw the new frame */
globs->currList = index;
FrameList(globs->theDialog, index);
return;
}
/* check for an empty list */
if ((**theList).dataBounds.top == (**theList).dataBounds.bottom)
/* empty list */
return;
/* anything else cancels default selecting */
globs->selectingDefault = false;
switch (theChar)
{
case charUpArrow:
case charDownArrow:
HandleListArrows(theChar, theList);
/* clear TypeSelectRecord */
TypeSelectClear(&(globs->theTSR));
break;
default:
/* only handle arrow and tab autokeys */
if (theEvent->what == autoKey)
break;
/* not an autokey, let type select utilites handle it */
if (TypeSelectNewKey(theEvent, &(globs->theTSR)))
{
/* try to find matching list entry */
FindMatch(theList, &(globs->theTSR));
}
break;
} /* switch (theChar) */
} /* HandleListKeys() */
/*FORM_FEED*/
/*
*
* OBJECT: HandleListArrows
*
* DESCRIPTION: Handle an up or down arrow keydown or autokey event in a list.
* Assumes list has at least one item in it.
*
* INPUTS: theChar: Character that was typed (up or down arrow)
* theList: ListHandle it applies to.
*
* OUTPUTS: None.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 02-07-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
*/
void
HandleListArrows(char theChar, ListHandle theList)
{
short offset;
short bottomCell = (**theList).dataBounds.bottom - 1;
Cell theCell;
/* get currently selected cell, if any */
if (!GetSelectedCell(theList, &theCell))
{
/* no cell selected */
if (theChar == charDownArrow)
/* down arrow, select top cell */
theCell.v = 0;
else
/* up arrow, select bottom cell */
theCell.v = bottomCell;
}
else
{
/* cell currently selected */
/* if we're at the top and up arrow, or
at the bottom and down arrow, do nothing */
if (((theCell.v == 0) && (theChar == charUpArrow)) ||
((theCell.v == bottomCell) && (theChar == charDownArrow)))
{
return;
}
/* unselect old cell */
LSetSelect(false, theCell, theList);
/* get which way were going */
if (theChar == charUpArrow)
offset = -1;
else
offset = 1;
theCell.v += offset;
}
/* select new cell */
SelectAndRevealArrows(theCell, theList);
} /* HandleListArrows() */
/*FORM_FEED*/
/*
*
* OBJECT: FindMatch
*
* DESCRIPTION: Select and scroll to the closest matching cell in a list.
* Assumes list has at least one item in it. Also assumes
* list is sorted, so we can use TypeSelectCompare.
*
*
* INPUTS: theList: List to find match in.
* theTSR: Pointer to current TypeSelectRecord.
*
* OUTPUTS: None.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 02-08-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
*/
void
FindMatch(ListHandle theList, TypeSelectRecord *theTSR)
{
Cell theCell, oldCell;
short len;
Boolean foundit;
char theCellStr[32];
/* search list for what to select */
theCell.h = 0;
theCell.v = 0;
foundit = false;
do
{
/* are we at the end of the list? */
if (theCell.v == (**theList).dataBounds.bottom)
{
/* yes, select last item */
theCell.v--;
foundit = true;
}
else
{
/* check current cell */
len = 32;
LGetCell(&(theCellStr[1]), &len, theCell, theList);
theCellStr[0] = len;
/* call type select utilities */
/* ?? how do we determine script code ?? */
if (TypeSelectCompare(theTSR, 0, theCellStr) <= 0)
{
/* typed in string is <= cell string, so this is it */
foundit = true;
}
else
{
/* try next cell */
theCell.v++;
}
}
} while (!foundit);
/* deselect any currently selected cell */
if (GetSelectedCell(theList, &oldCell))
{
LSetSelect(false, oldCell, theList);
}
/* select new cell */
// SelectAndRevealRelative(theCell, theList);
SelectAndReveal(theCell, theList);
} /* FindMatch() */
/*FORM_FEED*/
/*
*
* OBJECT: SetupListUserItems
*
* DESCRIPTION: Set up so that the list updates and the outline is drawn.
* Also set up so list title is drawn.
*
* INPUTS: theDialog: Pointer to the dialog with list.
* listTitle: Item number of title.
* listItem: Item number of list.
* listOutline: Item number of user item for outline.
*
* OUTPUTS: None.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 01-26-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
*/
void
SetupListUserItems(DialogPtr theDialog, short listTitle, short listItem, short listOutline)
{
short itemtype;
Handle item;
Rect box;
/* set up so title is drawn */
SetItemHandle(theDialog, listTitle, (Handle)CenterTitleProc);
GetDItem(theDialog, listItem, &itemtype, &item, &box);
/* The list is inset one pixel from the outline */
InsetRect(&box, 1, 1);
/* point to our list update proc */
SetDItem(theDialog, listItem, userItem, (Handle)MyListUpdate, &box);
GetDItem(theDialog, listOutline, &itemtype, &item, &box);
/*
The outline rect is outset (1 + listFrameSize) pixels from the
actual outline. This is so, when the active frame has
to be drawn, the clip region is set up OK.
*/
InsetRect(&box, -(1 + listFrameSize), -(1 + listFrameSize));
/* point to our outline framing proc */
SetDItem(theDialog, listOutline, userItem, (Handle)RectOutline, &box);
} /* SetupListUserItems() */
/*FORM_FEED*/
/*
*
* OBJECT: CreateNewList
*
* DESCRIPTION: Make a list in the specified dialog.
*
* INPUTS: theDialog: Pointer to the dialog with list.
* listItem: Item number of list.
* numColumns: Number of columns in list (1 or 2).
*
* OUTPUTS: None.
*
* RETURNS: Handle to newly created list.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 01-22-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
*/
ListHandle
CreateNewList(DialogPtr theDialog, short listItem, short numColumns)
{
Rect bounds;
Cell theCell;
short itemtype;
Handle item;
Rect box;
ListHandle list;
/* list is one or two columns */
SetRect(&bounds, 0, 0, numColumns, 0);
/* get the list item */
GetDItem(theDialog, listItem, &itemtype, &item, &box);
/* adjust for scroll bars */
box.right -= 16 - 1;
/* calculate width of a cell, so second column isn't displayed */
theCell.h = box.right - box.left;
/* use default height for a cell */
theCell.v = 0;
/* make a new list */
list = LNew(&box, &bounds, theCell, 0, theDialog, true, false, false, true);
/* don't hilite empty cells and only select one cell at a time */
(**list).selFlags = lNoNilHilite + lOnlyOne;
/* return the list handle */
return(list);
} /* CreateNewList() */
/*FORM_FEED*/
/*
*
* OBJECT: EraseListRects
*
* DESCRIPTION: Erase and invalidate the outline and title rectangles
* for the three lists.
*
* INPUTS: globs: Pointer to globals.
*
* OUTPUTS: Nothing.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 03-09-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
*/
void
EraseListRects(browseGlobals *globs)
{
DialogPtr theDialog;
theDialog = globs->theDialog;
EraseAndInvalItem(theDialog, ZoneListOutlineItem);
EraseAndInvalItem(theDialog, ZoneText);
EraseAndInvalItem(theDialog, MachListOutlineItem);
EraseAndInvalItem(theDialog, MachText);
EraseAndInvalItem(theDialog, ApplListOutlineItem);
EraseAndInvalItem(theDialog, ApplText);
/* erase the current frame, too */
PenMode(notPatCopy);
FrameList(theDialog, globs->currList);
} /* EraseListRects() */
/*FORM_FEED*/
/*
*
* OBJECT: EraseAndInvalItem
*
* DESCRIPTION: Erase and invalidate rectangle for specified item.
*
* INPUTS: theDialog: Pointer to the dialog.
* theItem: Item number to erase and inval.
*
* OUTPUTS: Nothing.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 03-23-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
*/
void
EraseAndInvalItem(DialogPtr theDialog, short theItem)
{
short type;
Handle h;
Rect r;
GetDItem(theDialog, theItem, &type, &h, &r);
EraseRect(&r);
InvalRect(&r);
} /* EraseAndInvalItem() */
/*FORM_FEED*/
/*
*
* OBJECT: FixListRects
*
* DESCRIPTION: Adjust the list title, outline, and content rectangles
* for the zone and machine lists.
*
* INPUTS: globs: Pointer to globals.
*
* OUTPUTS: Nothing.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 02-08-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
*/
void
FixListRects(browseGlobals *globs)
{
DialogPtr theDialog;
theDialog = globs->theDialog;
/* note that hasZones will be false if no zones or no AppleTalk */
if (!globs->hasZones)
{
/* no zones, see if we need to hist the zone list and resize the mach list */
if (globs->zoneListShown)
{
/* hide the zone list stuff */
HideDItem(theDialog, ZoneText);
HideDItem(theDialog, ZoneListItem);
HideDItem(theDialog, ZoneListOutlineItem);
/* grow the lists */
FixMachRects(theDialog, globs->machListBottDelta);
/* we're hiding the zone list */
globs->zoneListShown = false;
}
}
else
{
/* zones exist, see if we need to show the zone list and resize the mach list */
if (!globs->zoneListShown)
{
/* shrink the lists */
FixMachRects(theDialog, -(globs->machListBottDelta));
/* reveal the zone list */
ShowDItem(theDialog, ZoneText);
ShowDItem(theDialog, ZoneListItem);
ShowDItem(theDialog, ZoneListOutlineItem);
/* we're showing the zone list */
globs->zoneListShown = true;
}
}
} /* FixListRects() */
/*FORM_FEED*/
/*
*
* OBJECT: FixMachRects
*
* DESCRIPTION: Adjust the bottoms of the machine list and outline
* rectangles when zones appear and disappear.
*
* INPUTS: theDialog: PPC Browser dialog
* bottDelta: How much to adjust the bottom of the rects by.
*
* OUTPUTS: Nothing.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 02-08-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
*/
void
FixMachRects(DialogPtr theDialog, short bottDelta)
{
short type;
Handle h;
Rect r;
/* first, do the machine list */
GetDItem(theDialog, MachListItem, &type, &h, &r);
InvalRect(&r);
r.bottom += bottDelta;
SetDItem(theDialog, MachListItem, type, h, &r);
InvalRect(&r);
/* and the machine list outline */
GetDItem(theDialog, MachListOutlineItem, &type, &h, &r);
InvalRect(&r);
r.bottom += bottDelta;
SetDItem(theDialog, MachListOutlineItem, type, h, &r);
InvalRect(&r);
} /* FixMachRects() */
/*FORM_FEED*/
/*
*
* OBJECT: GetSelectedCell
*
* DESCRIPTION: Get first cell selected in specified list, if any.
*
* INPUTS: list: Handle to list to be checked.
*
* OUTPUTS: theCell: Pointer to cell selected, if any.
*
* RETURNS: TRUE if a selected cell was found, FALSE otherwise.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 12-24-87 JSM - Created.
*
* Copyright Apple Computer, Inc. 1987
* All rights reserved.
*
*/
Boolean
GetSelectedCell(ListHandle list, Cell *theCell)
{
/* start with first cell */
theCell->h = 0;
theCell->v = 0;
return(LGetSelect(true, theCell, list));
} /* GetSelectedCell() */
/*FORM_FEED*/
/*
*
* OBJECT: GetSelectedText
*
* DESCRIPTION: Get text of first cell selected in specified list.
* Assumes all cells are Str32.
*
* INPUTS: list: Handle to list to be checked.
* theText: Pointer to buffer to text.
*
* OUTPUTS: theText: Text of the cell (pascal string).
* theCell: Pointer to cell selected, if any.
*
* RETURNS: TRUE if a selected cell was found, FALSE otherwise.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 01-29-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
*/
Boolean
GetSelectedText(ListHandle list, char *theText, Cell *theCell)
{
short len;
Boolean rc;
/* get currently selected cell */
if (rc = GetSelectedCell(list, theCell))
{
/* cell currently selected, get its text */
len = 32;
LGetCell(&(theText[1]), &len, *theCell, list);
theText[0] = len;
}
else
{
/* no cell selected */
theText[0] = '\0';
}
return(rc);
} /* GetSelectedText() */
/*FORM_FEED*/
/*
*
* OBJECT: SelectAndReveal
*
* DESCRIPTION: Select and reveal a cell in a list.
* If cell is already visible, just select it.
* Otherwise, try to make the cell topmost
* in the list, then select it.
*
* INPUTS: theCell: Cell to select.
* theList: List with cell.
*
* OUTPUTS: None.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 02-08-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
*/
void
SelectAndReveal(Cell theCell, ListHandle theList)
{
/* see if cell is visible */
HLock((Handle)theList);
if (!PtInRect(theCell, &((**theList).visible)))
{
/* cell not visible, try to make it topmost in list */
LScroll(0, theCell.v - (**theList).visible.top, theList);
}
HUnlock((Handle)theList);
/* select cell */
LSetSelect(true, theCell, theList);
} /* SelectAndReveal() */
/*FORM_FEED*/
/*
*
* OBJECT: SelectAndRevealArrows
*
* DESCRIPTION: Select and reveal a cell in a list when
* an arrow key is hit. If cell is already visible,
* just select it. Otherwise, scroll the cell into
* view and then select it.
*
* INPUTS: theCell: Cell to select.
* theList: List with cell.
*
* OUTPUTS: None.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 02-08-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
*/
void
SelectAndRevealArrows(Cell theCell, ListHandle theList)
{
short offset;
/* select cell */
LSetSelect(true, theCell, theList);
/* see if cell is visible */
HLock((Handle)theList);
if (!PtInRect(theCell, &((**theList).visible)))
{
/* no, need to scroll into view */
if (theCell.v <= (**theList).visible.top)
{
/* need to scroll up */
offset = theCell.v - (**theList).visible.top;
}
else
{
/* need to scroll down */
offset = theCell.v - (**theList).visible.bottom + 1;
}
LScroll(0, offset, theList);
}
HUnlock((Handle)theList);
} /* SelectAndRevealArrows() */
/*FORM_FEED*/
/*
*
* OBJECT: SelectAndRevealRelative
*
* DESCRIPTION: Select and reveal a cell in a list, trying to center it
* in the middle.
*
* INPUTS: theCell: Cell to select.
* theList: List with cell.
*
* OUTPUTS: None.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 02-08-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
*/
void
SelectAndRevealRelative(Cell theCell, ListHandle theList)
{
short middle;
/* calculate middle of visible rectangle */
middle = (((**theList).visible.bottom - (**theList).visible.top) / 2)
+ (**theList).visible.top;
/* are we in the middle? */
if (theCell.v != middle)
{
LScroll(0, theCell.v - middle, theList);
}
/* select cell */
LSetSelect(true, theCell, theList);
} /* SelectAndRevealRelative() */
/*FORM_FEED*/
/*
*
* OBJECT: FindAndSelectCell
*
* DESCRIPTION: Find and select cell with specified data in list.
*
* Still to do: may need to pass in comparison routine to LSearch.
*
* INPUTS: theList: List with cell.
* theText: Data to find.
*
* OUTPUTS: None.
*
* RETURNS: TRUE if cell found, FALSE otherwise.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 02-27-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
*/
Boolean
FindAndSelectCell(ListHandle theList, char *theText)
{
Cell theCell, oldCell;
/* find the specified cell and select it */
theCell.h = 0;
theCell.v = 0;
if (LSearch(&(theText[1]), (short)theText[0], NULL, &theCell, theList))
{
if (GetSelectedCell(theList, &oldCell))
{
LSetSelect(false, oldCell, theList);
}
// SelectAndRevealRelative(theCell, theList);
SelectAndReveal(theCell, theList);
return(true);
}
else
return(false);
} /* FindAndSelectCell() */
/*FORM_FEED*/
/*
*
* OBJECT: FindAndSelectPortInfoCell
*
* DESCRIPTION: Find and select cell with specified PortInfoRec in list.
* Does not match on authRequired, only PortName field in PortInfoRec.
*
* Still to do: may need to pass in comparison routine to LSearch.
*
* INPUTS: theList: List with cell.
* thePortInfo: PortInfoRec to find.
*
* OUTPUTS: None.
*
* RETURNS: TRUE if cell found, FALSE otherwise.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 04-08-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
*/
Boolean
FindAndSelectPortInfoCell(ListHandle theList, PortInfoRec *thePortInfo)
{
Cell theCell, oldCell;
Boolean done, foundit = false;
short theLen;
ApplListData theData;
/* find the first cell with the right name */
theCell.h = 0;
theCell.v = 0;
if (LSearch(&(thePortInfo->name.name[1]), (short)thePortInfo->name.name[0],
NULL, &theCell, theList))
{
/* found cell, now compare the rest of the PortInfoRec */
done = false;
theCell.h = 1;
do
{
/* get current PortInfoRec */
theLen = sizeof(ApplListData);
LGetCell((Ptr)&theData, &theLen, theCell, theList);
/* compare it */
/* compare nameScript (not done by ComparePortName) */
if ((thePortInfo->name.nameScript ==
theData.thePortInfo.name.nameScript) &&
(ComparePortName(&(thePortInfo->name),
&(theData.thePortInfo.name)) == 0))
{
/* found it */
done = true;
foundit = true;
}
else
{
/* check next cell */
theCell.v++;
if (theCell.v == (**theList).dataBounds.bottom)
{
/* went off end of list */
done = true;
}
}
} while (!done);
if (foundit)
{
/* found it, unselect any old cell */
if (GetSelectedCell(theList, &oldCell))
{
LSetSelect(false, oldCell, theList);
}
/* select first column */
theCell.h = 0;
// SelectAndRevealRelative(theCell, theList);
SelectAndReveal(theCell, theList);
}
}
return(foundit);
} /* FindAndSelectPortInfoCell() */
/*FORM_FEED*/
/*
*
* OBJECT: SetupDefaultButton
*
* DESCRIPTION: Enable or disable default button.
*
* INPUTS: theDialog: Pointer to the dialog with button.
* hilite: Value to set contrlHilite to.
*
* OUTPUTS: None.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 01-22-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
*/
void
SetupDefaultButton(DialogPtr theDialog, short hilite)
{
browseGlobals *globs;
short type;
Handle h;
Rect r;
SetPort(theDialog);
GetDItem(theDialog, 1, &type, &h, &r);
/* is it already set correctly? */
if ((**(ControlHandle)h).contrlHilite != hilite)
{
/* no, enable or disable control */
HiliteControl((ControlHandle)h, hilite);
/* set flag in globals */
globs = GetBrowseGlobals(theDialog);
globs->okEnabled = (hilite == buttonEnabledHilite);
/* make sure outline gets redrawn correctly */
InsetRect(&r,-4,-4);
InvalRect(&r);
}
} /* SetupDefaultButton() */
/*FORM_FEED*/
/*
*
* OBJECT: FlashButton
*
* DESCRIPTION: Flash specified button in a dialog.
*
* INPUTS: theDialog: Dialog with button.
* itemNo: Item number of button.
*
* OUTPUTS: None.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 02-10-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*/
void
FlashButton(DialogPtr theDialog, short itemNo)
{
short type;
long ticks;
Handle h;
Rect r;
/* get the button */
GetDItem(theDialog, itemNo, &type, &h, &r);
/* flash it */
HiliteControl((ControlHandle)h, 1);
ticks = TickCount() + 8L;
while (ticks > TickCount())
;
HiliteControl((ControlHandle)h, 0);
} /* FlashButton() */
/*FORM_FEED*/
/*
*
* OBJECT: MyListUpdate
*
* DESCRIPTION: Useritem routine to handle update events for lists in dialogs.
*
* INPUTS: theDialog: Pointer to the dialog with list.
* itemNo: Item number of list.
*
* OUTPUTS: Nothing.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 01-22-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
*/
pascal void
MyListUpdate(DialogPtr theDialog, short itemNo)
{
short index;
browseGlobals *globs;
RgnHandle updargn;
short itemtype;
Handle item;
Rect box;
/* get globals from dialog */
globs = GetBrowseGlobals(theDialog);
/* figure out the right list - assumes zero based index */
index = itemNo - ZoneListItem;
/* we can get called even for hidden items, so check for a list */
if (globs->theList[index] != NULL)
{
/* update the list */
GetDItem(theDialog, itemNo, &itemtype, &item, &box);
updargn = NewRgn();
RectRgn(updargn, &box);
LUpdate(updargn, globs->theList[index]);
DisposeRgn(updargn);
}
} /* MyListUpdate() */
/*FORM_FEED*/
/*
*
* OBJECT: RectOutline
*
* DESCRIPTION: Useritem routine to outline a list in a dialog.
*
* INPUTS: theDialog: Pointer to the dialog with list.
* itemNo: Item number of list.
*
* OUTPUTS: None.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 01-22-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
*/
pascal void
RectOutline(DialogPtr theDialog, short itemNo)
{
short itemtype, index;
browseGlobals *globs;
Handle item;
Rect box;
GetDItem(theDialog, itemNo, &itemtype, &item, &box);
/* inset item rectangle to get real outline */
InsetRect(&box, 1 + listFrameSize, 1 + listFrameSize);
PenSize(1,1);
FrameRect(&box);
/* get globals from dialog */
globs = GetBrowseGlobals(theDialog);
/* figure what list we are - assumes zero based index */
index = itemNo - ZoneListOutlineItem;
/* is this the active list? */
if (globs->currList == index)
/* yes, draw the frame around it */
FrameList(theDialog, index);
} /* RectOutline() */
/*FORM_FEED*/
/*
*
* OBJECT: FrameList
*
* DESCRIPTION: Frame (or erase frame if PenMode set right) specified list.
*
* INPUTS: theDialog: Pointer to dialog.
* index: Index of list.
*
* OUTPUTS: None.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 02-09-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*/
void
FrameList(DialogPtr theDialog, short index)
{
short itemNo;
Handle itemH;
short itemT;
Rect itemR;
/* figure out item number of outline - assumes zero based index */
itemNo = index + ZoneListOutlineItem;
/* get the box */
GetDItem(theDialog, itemNo, &itemT, &itemH, &itemR);
/* use thick pen */
PenSize(listFrameSize, listFrameSize);
/* frame it */
FrameRect(&itemR);
PenNormal();
} /* FrameList() */
/*FORM_FEED*/
/*
*
* OBJECT: BtnOutline
*
* DESCRIPTION: Useritem routine to outline a button in a dialog.
* Outlines in black or gray depending on okEnabled in globals.
*
* INPUTS: theDialog: Pointer to the dialog with button.
* itemNo: Item number of button.
*
* OUTPUTS: None.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 04-24-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
*/
pascal void
BtnOutline(DialogPtr theDialog, short itemNo)
{
browseGlobals *globs;
short itemtype;
Handle item;
Rect box;
PenState pnState;
globs = GetBrowseGlobals(theDialog);
GetPenState(&pnState);
GetDItem(theDialog, itemNo, &itemtype, &item, &box);
PenSize(3,3);
InsetRect(&box,-4,-4);
if (!(globs->okEnabled))
{
/* button disabled, use gray */
PenPatGray();
}
FrameRoundRect(&box,16,16);
SetPenState(&pnState);
} /* BtnOutline() */
/*FORM_FEED*/
/*
*
* OBJECT: CenterTitleProc
*
* DESCRIPTION: User item procedure to draw centered titles.
* Used to draw prompt and titles for the three lists.
*
* INPUTS: dialog: Pointer to dialog.
* item: Item number.
*
* OUTPUTS: None.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 02-08-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*/
pascal void
CenterTitleProc(DialogPtr dialog, short item)
{
Handle itemH;
short itemT;
Rect itemR;
browseGlobals *globs;
char str[256];
GetDItem(dialog, item, &itemT, &itemH, &itemR);
/* get the appropriate string */
switch (item)
{
case PromptText:
/* read prompt from globals */
globs = GetBrowseGlobals(dialog);
BlockMove(globs->promptStr, str, globs->promptStr[0] + 1);
break;
case ZoneText:
GetIndString(str, BrowseSTR, ZoneTitle);
break;
case MachText:
GetIndString(str, BrowseSTR, MachTitle);
break;
case ApplText:
/* special case - can be customized */
globs = GetBrowseGlobals(dialog);
BlockMove(globs->applListTitle, str, globs->applListTitle[0] + 1);
break;
}
/* use Chicago 12 */
TextFont(0);
TextSize(12);
TextBox(&(str[1]), str[0], &itemR, teJustCenter);
/* restore for list stuff */
TextFont(listFont);
TextSize(listFontSize);
} /* CenterTitleProc() */
/*FORM_FEED*/
/*
*
* OBJECT: SetItemHandle
*
* DESCRIPTION: Sets item's handle.
*
* INPUTS: dialog: Pointer to dialog.
* item: Item number.
* procH: Proc pointer.
*
* OUTPUTS: None.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 09-24-87 JSM - Ported from Config.
*
* Copyright Apple Computer, Inc. 1987
* All rights reserved.
*
*/
void
SetItemHandle(DialogPtr dialog, short item, Handle procH)
{
short type;
Handle h;
Rect r;
GetDItem(dialog, item, &type, &h, &r);
SetDItem(dialog, item, userItem, procH, &r);
} /* SetItemHandle() */
/*FORM_FEED*/
/*
*
* OBJECT: StartNBP
*
* DESCRIPTION: Start the NBP lookup for the machine list in the current zone.
*
* INPUTS: globs: Pointer to globals.
* machZone: Zone to look in.
*
* OUTPUTS: None.
*
* RETURNS: Errors.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 02-11-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*/
OSErr
StartNBP(browseGlobals *globs, char *machZone)
{
MPPPBPtr pb;
char equalStr[2];
/* are we doing an NBP lookup in our home zone? */
globs->firstHomeLookup = (IUCompString(machZone, globs->homeZone) == 0);
globs->machineRegistered = false;
/* allocate parameter block for NBP */
pb = globs->NBPpb = (MPPPBPtr)NewPtr(sizeof(MPPParamBlock));
/* allocate initial return buffer for NBP */
pb->NBPretBuffPtr = NewPtr(NBPGuess);
/* look for specified entities, matching any name */
equalStr[0] = 0x01;
equalStr[1] = '=';
NBPSetEntity((Ptr)&(globs->NBPEntity), equalStr, globs->theLocNBPType, machZone);
/* set up fields not set up by PostNBP */
pb->MPPioCompletion = NULL; /* no completion routine */
pb->NBPentityPtr = (Ptr)&(globs->NBPEntity); /* ->entity name */
pb->NBPretBuffSize = NBPGuess; /* return buffer size */
pb->NBPmaxToGet = globs->NBPMaxToGet; /* maximum matches to get */
return(PostNBP(globs));
} /* StartNBP() */
/*FORM_FEED*/
/*
*
* OBJECT: StopNBP
*
* DESCRIPTION: Stops the current NBP lookup.
*
* INPUTS: globs: Pointer to globals.
*
* OUTPUTS: None.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 03-03-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*/
void
StopNBP(browseGlobals *globs)
{
MPPPBPtr pb = globs->NBPpb;
/* make sure there is a lookup in progress */
if (pb == NULL)
return;
/* is the lookup done? */
if (pb->MPPioResult > 0)
{
/* no, let's kill it */
KillNBP(pb);
}
/* clean up buffers */
DisposPtr(pb->NBPretBuffPtr);
DisposPtr((Ptr)pb);
globs->NBPpb = NULL;
} /* StopNBP() */
/*FORM_FEED*/
/*
*
* OBJECT: KillNBP
*
* DESCRIPTION: Kills the current NBP lookup.
*
* INPUTS: pb: MPPPBPtr to kill.
*
* OUTPUTS: None.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 03-03-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*/
void
KillNBP(MPPPBPtr pb)
{
MPPParamBlock killPB;
/* kill specified NBP lookup */
killPB.NBPnKillQEl = (Ptr)pb; /* pb to kill */
PKillNBP(&killPB, false); /* kill synchronously */
} /* KillNBP() */
/*FORM_FEED*/
/*
*
* OBJECT: PollNBP
*
* DESCRIPTION: Check to see if any new names have arrived in the in-progress
* NBPLookup. If any have, make sure they're unique and add
* them to the machine list.
*
* INPUTS: globs: Pointer to globals.
*
* OUTPUTS: None.
*
* RETURNS: Errors.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 03-03-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*/
OSErr
PollNBP(browseGlobals *globs)
{
MPPPBPtr pb = globs->NBPpb;
ListHandle theList;
short i, currNumGotten, numNew, rc;
Cell theCell;
Boolean unique, listChanged;
short myNode, myNet, currNet;
MachListData theData;
Ptr currResponse, currNetPtr;
char *currSelection;
Str32 homeMachine;
/*
First, check to see if we are still waiting
to do the next NBP lookup.
*/
if (globs->NBPBackingOff)
{
/* yes, check if we're done waiting */
if (TickCount() >= globs->NBPBackoff)
{
/* yes, post a new NBP lookup */
rc = PostNBP(globs);
}
else
/* still backing off */
rc = noErr;
return(rc);
}
/* no home machine yet */
homeMachine[0] = '\0';
/* get address of this machine */
GetNodeAddress(&myNode, &myNet);
/* mark all newly seen names as new */
theData.age = globs->NBPMaxLives;
theCell.h = 1;
/*
Process any newly received responses.
*/
currNumGotten = pb->NBPnumGotten;
if (currNumGotten != globs->NBPNumFound)
{
/* we've gotten new responses */
theList = globs->theList[MachListIndex];
LDoDraw(false, theList);
listChanged = false;
currNetPtr = (Ptr)&currNet;
do
{
/* point to first new response in return buffer */
currResponse = pb->NBPretBuffPtr + globs->NBPOffset;
/* only look at new ones */
numNew = currNumGotten - globs->NBPNumFound;
/* insert any names found */
for(i=1; i<=numNew; i++)
{
/* get current net, avoiding address errors */
*currNetPtr = *(unsigned char*)(currResponse + tupleNet);
*(currNetPtr + 1) = *(unsigned char*)(currResponse + tupleNet + 1);
/* see if this entity is on this machine */
if ((*((unsigned char*)(currResponse + tupleNode)) == myNode) &&
(currNet == myNet))
{
/* this is in our machine */
BlockMove(currResponse + tupleName, homeMachine,
(currResponse + tupleName)[0] + 1);
theData.isHomeMachine = true;
/* set flag in globals */
globs->machineRegistered = true;
}
else
{
/* this is not our machine */
theData.isHomeMachine = false;
}
/* try to insert it */
theCell.v = InsertListCell(currResponse + tupleName, theList, &unique);
if (unique)
{
/* cell was unique, so list has changed */
listChanged = true;
/* if it was inserted before the current cell, need to update */
if (theCell.v <= globs->machCell)
globs->machCell++;
}
/* mark it as new */
LSetCell((Ptr)&theData, sizeof(MachListData), theCell, theList);
/* bump currResponse to next response */
currResponse += tupleName; /* bump past address */
currResponse += currResponse[0] + 1; /* bump past object name */
currResponse += currResponse[0] + 1; /* bump past type */
currResponse += currResponse[0] + 1; /* bump past zone */
}
/* update current offset */
globs->NBPOffset = (short)(currResponse - pb->NBPretBuffPtr);
/* check if any more names came in while we were working */
globs->NBPNumFound = currNumGotten;
currNumGotten = pb->NBPnumGotten;
} while (currNumGotten != globs->NBPNumFound);
/*
Done processing new responses. Now try to do
default selection, if necessary.
*/
if (globs->selectingDefault)
{
/* see if we're selecting ourselves */
if ((!globs->defaultSpecified) || (globs->theLoc->locationKindSelector == ppcNoLocation))
{
/* yes */
currSelection = homeMachine;
}
else
{
/* use default location specified by caller */
currSelection = &(globs->theLoc->u.nbpEntity.objStr[0]);
}
if (currSelection[0] != '\0')
{
/* try and select specified cell */
if (FindAndSelectCell(theList, currSelection))
{
/* found it */
NewMachSelected(globs);
}
}
}
LDoDraw(true, theList);
if (listChanged)
{
/* need to inval the list */
HLock((Handle)theList);
InvalRect(&((**theList).rView));
HUnlock((Handle)theList);
}
/*
If the current lookup has overflowed, then stop it,
grow the response buffer, and post a new lookup.
*/
if ((pb->NBPretBuffSize - globs->NBPOffset) < NBPOverflowTolerance)
{
/* overflowed, kill current lookup */
KillNBP(pb);
/* grow buffer and post a new lookup */
return(GrowAndPostNBP(globs));
}
}
/*
Done processing new responses, now see if the lookup
has completed.
*/
if (pb->MPPioResult <= 0)
{
/* lookup has completed, check for overflow */
if ((pb->NBPretBuffSize - globs->NBPOffset) < NBPOverflowTolerance)
{
/* we've overflowed, grow buffer and post a new lookup */
return(GrowAndPostNBP(globs));
}
else
{
/* no overflow, age current names */
AgeNBP(globs);
/* do we need to check for our machine? */
if (globs->firstHomeLookup)
{
/* don't check anymore */
globs->firstHomeLookup = false;
CheckOurMachine(globs);
}
/* wait awhile before posting another lookup */
globs->NBPBackingOff = true;
globs->NBPBackoff = TickCount() + globs->NBPMaxIdle;
}
}
return(noErr);
} /* PollNBP() */
/*FORM_FEED*/
/*
*
* OBJECT: GrowAndPostNBP
*
* DESCRIPTION: Grow the NBP response buffer and post a new lookup.
*
* INPUTS: globs: Pointer to globals.
*
* OUTPUTS: None.
*
* RETURNS: Errors.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 03-08-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*/
OSErr
GrowAndPostNBP(browseGlobals *globs)
{
MPPPBPtr pb = globs->NBPpb;
unsigned short newBuffSize;
/* add increment to the buffer size and check to see if it is too large */
newBuffSize = pb->NBPretBuffSize + NBPIncrement;
if (newBuffSize <= (globs->NBPMaxToGet * NBPMaxResponseSize))
{
/* buffer not too large, try to increase the size */
DisposPtr(pb->NBPretBuffPtr);
pb->NBPretBuffPtr = NewPtr(newBuffSize);
if (pb->NBPretBuffPtr == NULL)
{
/* couldn't get larger buffer */
pb->NBPretBuffPtr = NewPtr(pb->NBPretBuffSize);
}
else
{
/* got new buffer */
pb->NBPretBuffSize = newBuffSize;
}
}
/* post new lookup */
return(PostNBP(globs));
} /* GrowAndPostNBP() */
/*FORM_FEED*/
/*
*
* OBJECT: AgeNBP
*
* DESCRIPTION: Go through the list of machines and age and delete any which
* are too old.
*
* INPUTS: globs: Pointer to globals.
*
* OUTPUTS: None.
*
* RETURNS: Nothing.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 03-03-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*/
void
AgeNBP(browseGlobals *globs)
{
ListHandle theList;
short numRows, theLen;
Cell theCell;
MachListData theData;
theList = globs->theList[MachListIndex];
/* we're looking at the second column */
theCell.h = 1;
/* see how many rows to check */
numRows = (**theList).dataBounds.bottom - (**theList).dataBounds.top;
/* scan the list from the bottom up */
while (numRows != 0)
{
/* get age data on current cell */
theLen = sizeof(MachListData);
theCell.v = numRows-1;
LGetCell((Ptr)&theData, &theLen, theCell, theList);
/* don't age our own machine */
if (!theData.isHomeMachine)
{
if (theData.age <= 0)
{
/* this cell has aged too much, delete it */
LDelRow(1, numRows-1, theList);
/* are we deleting the currently selected cell? */
if (numRows-1 == globs->machCell)
{
/* yes, update */
NewMachSelected(globs);
}
else if (numRows-1 < globs->machCell)
{
/* deleting a row before currently selected cell */
globs->machCell--;
}
}
else
{
/* age this cell */
theData.age--;
LSetCell((Ptr)&theData, sizeof(MachListData), theCell, theList);
}
}
/* move to next row */
numRows--;
}
} /* AgeNBP() */
/*FORM_FEED*/
/*
*
* OBJECT: PostNBP
*
* DESCRIPTION: Posts a new NBP lookup. Resets NBPnumGotten, NBPcount,
* and NBPinterval in the MPPPBPtr, and NBPBackingOff,
* NBPNumFound, and NBPOffset in the globals, then calls PLookupName.
* If PLookupName does not start successfully, cleans up.
*
* INPUTS: globs: Pointer to globals.
*
* OUTPUTS: None.
*
* RETURNS: Errors from PLookupName.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 03-03-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*/
OSErr
PostNBP(browseGlobals *globs)
{
MPPPBPtr pb = globs->NBPpb;
short rc;
/* initialize globals */
globs->NBPBackingOff = false; /* we're not backing off */
globs->NBPNumFound = 0; /* we've haven't fetched any */
globs->NBPOffset = 0; /* responses yet */
pb->NBPnumGotten = 0; /* NBP lookup hasn't gotten any yet */
pb->NBPinterval = globs->NBPInterval; /* retry interval */
pb->NBPcount = globs->NBPCount; /* retry count */
/* start asynchronous lookup */
rc = PLookupName(pb, true);
if (rc != noErr)
{
/* PLookupName failed, clean up */
DisposPtr(pb->NBPretBuffPtr);
DisposPtr((Ptr)pb);
globs->NBPpb = NULL;
}
return(rc);
} /* PostNBP() */
/*FORM_FEED*/
/*
*
* OBJECT: StartListPorts
*
* DESCRIPTION: Start the IPCListPorts call for the specified location.
*
* INPUTS: globs: Pointer to globals.
* portLocName: Location of port.
*
* OUTPUTS: None.
*
* RETURNS: Errors.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 03-06-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*/
OSErr
StartListPorts(browseGlobals *globs, LocationNameRec *portLocName)
{
IPCListPortsPBPtr pb;
/* allocate parameter block for IPCListPorts */
globs->PPCpb = pb = (IPCListPortsPBPtr)NewPtr(sizeof(IPCListPortsPBRec));
/* allocate initial return buffer for IPCListPorts */
pb->bufferPtr = (PortInfoRec*)NewPtr(PPCGuess * sizeof(PortInfoRec));
/* save specified location in globals */
BlockMove((Ptr)portLocName, (Ptr)&(globs->PPCLoc), sizeof(LocationNameRec));
/* set up pb for IPCListPorts */
pb->ioCompletion = NULL; /* no completion routine */
pb->requestCount = PPCGuess; /* start with PPCGuess ports max */
pb->portName = &(globs->PPCPort); /* port name to look for */
pb->locationName = &(globs->PPCLoc); /* location to look in */
/* start the IPCListPorts asynchronously */
return(PostListPorts(globs));
} /* StartListPorts() */
/*FORM_FEED*/
/*
*
* OBJECT: StopListPorts
*
* DESCRIPTION: Stops the current IPCListPorts.
*
* INPUTS: globs: Pointer to globals.
*
* OUTPUTS: None.
*
* RETURNS: Errors.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 03-06-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*/
OSErr
StopListPorts(browseGlobals *globs)
{
IPCListPortsPBPtr pb = globs->PPCpb;
/* make sure there is an IPCListPorts in progress */
if (pb == NULL)
return(noErr);
/* is the IPCListPorts done? */
if (pb->ioResult > 0)
{
/* no, let's kill it */
KillListPorts(pb);
}
/* clean up buffers */
DisposPtr((Ptr)pb->bufferPtr);
DisposPtr((Ptr)pb);
globs->PPCpb = NULL;
return(noErr);
} /* StopListPorts() */
/*FORM_FEED*/
/*
*
* OBJECT: KillListPorts
*
* DESCRIPTION: Kills the current IPCListPorts.
*
* INPUTS: pb: MPPPBPtr to kill.
*
* OUTPUTS: None.
*
* RETURNS: Errors from PKillNBP.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 03-03-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*/
OSErr
KillListPorts(IPCListPortsPBPtr pb)
{
/* this could take some time for now */
SetCursor(*GetCursor(watchCursor));
/* for now, just wait for it to complete */
while (pb->ioResult > 0)
;
InitCursor();
return(noErr);
} /* KillListPorts() */
/*FORM_FEED*/
/*
*
* OBJECT: PollListPorts
*
* DESCRIPTION: Check to see if the current IPCListPorts has completed.
* If it has, add any new ports to the list and delete ones
* that no longer exist. Handles overflows, too.
*
* INPUTS: globs: Pointer to globals.
*
* OUTPUTS: None.
*
* RETURNS: Errors.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 03-06-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*/
OSErr
PollListPorts(browseGlobals *globs)
{
IPCListPortsPBPtr pb = globs->PPCpb;
PortInfoRec *portInfo;
PPCFilterProcPtr portFilter;
ListHandle theList;
short numRows, theLen;
short i, rc;
Cell theCell;
Boolean unique, listChanged;
ApplListData theData;
unsigned short newBuffSize;
Boolean portOK;
// char tempstr[255];
/*
First, check to see if we are still waiting
to do the next IPCListPorts.
*/
if (globs->PPCBackingOff)
{
/* yes, check if we're done */
if (TickCount() >= globs->PPCBackoff)
{
/* yes, post a new IPCListPorts */
rc = PostListPorts(globs);
}
else
/* still backing off */
rc = noErr;
return(rc);
}
/* is the current list ports done? */
if (pb->ioResult > 0)
{
/* no, let's wait some more */
return(noErr);
}
// if (pb->ioResult != noErr)
// {
// sprintf(tempstr, "PollListPorts: error - %d", pb->ioResult);
// c2pstr(tempstr);
// DebugStr(tempstr);
// }
if (pb->ioResult == noResponseErr)
{
/*
We get tons of these errors because the PPCToolbox doesn't
do an NBP lookup long enough. Just ignore it and start over.
*/
/* post a new IPCListPorts */
return(PostListPorts(globs));
}
/*
The current IPCListPorts has completed, so we have to
process the responses. First, mark all current ports
in the list as no longer existing.
*/
theList = globs->theList[ApplListIndex];
theCell.h = 1;
numRows = (**theList).dataBounds.bottom - (**theList).dataBounds.top;
LDoDraw(false, theList);
listChanged = false;
while (numRows != 0)
{
/* get data on current cell */
theLen = sizeof(ApplListData);
theCell.v = numRows-1;
LGetCell((Ptr)&theData, &theLen, theCell, theList);
/* set exists to false for current cell */
theData.exists = false;
LSetCell((Ptr)&theData, sizeof(ApplListData), theCell, theList);
/* move to next row */
numRows--;
}
/* get current filter proc, if any */
portFilter = globs->portFilter;
/*
Now, go through all the returned ports and try to
add them to the list.
*/
/* start at the beginning of the buffer */
portInfo = (PortInfoRec*)pb->bufferPtr;
for (i = 1; i <= pb->actualCount; i++)
{
/* try to add current port to list */
theCell.v = InsertListCell(&(portInfo->name.name[0]), theList,
&unique);
if (!unique)
{
/*
Tried to insert a port with the same name.
Note that we can have port's with the same name, but
the type could be different. We will show these twice,
in a consistent order, although they will look the same
in the list.
*/
theCell.v = InsertPortInfo(portInfo, theList, &unique);
}
portOK = true;
if (portFilter != NULL)
{
if (unique)
{
// sprintf(tempstr, "PollListPorts - inserting at row %d", theCell.v);
// c2pstr(tempstr);
// DebugStr(tempstr);
/* cell was unique, so it hasn't been filtered yet */
if (!(portOK = (portFilter)(&(globs->PPCLoc),
portInfo)))
{
/* filter proc rejected it, so delete the cell we just inserted */
LDelRow(1, theCell.v, theList);
}
}
else
{
/*
The cell wasn't unique, so it passed the filter proc already.
However, some characteristics of the PortInfoRec may have
changed (e.g. authRequired), so check to make sure.
*/
/* get data on current cell */
theLen = sizeof(ApplListData);
LGetCell((Ptr)&theData, &theLen, theCell, theList);
/* has the PortInfoRec changed? */
if (!ComparePortInfo(&(theData.thePortInfo), portInfo))
{
/* yes, run it through the filterProc again */
if (!(portOK = (portFilter)(&(globs->PPCLoc),
portInfo)))
{
/* filter proc rejected it, so delete the cell */
LDelRow(1, theCell.v, theList);
}
}
}
}
if (portOK)
{
/* port wasn't filtered out */
/* get data on current cell */
theLen = sizeof(ApplListData);
LGetCell((Ptr)&theData, &theLen, theCell, theList);
/* this port exists */
theData.exists = true;
/* update the PortInfoRec (not always necessary, but big deal) */
BlockMove((Ptr)portInfo, (Ptr)&(theData.thePortInfo),
sizeof(PortInfoRec));
if (unique)
{
/* cell was unique, so list has changed */
listChanged = true;
/* if it was inserted before the current cell, need to update */
if (theCell.v <= globs->applCell)
globs->applCell++;
}
/* set the new cell data */
LSetCell((Ptr)&theData, sizeof(ApplListData), theCell, theList);
}
/* move to the next returned port */
portInfo++;
}
/* make sure everything gets updated */
LDoDraw(true, theList);
if (listChanged)
{
/* need to inval the list */
HLock((Handle)theList);
InvalRect(&((**theList).rView));
HUnlock((Handle)theList);
}
/*
We've gone through all of the returned ports. Now, delete any
ports from the list that no longer exist.
*/
numRows = (**theList).dataBounds.bottom - (**theList).dataBounds.top;
while (numRows != 0)
{
/* get data on current cell */
theLen = sizeof(ApplListData);
theCell.v = numRows-1;
LGetCell((Ptr)&theData, &theLen, theCell, theList);
if (!theData.exists)
{
/* port no longer exists, delete it */
LDelRow(1, numRows-1, theList);
/* are we deleting the currently selected cell? */
if (numRows-1 == globs->applCell)
{
/* yes, update */
NewApplSelected(globs);
}
else if (numRows-1 < globs->applCell)
{
/* deleting a row before currently selected cell */
globs->applCell--;
}
}
/* move to next row */
numRows--;
}
/*
Now, try to do default selection, if necessary.
*/
if (globs->selectingDefault)
{
/* see if we have to select a specified application */
if (globs->defaultSpecified)
{
/* yes, try and find it */
if (FindAndSelectPortInfoCell(theList, globs->thePortInfo))
{
/* found it */
NewApplSelected(globs);
/* we're done default selecting */
globs->selectingDefault = false;
}
}
else
{
/* no default selection from caller, just select first in list */
if ((**theList).dataBounds.top != (**theList).dataBounds.bottom)
{
/* list isn't empty, select first cell */
theCell.h = 0;
theCell.v = 0;
// SelectAndRevealRelative(theCell, theList);
SelectAndReveal(theCell, theList);
NewApplSelected(globs);
/* we're done default selecting */
globs->selectingDefault = false;
}
}
}
/*
We're done processing the IPCListPorts, if we have overflowed
increase the buffer size and post a new list ports.
*/
if (pb->actualCount == pb->requestCount)
{
/* returned all ports we have room for, increment buffer */
newBuffSize = (pb->requestCount + PPCIncrement) * sizeof(PortInfoRec);
/* is it too large? */
if (newBuffSize <= (globs->PPCMaxToGet * sizeof(PortInfoRec)))
{
/* no, try to increase the size */
DisposPtr((Ptr)pb->bufferPtr);
pb->bufferPtr = (PortInfoRec*)NewPtr(newBuffSize);
if (pb->bufferPtr == NULL)
{
/* couldn't get larger buffer */
pb->bufferPtr = (PortInfoRec*)NewPtr(pb->requestCount * sizeof(PortInfoRec));
}
else
{
/* got new buffer */
pb->requestCount += PPCIncrement;
}
}
/* list it again */
return(PostListPorts(globs));
}
/* now, lets wait awhile before doing another ListPorts */
globs->PPCBackingOff = true;
globs->PPCBackoff = TickCount() + globs->PPCMaxIdle;
return(noErr);
} /* PollListPorts() */
/*FORM_FEED*/
/*
*
* OBJECT: PostListPorts
*
* DESCRIPTION: Posts a new IPCListPorts. Resets PPCBackingOff
* in the globals, and startIndex and actualCount in the
* IPCListPortParams, then calls IPCListPorts. If IPCListPorts
* does not start successfully, cleans up.
*
* INPUTS: globs: Pointer to globals.
*
* OUTPUTS: None.
*
* RETURNS: Errors from PLookupName.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 03-06-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*/
OSErr
PostListPorts(browseGlobals *globs)
{
IPCListPortsPBPtr pb = globs->PPCpb;
short rc;
globs->PPCBackingOff = false;
pb->startIndex = 0; /* start with first port */
pb->actualCount = 0; /* haven't gotten any ports yet */
rc = IPCListPorts(pb, true); /* start asynchronous list ports */
if (rc != noErr)
{
/* IPCListPorts failed, clean up */
DisposPtr((Ptr)pb->bufferPtr);
DisposPtr((Ptr)pb);
globs->PPCpb = NULL;
}
return(rc);
} /* PostListPorts() */
/*FORM_FEED*/
/*
*
* OBJECT: InsertPortInfo
*
* DESCRIPTION: InsertListCell has said that a cell with the specified port name
* already exists in the list. For ports, however, duplicate
* name's are OK, so we have to see if the port specified by
* thePortInfo is really there.
*
* We can't do a binary search, since we have to find the first
* entry in the list with the specified port name. The location
* of the duplicate found by InsertListCell isn't used here because
* InsertListCell uses a binary search, so it may not be the first match
* in the list.
*
* The secondary sorting on ports is based on the type. The actual sort
* method used isn't that important, since they'll all look the same to
* the user anyway. However, it needs to be consistent, since theoretically
* IPCListPorts can return ports in any order (although in reality it doesn't
* at the moment). See the header on ComparePortName for more information
* on the sorting method used.
*
* As in InsertListCell, it only inserts unique cells, and sets unique to FALSE
* if the cell already exists. Returns row where cell was inserted, or
* row where matching cell exists.
*
* Still to do: may need to pass in comparison routine to LSearch.
*
* INPUTS: thePortInfo: Pointer to PortInfoRec to insert.
* theList: Port list.
*
* OUTPUTS: unique: TRUE if cell was unique and inserted, FALSE otherwise.
*
* RETURNS: Row where cell was inserted or matching cell exists.
*
* EFFECTS: None.
*
* MODIFICATIONS:
* 04-06-90 JSM - Created.
*
* Copyright Apple Computer, Inc. 1990
* All rights reserved.
*/
short
InsertPortInfo(PortInfoRec *thePortInfo, ListHandle theList, Boolean *unique)
{
Boolean done;
short compResult;
short theLen;
Cell theCell;
ApplListData theData;
/* find the first matching cell in the list */
theCell.h = 0;
theCell.v = 0;
/* this LSearch should work, since InsertListCell found a match already */
LSearch(&(thePortInfo->name.name[1]), (short)thePortInfo->name.name[0],
NULL, &theCell, theList);
/*
Now, go down through the list of matching cells and
figure out where to put this one.
*/
theCell.h = 1;
done = false;
while (!done)
{
/* get PortInfoRec for current cell */
theLen = sizeof(ApplListData);
LGetCell((Ptr)&theData, &theLen, theCell, theList);
/* compare the names */
compResult = ComparePortName(&(thePortInfo->name),
&(theData.thePortInfo.name));
if (compResult <= 0)
{
/* same ports, or port to insert < current port, so we're done */
done = true;
*unique = (compResult != 0);
}
else
{
/* port to insert still > current port */
/* check next cell */
theCell.v++;
/* are we off the end of the list? */
if (theCell.v == (**theList).dataBounds.bottom)
{
/* yes, insert cell at the end */
done = true;
*unique = true;
}
}
} /* while (!done) */
if (*unique == true)
{
/* cell was unique, insert it */
LAddRow(1, theCell.v, theList);
/* set the port name in column 0, PollListPorts sets column 1 */
theCell.h = 0;
LSetCell(&(thePortInfo->name.name[1]), thePortInfo->name.name[0],
theCell, theList);
}
return(theCell.v);
} /* InsertPortInfo() */
Reference in New Issue View Git Blame Copy Permalink