TweetFollow Us on Twitter

HyperAppleTalk 1
Volume Number:5
Issue Number:1
Column Tag:HyperChat™

Related Info: AppleTalk Mgr

XCMD Cookbook: HyperAppleTalk

By Donald Koscheka, Arthur Young & Company, MacTutor Contributing Editor

Note: Source code files accompanying article are located on MacTech CD-ROM or source code disks.

HyperCard Networking

One of the areas where XCMDs can dramatically alter the capabilities of HyperCard is networking. HyperCard 1.2 introduced the concept of shared stacks by implementing an interface to AppleShare. Unfortunately, too many people have come to believe that AppleShare is all the networking that you need in HyperCard or in any other application on the Macintosh.

Networking can offer a lot more than simple file access to the user. Imagine sending messages or data between stacks interactively. While I was still at Apple, we implemented two stacks that better explain this concept. Imagine that one Mac on the network acted as the stock exchange. Each successive stack that logged in becomes a stock broker and can immediately begin buying and selling stocks and competing against other brokers on the network. This was a fun little project that took on a wonderful new dimension when we added the network interface. There is no truth to the rumor that we began beta testing this stack on October 19, 1987!

A second stack that we wrote provided the capability of an interactive chalkboard. Everybody who logs in can see the chalkboard as well as pick a paint tool and actually draw something on the board. Every other user would see these changes. An interesting exercise in cooperative work area applications.

HyperAppleTalk

The code that I used to implement these sample stacks is a set of XCMDs called “HyperAppleTalk”. These XCMDs implemented the AppleTalk Transaction Protocol (ATP) and the Name Binding Protocol (NBP). ATP is a network protocol that implements the server/client model. One entity on the network acts as an information provider or server while subsequent systems act as information requestors or clients. Although this is a very flexible model, the particular implementation of ATP is a little too limiting. Client requests must be less the 578 bytes in length and server responses must be less than 4624 bytes. If a client made a request to the user for a file that is greater than 4600 bytes, the ATP protocol would need help from another protocol layered on top of ATP. I chose not to implement this protocol because ATP as it stands is more than adequate for sharing messages between stacks. You can obtain a copy of these XCMDs, written in MPW C, from the Apple Programmers and Developers Association (APDA).

The second protocol that I implemented in HyperAppleTalk is the Name Binding Protocol. This is the mechanism by which user names are associated with network addresses on AppleTalk. The name binding protocol allows you to register a name with the network. This is an important feature since network addresses tend to resemble phone numbers. Imagine how much trouble you would have using the phone if you knew only a party’s number and not their name!

Over the next several months I will be providing you with network access in HyperCard. This month I will introduce the concept of “connecting” to the network, that is, establishing the address and record structures required to maintain communication with the network. Next month, I will provide a complete set of routines for access to the Name Binding Protocol. The third installment will feature an important new protocol, the AppleTalk Data Stream Protocol. Finally, we’ll add some embellishments such as access to multiple networks across bridges and file transfer across the network. The result will be complete set of protocols that will allow you to interactively send messages, data and even entire files between stacks running on different systems.

“Connecting” to the Network

To help us get started, we need to examine network basics. Because network programming carries the aura of being difficult, I will keep this introduction simple. You can obtain more information from Inside Macintosh, Inside AppleTalk or from back issues of MacTutor (April ’87, Vol. 3 No. 4) which is where I first learned how to program for the network.

A network consists of a number of entities that are connected by some common transport mechanism. Foremost of us, this transport mechanism is LocalTalk. A node is any device that can be connected to the network and share information with other devices. For sake of illustration, think of each device on the network as a single node.

The set of software protocols that control the traffic and communications on the network is called “AppleTalk”. These protocols are quite independent of the cabling between entities which is why Apple went to such pains to divorce LocalTalk from AppleTalk. This separation pays dividends to the programmer. We can think of AppleTalk as a software mechanism and not worry a whit about what wires are connected.

AppleTalk functions at a variety of levels. At the lowest level, AppleTalk coordinates the transmission and reception of discrete packets of information between entities. To ensure that two entities don’t “hog up the wire” each communication is sent as packets of about 600 bytes of information. A 6K file will require about 10 packets to be sent in its entirety. We call the complete communication of all packets a transaction. The completion of a transaction is guaranteed for you by AppleTalk via the Dynamic DataLink Protocol (DDP), and we need not concern ourselves with it at this time (there are lower-level protocols than DDP, but we don’t need to know them to do serious programming on the network. Think of the lower layers as the network’s “assembly language”).

Nodes address each other on the network by their network addresses. As we said, Network Addresses are similar to phone numbers. If you know the network address of any entity, you can communicate with that entity. The network address consists of three objects: the network number, the node and the socket. For now, we’ll assume that all entities are on the same network so that the network number is always 0 (we’ll relax this constraint later when we introduce the concept of internet addressing with the Zone Information Protocol). The second part of the address is the node id which uniquely identifies an entity within a given network.

The most important concept in the network address is the concept of a socket. A network address is a 16-bit object (a pascal INTEGER) that remains constant for as long as that network remains active. The node id is an 8-byte entity that remains valid for as long as an given node in the network stays up. Sockets, unlike network and node id’s, come and go as needed. Sockets are associated with individual transactions on the network and provide a vital way for the network to properly route transactions between nodes on the network.

Socket Flavors

For our purposes, sockets come in two flavors, listening sockets and transaction sockets. Each node on the network needs at least one “semi-permanent” listening socket whose sole job is to react to incoming requests from other nodes. Listening sockets are like the “ringer” on your telephone. They don’t do much more than let you know that someone is trying to get a hold of you. Listening sockets are said to be semi-permanent because they are assigned to a single node for as long as that node remains connected to the appropriate protocol. In ATP, a listening socket is equivalent to a server. In ADSP, as we shall see, a listening socket is also called a connection listener.

The second class of sockets are “dynamic” sockets which I refer to as transaction sockets. Once a connection is established between any two nodes, a transaction socket is assigned to those two nodes for the duration of that transaction. Once the transaction is completed, the dynamic socket is returned to the “socket” pool. This is important because a socket is an 8-bit entity. With only 256 possible combinations, the need to conserve and reuse socket numbers becomes important.

The neat thing about dynamic sockets is that they uniquely identify a given transaction. One node can easily carry on multiple conversations simultaneously because each conversation is identified by its unique socket id. Dynamic sockets are assigned and de-assigned automatically. We won’t have to concern ourselves with the intricate underworkings of this mechanism in this discussion. All we need to remember is that when we establish a connection with another entity on the network, that connection will receive a unique socket id. When we “tear down” the connection, that socket will be made available for a future connection.

Name Calling

Keeping track of nodes on the network by their network address is not particularly user friendly; it would be roughly similar to calling people by their social security numbers. And we know that’s not user friendly because only government agencies and the DMV would think of doing that!

We need a way of identifying a given node on a given network with a particular user. In other words, we need a way of binding a user-selectable name with a given network address. This is accomplished using AppleTalk’s name binding protocol (NBP). To bind a name to a network address, we need both a name and an address. Choosing a name is a matter of taste. You can use the name that the user entered in the chooser, or you can ask the user for a name. We’ll present both techniques since not every user types a name in the chooser dialog. Next we’ll need to know what address to bind that name to. We can’t bind a name to a dynamically assigned address for an obviously subtle reason. That is, a node can have a name, a transaction takes on the name of whichever node the transaction is taking place on. As far as why this is true, it should become obvious as you read through the code (i.e. it is left as an exercise for the student).

The binding of a name to a network address can only be done once we establish an address for the listening socket. The listening socket is protocol-sensitive - we don’t want to open a listening socket for ATP if we’re going to be using ADSP as our communications protocol. Thus, we’ll need to open up access to ADSP first to establish the socket address. Once we have this address, we can pass it to the Name Binding Protocol (NBP) along with a name to establish a link. We refer to the association of a name with a network address as an “entity”. An entity is said to be network visible if any other entity on the network can see the address of that entity.

To gain access to the network, we first check to see if AppleTalk is installed with the call to MPPOpen in ADSPOpen (see listing 4). Next, we open up the ADSP protocol driver, intialize some global variables and then establish an ADSP listening socket. We use the setglobal callback to set the values of the globals “HyperADSPData and “mySocketListener”. These globals must be declared before they are used or you may find that earlier versions of HyperCard will bomb out (alas, a bug in HyperCard).

We don’t need to open the Name Binding Protocol (NBP) driver since it is automatically opened for us if AppleTalk is running. The XFCN NBPOpen ( see listing 5 ) initializes the fields in the NBPBlock record. Don’t worry about what those fields do, they’ll be the topic of next month’s article.

Listing 1a is a sample HyperTalk script for opening both ADSP and NBP. Note that if ADSP doesn’t open, there is no need to open NBP; we didn’t get access to the network (the most likely reason for this is that the ADSP driver was not installed at boot time).

If ADSP opens ok, it sets the globaladspdata and mysocketlistener global containers. NBP will need access to the latter container, while globaladspdata is used solely by our ADSP xcmds. Don’t worry about the individual fields in all the records yet, we’ll cover them in sufficient detail in upcoming issues.

The important actions to point out right now is the opening of the “.dsp” (aka ADSP) driver and the assigning of a listening socket. Also, three globals will be used for storage. GlobalNBPData stores a pointer to our NBPBlock. Note that the pointer is stored as a numeric string. This is just to keep compatible with HyperCard’s wanting to use containers to store strings. Similarly, GlobalADSPData stores a pointer to the ADSPBlock and mySocketListener stores the value of the connection listening socket (to be discussed in gory detail in an upcoming issue). Changing any of these values will result in the untimely death of your stack. Make sure your users don’t have access to these containers.

Listings 2-3 contain some global constant and type declarations for ADSP and NBP respectively. Again, there is a lot more there than I can cover in one issue of this magazine, let alone a single column. We will cover all of this information in more detail so stay tuned.

Because we should never leave something undone in HyperCard, a pair of complementary XFCNs are provided in listings 6 and 7. ADSPClose and NBPClose check to see that their global data is allocated. If not, they assume that the drivers are already closed and just return. Otherwise, shut down the communications and clear out the global data. We don’t actually close either AppleTalk or ADSP because some other application may have opened them after we did. This is an important exception to the “If you opened, you close it rule”. In general, if you open an AppleTalk driver, you can leave it open because another application may already be using it. Listing 1b shows one way to access these XFCNs.

Listing 1

on openstack
 global globalNBPData, myRegisteredType, myRegisteredName
 global globaladspData, mySocketListener
  
 put adspOpen() into it
 if it is empty then
 -- have access to adsp and a valid socket in
 -- mySocketListener, okay to continue
        put nbpOpen() into it
        if it is not empty then
        answer “Could Not gain access to NBP” with “OK”
 else
 answer “Welcome to AppleTalk” with “OK”
        end if
   else
        answer “ADSP Driver Not installed” with “OK”
 end if
end openstack

Listing 1a. A sample Script to Open access to the network
on closeStack
 global globalNBPData, myRegisteredType, myRegisteredName
 global globaladspData, mySocketListener

 put adspClose() into some_sort_of_error
 put nbpclose() into yet_another_result
end closeStack

Listing 1b. A sample Script for closing down the network 
Listing 2. Constant and Type declarations for ADSP connections

(******************************)
(* file: ADSPxcmd.p*)
(* *)
(* Interface stuff for adsp *)
(* *)
(* ------------------------ *)
(* By:  Donald Koscheka *)
(* Date:10-Oct-88*)
(* ------------------------ *)
(******************************)

UNIT adspxcmd;

INTERFACE

USES  Memtypes, QuickDraw, OSIntf,
 ToolIntf, AppleTalk, ADSP;

CONST

ASYNC   = TRUE;
SYNC    = FALSE;

{*** connection mode status ***}
NOP= 0;
REQ= 1;
ACK= 2;
EST= 3;

NBPLSIZE= 120;
ATPBSIZE= 578;{standard size of transaction}

INTERVAL= 20;{ default retry interval}
RETRY = 3;{ retry count =3 (3*60=30 secs)}

CLOSE_OK= 0;
RECEIVING = 1;
CLOSE_NOW = 2;

(************************************)
(* The following data blocks      *)
(* reference memory pointers      *)
(* rather than handles. This      *)
(* is to insure that all of the   *)
(* data in the connection  block    *)
(* is non-relocatable since       *)
(* ADSP runs asynchronously       *)
(************************************)

TYPE

LIntPtr = ^LongInt;
IntPtr  = ^INTEGER;

{******** A connection block    **************}
CBPtr = ^Connection;
Connection  = Packed Record
next  : CBPtr;   { pointer to next connection      }
last  : CBPtr;   { pointer to last connection      }
ccbRef: Integer; { connection reference #          }
mode  : Integer; { set if connection is open }
adr: AddrBlock;  { address of remote end           }
msg: Handle;{ callback  for incoming dat     }
sendQ: Ptr; { send buffer to remote end      }
recvQ: Ptr; { input buf from remote end}
attn  : Ptr;{ attention messages buffer}
outBuf: Handle;  { where outgoing data goes  }
inBuf: Handle;   { where the input data goes }
attnBuf: Handle; { where attention data goes }
remName: Handle; { entity name of  remote end      }
ccb: TRCCB; { pointer to ccb}
attnPB: DSPParamBlock;  { attntion message pb      }
dspPB: DSPParamBlock;{ connection pb }
user  : Handle;  { place for user data }
End;

{ This is the listening connection }
ADSPPtr = ^ADSPBlock;
ADSPBlock = Packed Record{ ADSP protocol data}
 dspRefNum: Integer; { driver refnum }
 ccbref : Integer; { listener ccbRefNum}
 addr   : AddrBlock; { listener socket }
 ends   : CBPtr; { connections list}
 ccb    : TRCCB; { listener ccb    }
 pb: DSPParamBlock;{ pb for listener }
 chkPoint : Integer; { set if in callback}
 oldSelf: Byte;  {old  self-send flag}
 pad    : Byte;  { keep em even    }
End;

Str31 = String[31];

End.
Listing 3. Constant and Type declarations for NBP access


(******************************)
(* file:  NBPXCMD.p*)
(* *)
(* Constant and type *)
(* decalarations for nbp  *)
(* xcmds*)
(* ------------------------ *)
(* © Donald Koscheka *)
(* 6-October, 1988 *)
(* All Rights Reserved    *)
(* *)
(* ------------------------ *)
(*  Date    |   Description*)
(* ------------------------ *)
(* 06-Oct-88| file created*)
(* ------------------------ *)
(******************************)

UNIT  NBPXCMD;

(******************************)
 INTERFACE
(******************************)

USES  Memtypes, QuickDraw, OSIntf, ToolIntf, AppleTalk;

CONST

ASYNC   = TRUE;
SYNC    = FALSE;
NODE_NAME = -16096;(* name in chooser (STR )*)
MAXNODES= 100; (* maximum nodes for zone*)
NBPLSIZE= 120; (* size local buf for NBP*)
NN = 30;(* #names in lookup table*)
ENTITYSIZE= 110; (* size of entity *)
CLOSE_OK= 0;(* not “CLOSE” critical*)
CLOSE_NOW = 2;   (* close down when done     *)

TYPE

Str31   = String[31];

NBPBlkPtr = ^NBPBlock;
NBPBlock  = RECORD
 Registered: BOOLEAN;(* true = registered    *)
 EntCount : INTEGER;(* # of entities visible *)
LookUpBuffer: Handle;(* lookup buffer*)
 NTEntry: NamesTableEntry;(* entry in names table*)
 NBPLocal : array[1..NBPLSIZE] of Char;(* used by NBP*)
END;

END.
Listing 4. ADSPOpen() XFCN

(******************************)
(* file:  ADSPOpen.p *)
(* *)
(* Open the “.DSP” driver *)
(* and establish memory for *)
(* the ADSPBlock.Creates the*)
(*connection listener*)
(* *)
(* Requires these Globals *)
(* GLOBALADSPDATA*)
(* mySocketListener*)
(* *)
(* DEFINE THE GLOBALS BEFORE*)
(* USING THEM    *)
(* ------------------------ *)
(* By:   Donald Koscheka  *)
(* Date:10-Oct-88*)
(******************************)
(****************************
 Build Sequence

pascal “{adsp}”ADSPOpen.p -o “{hato}”ADSPOpen.p.o 
link -m ENTRYPOINT  -rt XFCN=1300 -sn Main=ADSPOpen
 “{hato}”ADSPOpen.p.o
 “{libraries}”Interface.o 
 -o “{hat}”SwitchBoard
  
*****************************)

{$R-}
{$S ADSPOpen}
UNIT Koscheka;

(****************************)
 INTERFACE
(****************************)

Uses  MemTypes, QuickDraw, OSIntf, ToolIntf, PackIntf, 
 HyperXCmd, AppleTalk, ADSP, adspxcmd;

Procedure EntryPoint( paramPtr : XCmdPtr );

(****************************)
 IMPLEMENTATION
(****************************)

PROCEDURE ADSPOpen( paramPtr: XCmdPtr ); FORWARD;


Procedure EntryPoint( paramPtr : XCmdPtr );
Begin
 ADSPOpen( paramPtr );
End;
 
Procedure ADSPOpen( paramPtr : XCmdPtr );
VAR
 refnum : integer;
 tempH  : Handle;
 adsp   : ADSPPtr;
 error  : OSErr;
 mppPB  : MPPParamBlock;
 longStr: Str255;
 
{$I XCmdGlue.inc }

BEGIN
 error  := noErr;
 adsp   := NIL; {*** assume not in yet***}
 
 {*** Retrieve pointer to our globals  ***}
 tempH := GetGlobal( ‘GLOBALADSPDATA’ );
 
 {*** If it in, convert it to a pointer***}
 IF (tempH <> NIL) AND (tempH^ <> NIL) THEN
 BEGIN
 HLock( tempH );
 ZeroToPas( tempH^, longStr );
 adsp := ADSPPtr( StrToLong( longStr ));
 HUnlock( tempH );
 END;
 
 IF adsp = NIL THEN
 BEGIN
 error := MPPOpen;
 
 IF error = noErr THEN
 BEGIN
 {*** Open the ADSP Driver  ***}
 {*** ADSP driver must be in***}
 {*** your system folder  ***}
 mppPB.newSelfFlag := 1;
 error := PSetSelfSend( @mppPB, SYNC );
 
 error := OpenDriver( ‘.DSP’, refnum );
 END;

 {*** set up connection listener ***}
 IF error = noErr THEN 
 BEGIN

 adsp := ADSPPtr( NewPtr( sizeOf( ADSPBLOCK ) ));
 
 IF adsp <> NIL THEN
 WITH adsp^ DO
 BEGIN
 addr.aNode := 0;
 addr.aNet  := 0;
 addr.aSocket  := 0;
 ends   := NIL;
 dspRefNum  := refnum;
 oldSelf:= mppPB.oldSelfFlag;
 ccbRef := 0;
 chkPoint := CLOSE_OK;
 
 WITH pb DO
 BEGIN
 { OKAY to open a listening socket }
 ioCRefNum  := refnum;
 csCode := dspCLInit;
 ioCompletion  := NIL;
 ccbPtr := @adsp^.ccb;
 localSocket:= 0;
 error  := PBControl( @adsp^.pb, SYNC );

 IF error = noErr THEN
 BEGIN
 { Listener is now all ears}
 ccbRef := ccbRefNum;
 addr.aSocket    := localSocket;
 csCode := dspCLListen;
 filterAddress.aNet  := 0;
 filterAddress.aNode := 0;
 filterAddress.aSocket:= 0;
 error := PBControl( @adsp^.pb, ASYNC );
 END;
 END;
 END;   {*** with adsp  ***}
 
 {*** If adsp opened ok, we have a socket    ***}
 {*** so put away the data and the socket    ***}
 IF error = noErr THEN 
 BEGIN
 SetGlobal(‘GLOBALADSPDATA’,
 PasToZero( NumToStr(LongInt(adsp))));

 SetGlobal( ‘mySocketListener’, 
 PasToZero( NumToStr(LongInt(adsp^.addr))));
 END
 ELSE
 DisposPtr( Ptr(adsp) );
 
 END
 END;
 
 IF error = noErr THEN
 paramPtr^.returnValue := PasToZero( ‘’ )
 ELSE
 paramPtr^.returnValue := PasToZero(numToStr(longint(error)));
END;

end.
Listing 5. NBPOpen() XFCN

(***********************************)
(* file:  NBPOPen.p*)
(* *)
(* Create the control block and  *)
(* initialize the data for  *)
(* the name binding protocol  *)
(* (nbp) stuff.  *)
(* *)
(* ----------------------------  *)
(* © Donald Koscheka *)
(* 6-October, 1988 *)
(* All Rights Reserved    *)
(* *)
(* -------------------------- *)
(*  Date    |   Description *)
(* ----------------------------  *)
(* 06-Oct-88| file created*)
(* ----------------------------  *)
(***********************************)

(***********************************
 MPW Build Sequence
 
pascal “{nbp}”NBPOpen.p -o “{hato}”NBPOpen.p.o
link -m ENTRYPOINT  -rt XFCN=2001 -sn Main=NBPOpen
 “{hato}”NBPOpen.p.o
 “{libraries}”Interface.o 
 -o “{hat}”SwitchBoard
***********************************)

{$R-}
{$S NBPOpen}

UNIT Donald_Koscheka;

(*******************************)
 INTERFACE
(*******************************)

Uses  MemTypes, QuickDraw, OSIntf,
 ToolIntf, PackIntf, HyperXCmd, 
 AppleTalk, nbpxcmd;

Procedure EntryPoint( paramPtr : XCmdPtr );

(*******************************)
 IMPLEMENTATION
(*******************************)

PROCEDURE NBPOpen( paramPtr: XCmdPtr ); FORWARD;

Procedure EntryPoint( paramPtr : XCmdPtr );
Begin
 NBPOpen( paramPtr );
End;
 
Procedure NBPOpen( paramPtr : XCmdPtr );
(**********************************
* This routine initializes some common 
* memory for use by the Name Binding
* Protocol (NBP) Driver and the XCMDs that
* will use it.  
*
* YOU MUST CALL THIS ROUTINE BEFORE
* ANY OF THE OTHER XCMDs/XFCNs in the
* AppleTalk suite.  Failure to do so 
* will result in wildly unpredicatable
* and possibly fatal performance by
* hypercard.
*
* IMPORTANT: 
*THE HYPERCARD VARIABLE 
*  “GLOBALNBPDATA” MUST BE
*DECLARED IN YOUR SCRIPT
*BEFORE CALLING NBPOPEN
*
* Out: Error Result is returned to hypercard
*  or empty if no error
**********************************)
VAR
 i : INTEGER;  {*** just a loop counter***}
 tempH: Handle;  {*** Used to get global     ***}
 nbp  : NBPBlkPtr; {*** MUST NOT MOVE  ***}
 error: OSerr;   {*** allocate as pointer    ***}
 longStr: Str255;{*** for  ZeroToPas call    ***}

{$I XCMDGlue.Inc }
BEGIN
 error := noErr; 
 nbp := NIL; {*** assume no data yet ***}
 
 {*** Retrieve the pointer that’s stored           ***}
 tempH := GetGlobal( ‘GLOBALNBPDATA’ );
 
 {*** If it’s defined, convert it to a pointer***}
 IF (tempH <> NIL) AND (tempH^ <> NIL) THEN
 BEGIN
 HLock( tempH );
 ZeroToPas( tempH^, longStr );
 nbp := NBPBlkPtr( StrToLong( longStr ));
 HUnlock( tempH );
 END;
 
 IF  nbp = NIL THEN
 BEGIN  

 {*** Allocate nbp, initialize its fields***}
 nbp := NBPBlkPtr(NewPtr( sizeof( NBPBlock )));
 
 IF nbp <> NIL THEN
 WITH nbp^ DO
 BEGIN
 WITH NTEntry DO
 BEGIN
 nteAddress.aSocket:= 0;
 nteAddress.aNode := 0;
 nteAddress.aNet:= 0;
 
 For i := 1 TO 100 DO
 nteData[i]:= chr(0);
 END;
 {*** Clear at the lookup stuff  ***}
 {*** (signifies no lookup yet)  ***}
 LookUpBuffer  := nil;
 EntCount := 0;
 Registered := FALSE;
 
 SetGlobal(‘GLOBALNBPDATA’,PasToZero( NumToStr(LongInt(nbp))));
 
 END
 ELSE
 error := -1;  {*** some sort of error occured ***}
 END; 

 {*** Note that no error is reported ***}
 {*** as ‘empty’, rather than 0.  This ***}
 {*** is in keeping with HyperCard ***}
 IF error = noErr THEN
 paramPtr^.returnValue := PasToZero( ‘’ )
 ELSE
 paramPtr^.returnValue := PasToZero(numToStr(longint(error)));
 
END;

END.
Listing 6. ADSPClose() XFCN

(******************************)
(* file:  ADSPClose.p*)
(* *)
(* Close down the connection*)
(* listener and all open  *)
(* connections.  *)
(* Set the globals to empty *)
(* *)
(* Requires these Globals *)
(* GLOBALADSPDATA*)
(* mySocketListener*)
(* *)
(* DEFINE THE GLOBALS BEFORE*)
(* USING THEM    *)
(* ------------------------ *)
(* By:  Donald Koscheka *)
(* Date:10-Oct-88*)
(******************************)
(*******************************
 Build Sequence

pascal “{adsp}”ADSPClose.p -o “{hato}”ADSPClose.p.o 
link -m ENTRYPOINT  -rt XFCN=1301 -sn Main=ADSPClose
 “{hato}”ADSPClose.p.o
 “{libraries}”Interface.o 
 -o “{hat}”SwitchBoard     
********************************)

{$R-}
{$S ADSPClose}
UNIT Koscheka;

(*******************************)
 INTERFACE
(*******************************)

Uses  MemTypes, QuickDraw, OSIntf, ToolIntf, PackIntf, 
 HyperXCmd, AppleTalk, ADSP, adspxcmd;

Procedure EntryPoint( paramPtr : XCmdPtr );

(*******************************)
 IMPLEMENTATION
(*******************************)

PROCEDURE ADSPClose( paramPtr: XCmdPtr ); FORWARD;

Procedure EntryPoint( paramPtr : XCmdPtr );
 Begin
 ADSPClose( paramPtr );
 End;
 
Procedure ADSPClose( paramPtr : XCmdPtr );
VAR
 tempH  : Handle;
 adsp   : ADSPPtr;
 error,err: OSErr;
 tpb    : DSPParamBlock;
 cb, nb : CBPtr;
 mppPB  : mppParamBlock;
 longStr: Str255;
 
{$I XCmdGlue.inc }

BEGIN
 error  := noErr;
 adsp   := NIL; 
 
 {*** Retrieve the pointer***}
 tempH  := GetGlobal( ‘GLOBALADSPDATA’ );
 
 IF (tempH <> NIL) AND (tempH^ <> NIL) THEN
 BEGIN
 HLock( tempH );
 ZeroToPas( tempH^, longStr );
 adsp := ADSPPtr( StrToLong( longStr ));
 HUnlock( tempH );
 END;
 
 {*** Only kill if allocated ***}
 IF  adsp <> NIL THEN
 WITH adsp^ DO
 BEGIN  
 (* 1 - Tear down connection listener*)
 IF pb.ioResult > 0 THEN
 WITH tpb DO
 BEGIN
 ioCRefNum:= dspRefNum;
 csCode := dspCLRemove;
 ccbRefnum  := adsp^.ccbref;
 abort  := 1;
 
 err := PBControl( @tpb, SYNC );
 IF err <> noErr THEN error := err;
 END;
 
 (* 2 - Restore old self send *)
 mppPB.newSelfFlag := adsp^.oldSelf;
 err := PSetSelfSend( @mppPB, SYNC );
 
 {* PSetSelfSend  not implemented on*}
 {* Mac+ (???), so ignore result   *}
 {* “driver can’t respond to this  *}
 {* control call”. *}
 
 
 (* 3 - Deallocate all ADSP memory *)
 DisposPtr( Ptr( adsp ) );
 
 (* 4 * Clear out the containers *)
 SetGlobal(‘GLOBALADSPDATA’,PasToZero(‘’));
 
 (* 5 - leave socket address valid *)
 (*   for now    *)
 END; {*** WITH adsp^ ***}
 
 IF error = noErr THEN
 paramPtr^.returnValue:=PasToZero(‘’)
 ELSE
 paramPtr^.returnValue:=PasToZero(numToStr(longint(error)));
END;

END.
Listing 7. NBPClose() XFCN

(******************************)
(* file:  nbpClose.p *)
(* *)
(* Create control block and *)
(* initialize the data for  *)
(* the name binding protocol  *)
(* (nbp) stuff.  *)
(* *)
(* -------------------------- *)
(* © Donald Koscheka *)
(* 6-October, 1988 *)
(* All Rights Reserved    *)
(* *)
(******************************)
(*******************************
 MPW Build Sequence

pascal “{nbp}”nbpClose.p -o “{hato}”nbpClose.p.o
link -m ENTRYPOINT  -rt XFCN=2002 -sn Main=nbpClose
 “{hato}”nbpClose.p.o
 “{libraries}”Interface.o 
 -o “{hat}”SwitchBoard
*******************************)

{$R-}
{$S nbpClose}
UNIT Donald_Koscheka;

(*******************************)
 INTERFACE
(*******************************)

Uses  MemTypes, QuickDraw, OSIntf,
 ToolIntf, PackIntf, HyperXCmd, 
 AppleTalk, nbpxcmd;

Procedure EntryPoint( paramPtr : XCmdPtr );

(*******************************)
 IMPLEMENTATION
(*******************************)

PROCEDURE nbpClose( paramPtr: XCmdPtr ); FORWARD;

Procedure EntryPoint( paramPtr : XCmdPtr );
Begin
 nbpClose( paramPtr );
End;
 
Procedure nbpClose(paramPtr : XCmdPtr);
(**********************************
* This routine shuts down access to 
* the NBP driver.  It also unregisters
* the entity if that hasn’t already been
* done.
*
* IMPORTANT: 
*
* THE HYPERCARD VARIABLE 
* “GLOBALNBPDATA” MUST BE
* DECLARED IN YOUR SCRIPT
* BEFORE CALLING nbpClose
*
* Does not report an error
**********************************)
VAR
error : OSErr;
longStr : Str255;
tempH : Handle;
nbp: NBPBlkPtr;{*** MUST NOT MOVE  ***}
pb : MPPParamBlock;

{$I XCMDGlue.Inc }

BEGIN
 error := noErr;
 nbp := NIL; {*** assume no data yet ***}
 
 {*** Retrieve the pointer that’s stored     ***}
 tempH := GetGlobal( ‘GLOBALNBPDATA’ );
 
 {*** If it’s there, convert  to pointer     ***}
 IF (tempH <> NIL) AND (tempH^ <> NIL) THEN
 BEGIN
 HLock( tempH );
 ZeroToPas( tempH^, longStr );
 nbp := NBPBlkPtr( StrToLong( longStr ));
 HUnlock( tempH );
 END;
 
 {*** If the data is still allocated, we     ***}
 {*** shut down NBP, otherwise, just quit***}
 IF  nbp <> NIL THEN
 WITH nbp^ DO
 BEGIN  
 {*** Unregister if still registered***}
 IF NTEntry.nteData[1] <> chr(0) THEN
 BEGIN
 pb.entityPtr := @NTEntry.nteData[1];
 error := PRemoveName( @pb, SYNC );
 END;
 
 {*** Remove the lookup buffer***}
 IF LookUpBuffer <> NIL THEN
 BEGIN
 HUnlock( LookUpBuffer );
 DisposHandle( LookUpBuffer );
 END;
 
 {*** Dump the NBP Master Block  ***}
 DisposPtr( Ptr(nbp) );
 SetGlobal( ‘GLOBALNBPDATA’, PasToZero( ‘’ ));
 END; 

 IF error = noErr THEN
 paramPtr^.returnValue := PasToZero( ‘’ )
 ELSE
 paramPtr^.returnValue := PasToZero(numToStr(longint(error)));
 
END;
END.

Next month: Accessing the Name Binding Protocol in HyperCard.

end HyperChat

 
AAPL
$524.94
Apple Inc.
+5.93
MSFT
$40.01
Microsoft Corpora
-0.39
GOOG
$536.10
Google Inc.
-20.44

MacTech Search:
Community Search:

Software Updates via MacUpdate

Mac DVDRipper Pro 4.1.7 - Copy, backup,...
Mac DVDRipper Pro is the DVD backup solution that lets you protect your DVDs from scratches, save your batteries by reading your movies from your hard disk, manage your collection with just a few... Read more
PDFpenPro 6.2 - Advanced PDF toolkit for...
PDFpenPro allows users to edit PDF's easily. Add text, images and signatures. Fill out PDF forms. Merge or split PDF documents. Reorder and delete pages. Even correct text and edit graphics! Create... Read more
PDFpen 6.2 - Edit and annotate PDFs with...
PDFpen allows users to easily edit PDF's. Add text, images and signatures. Fill out PDF forms. Merge or split PDF documents. Reorder and delete pages. Even correct text and edit graphics! Features... Read more
Monolingual 1.5.9 - Remove unwanted OS X...
Monolingual is a program for removing unnecesary language resources from OS X, in order to reclaim several hundred megabytes of disk space. It requires a 64-bit capable Intel-based Mac and at least... Read more
Maya 2015 - Professional 3D modeling and...
Maya is an award-winning software and powerful, integrated 3D modeling, animation, visual effects, and rendering solution. Because Maya is based on an open architecture, all your work can be scripted... Read more
Starcraft II: Wings of Liberty 1.1.1.180...
Download the patch by launching the Starcraft II game and downloading it through the Battle.net connection within the app. Starcraft II: Wings of Liberty is a strategy game played in real-time. You... Read more
Sibelius 7.5.0 - Music notation solution...
Sibelius is the world's best-selling music notation software for Mac. It is as intuitive to use as a pen, yet so powerful that it does most things in less than the blink of an eye. The demo includes... Read more
Typinator 5.9 - Speedy and reliable text...
Typinator turbo-charges your typing productivity. Type a little. Typinator does the rest. We've all faced projects that require repetitive typing tasks. With Typinator, you can store commonly used... Read more
MYStuff Pro 2.0.16 - Create inventories...
MYStuff Pro is the most flexible way to create detail-rich inventories for your home or small business. Add items to MYStuff by dragging and dropping existing information, uploading new images, or... Read more
TurboTax 2013.r17.002 - Manage your 2013...
TurboTax guides you through your tax return step by step, does all the calculations, and checks your return for errors and overlooked deductions. It lets you file your return electronically to get... Read more

Latest Forum Discussions

See All

Sparkle Unleashed Review
Sparkle Unleashed Review By Jennifer Allen on April 18th, 2014 Our Rating: :: CLASSY MARBLE FLINGINGUniversal App - Designed for iPhone and iPad It’s a concept we’ve seen before, but Sparkle Unleashed is a solidly enjoyable orb... | Read more »
Tilt to Live 2: Redonkulus Receives its...
Tilt to Live 2: Redonkulus Receives its First Update – Gets New Brimstone Pinball DLC Posted by Rob Rich on April 18th, 2014 [ permalink ] | Read more »
Where's My Water? Featuring XYY (G...
Where's My Water? Featuring XYY 1.0 Device: iOS Universal Category: Games Price: $.99, Version: 1.0 (iTunes) Description: iPod Touch 4th Gen, iPhone 3GS or iPad 1 are not compatible with this app. | Read more »
The Amazing Spider-Man 2 (Games)
The Amazing Spider-Man 2 1.0.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0.0 (iTunes) Description: *IMPORTANT* The Amazing Spider-Man 2 requires an iPad 2 (or newer), iPhone 4s (or newer), or iPod touch 5th... | Read more »
Living Planet - Tiny Planet Videos and P...
Living Planet - Tiny Planet Videos and Photos 1.0 Device: iOS Universal Category: Photography Price: $.99, Version: 1.0 (iTunes) Description: 50% OFF LAUNCH SPECIAL! BUY NOW BEFORE THE PRICE GOES UP... | Read more »
Livescribe 3 Smartpen Review
Made by: Livescribe Price: $149.99 for Livescribe 3 Hardware/iOS Integration Rating: 4.5 out of 5 stars Usability Rating: 4 out of 5 stars Reuse Value Rating: 4.75 out of 5 stars Build Quality Rating: 4.5 out of 5 stars Overall Rating: 4.44 out of... | Read more »
Unpossible Review
Unpossible Review By Carter Dotson on April 17th, 2014 Our Rating: :: RALPH WIGGUM APPROVESUniversal App - Designed for iPhone and iPad Unpossible is much better than its English!   | Read more »
Hitman GO Review
Hitman GO Review By Carter Dotson on April 17th, 2014 Our Rating: :: GO HITMAN, GO!Universal App - Designed for iPhone and iPad Hitman GO is not the obvious way to do a mobile version of the Hitman series, but it’s an incredibly... | Read more »
Monster High Ghouls and Jewels is a Frea...
Monster High Ghouls and Jewels is a Freaky Fashion-Forward Match-3 Puzzler Posted by Rob Rich on April 17th, 2014 [ permalink ] | Read more »
Dinosaur Train A to Z Review
Dinosaur Train A to Z Review By Amy Solomon on April 17th, 2014 Our Rating: :: DINO DETAILSUniversal App - Designed for iPhone and iPad Dinosaur Train A to Z is an educational app about dinosaurs that includes In-App Purchases... | Read more »

Price Scanner via MacPrices.net

iMacs on sale for up to $160 off MSRP this we...
Best Buy has iMacs on sale for up to $160 off MSRP for a limited time. Choose free home shipping or free instant local store pickup (if available). Prices are valid for online orders only, in-store... Read more
iPad Airs on sale this weekend for up to $100...
Best Buy has WiFi iPad Airs on sale for $50 off MSRP and WiFi + Cellular iPad Airs on sale for $100 off MSRP on their online store for a limited time, with prices now starting at $449. Choose free... Read more
Apple restocks refurbished Mac minis starting...
The Apple Store has restocked Apple Certified Refurbished Mac minis for up to $150 off the cost of new models. Apple’s one-year warranty is included with each mini, and shipping is free: - 2.5GHz Mac... Read more
Hyundai Brings Apple CarPlay To The 2015 Sona...
Hyundai Motor America has announced it will bring Apple CarPlay functionality to the 2015 Sonata. CarPlay is pitched as a smarter, safer and easier way to use iPhone in the car and gives iPhone users... Read more
Updated iPads Coming Sooner Than We Had Thoug...
MacRumors, cites KGI securities analyst Ming Chi Kuo, well-respected as an Apple product prognisticator, saying that Apple will introduce an upgraded iPad Air and iPad mini in 2014/Q3, meaning the... Read more
Toshiba Unveils New High And Low End Laptop M...
Toshiba has announced new laptop models covering both the high-end and low-end of the notebook computer spectrum. Toshiba 4K Ultra HD Laptop Toshiba’s new Satellite P55t features one of the world’s... Read more
Save up to $270 with Apple refurbished 13-inc...
The Apple Store has Apple Certified Refurbished October 2013 13″ Retina MacBook Pros available starting at $1099, with models up to $270 off MSRP. Apple’s one-year warranty is standard, and shipping... Read more
Apple now offering refurbished iPad mini with...
The Apple Store has Certified Refurbished 2nd generation iPad minis with Retina Displays now available starting at $339. Apple’s one-year warranty is included with each model, and shipping is free.... Read more
Microsoft Blinks – Drops Microsoft Office 365...
Microsoft has dropped the annual subscription fee for Microsoft Office 365 Personal – which is needed in order to create and edit documents in Microsoft Office for iPad. However, Apple’s iOS and OS X... Read more
New AVG Vault Apps for iOS and Android Help K...
AVG Technologies N.V. an online security company for 177 million active users, has announced the launch of its latest mobile application, AVG Vault. The free app introduces an innovative user... Read more

Jobs Board

*Apple* Solutions Consultant (ASC) - Apple (...
**Job Summary** The ASC is an Apple employee who serves as an Apple brand ambassador and influencer in a Reseller's store. The ASC's role is to grow Apple Read more
*Apple* Retail - Manager - Holyoke - Apple I...
Job Summary Keeping an Apple Store thriving requires a diverse set of leadership skills, and as a Manager, you’re a master of them all. In the store’s fast-paced, Read more
*Apple* Retail - Manager - Apple (United Sta...
Job SummaryKeeping an Apple Store thriving requires a diverse set of leadership skills, and as a Manager, you're a master of them all. In the store's fast-paced, dynamic Read more
*Apple* Solutions Consultant (ASC) - Apple (...
**Job Summary** The ASC is an Apple employee who serves as an Apple brand ambassador and influencer in a Reseller's store. The ASC's role is to grow Apple Read more
*Apple* Retail - Market Leader - Cincinnati...
…challenges of developing individuals, building teams, and affecting growth across Apple Stores. You demonstrate successful leadership ability - focusing on excellence Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.