TweetFollow Us on Twitter

Distribute Processing
Volume Number:8
Issue Number:2
Column Tag:Jörg's Folder

Related Info: Apple Event Mgr

A Way to Distribute Processing

With today’s Apple Event technology, you could set up a distributed processor

By Jörg Langowski, MacTutor Regular Contributing Author

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

The example that I presented last month showed a very simple way to communicate between Fortran programs using the built-in Apple event handling of the Language Systems (LS) Fortran runtime system. Although the F_SendEvent routine can be used to send high-level events of class 'aevt' in a very simple way, its possibilities are limited. The event class can not be changed, and therefore you cannot declare your own suite of events with a new class identifier. Also, the only kind of parameter that you can add to an Apple event that you send with F_SendEvent is a filename, which identifies a file to be associated with the Apple event. This makes sense when you want to send an 'odoc' or 'pdoc' event, but the file remains the only way to send data with the Apple event.

On the other hand, the LS Fortran runtime system has Apple event handling built in, so you don’t have to take care to make the main event loop System 7-aware. This is the great advantage of LS Fortran when you are porting programs from other machines, and nevertheless want to add easily some System 7 goodies. Exchange of arbitrary types of data between programs on the same machine or over a network is certainly one of the more important features of System 7. So this time, I’ll show you how to create and send an arbitrary Apple event in LS Fortran. The event can contain data that will be processed by the receiving program and sent back when it’s done.

A math library server

When you look at a large computer installation with many workstations and mainframes coupled together through a network, you can’t avoid the impression that most of the time the workstations - at least when its users are engaged in non-productive activities such as sleeping, eating, editing programs or writing manuscripts - are doing nothing but sit there and wait for something to happen. The idle CPU time that accumulates in a place where tens or even hundreds of MacII - class machines are kept must be enormous. Why couldn’t that idle time be used by other machines to do CPU-intensive things like operations on large matrices? Even if any single node on the network is not any more powerful than the machine that needs the extra CPU power, one could split up operations into blocks that would be executed by different idle nodes on the network.

You can imagine the implications of such a system: for instance, a small process turning in the background of each MacII on the network and implementing, for example, the Linpack math library. The process would accept requests from other nodes for calculating matrix operations, do the calculations only during the time when really nothing else is happening (the user at the node should always have priority), and send the result back to the requesting node.

The CPU-intensive program that is executing on one node is responsible for splitting its operations into pieces that can be executed independently, sending out the requests for calculations, and reassembling the answers into one final result.

In this column, I won’t show you all the pieces that are necessary for building such a system - this would much exceed the scope of this column, and anyway, if I had everything done perfectly, I’d sell it and make lots of money. But we can look at a very simple example: a “server process” that accepts an array of real numbers, squares every element and sends back the resulting array, and a program that requests this service.

Setting up an Apple Event and sending it

We’ll define the Apple event first in which we are going to encapsulate our data. Let’s give it the class 'JLMT', and ID 'MULT' (why not). Certain data is always associated with any apple event: a target address descriptor that specifies where the event is going to be sent, a return ID that can be used by a program that sent several Apple events to find out who sent the reply, and a transaction ID. In addition, if you want to send data with the event, you have to add descriptors to it that specify that data.

In the example given below the setting up and sending of the event are done by the routine send_array. First of all, PPCBrowser is called to select the process to which we send the event (this is the routine that displays the dialog “Please select a program to link to:”). The information returned by PPCBrowser is then put into a target address descriptor which we created with AECreateDesc. We need this target address descriptor for creating the actual Apple event with AECreateAppleEvent. The other parameters after the event class, ID, and the target address are the return ID (here we specify that a unique return ID is generated automatically) and a transaction ID (the parameter kAnyTransactionID means that the event does not belong to any particular group of events which form a separate transaction).

After the Apple event is created, we can add data to it. We’ll add three parameters: the x and y dimensions of a 2-dimensional array, both 32-bit integers (type 'long'), and the array data itself, which is sent as an unformatted string of bytes (type 'text'). The array is actually of type real*4, but since only the length (in bytes) and pointer to the first element are required, we can use the 'text' type in the Apple event. The three parameters will also get names ('XDIM','YDIM' and 'ARRY') to identify them uniquely.

Having set up the Apple event, we can then send it to the process which does the calculation. On sending (with the AESend routine) we specify the address of the Apple event that we want to send (normal), a pointer to a reply Apple event structure where the reply will be received, and a parameter that specifies that we wish a reply that will be received through the normal event queue (kAEQueueReply), and that the receiving program doesn’t need to notify the user that the event was received (kAENeverInteract). We might also have specified kAEWaitReply here, in that case, the sending program would idle and yield the CPU to other programs on the same machine until the reply was received. Since we are planning to send out several Apple events to different processes for parallel processing without having to wait for a reply each time, we use the queue reply mode.

After sending the Apple event, send_array returns to the Fortran runtime system.

The server process

The Apple event is received by the second program in the example. The main program simply installs a handler for the JLMT / MULT Apple event (the routine get_array) and then drops into an idle loop. The Fortran output window is never activated.

The event handler will receive the Apple event and a pointer to a reply event. It extracts the data out of the received event, processed it and puts it into the reply, which is automagically sent back by the Apple event manager. Extracting parameters is done by the AEGetParamPtr routine, where you have to specify the address of the Apple event (of course), and the identifier and type of the parameter to extracted. You also have to provide a pointer to a space where the data can be stored. The routine returns the parameter, or an error if such a parameter does not exist.

Thus, we extract the x and y dimensions of the array into two 32 bit integers, calculate the array size, and extract the array data into a real*4 array. We then call the process_array routine, which squares every element and divides it by 10000, and then put the three parameters XDIM, YDIM and ARRY into the reply Apple event record using the routine AEPutParamPtr which is very analogous to AEGetParamPtr. When our event handler returns, the Apple event manager will send the reply Apple event back to the program that sent the original event.

Receiving the result

The reply event is of class 'aevt', ID 'ansr'. Since the main program called AESend with the kAEQueueReply parameter, we will receive the reply through the normal event loop. Therefore, we must install our own handler for a reply event, in our case the routine get_reply. In this routine we extract the XDIM, YDIM and ARRY parameters out of the reply, write a message to the output window that the reply was received and return. The processed array data can then be displayed with the show_array routine which is selected from a menu.

[I have forgotten to mention the array setup routine, also selected from a menu, which puts the initial data into the array, and the menu selection send array, which calls the send_array routine. You’ll already have discovered them.]

What is missing?

Of course, this example is far from the idea of the math routine server that I mentioned initially. Several things would have to be added to make distributed processing really work: First of all, all replies will have the same class and ID ('aevt'/'ansr'), and since you might have sent out several requests for calculations, you have to remember the question when you are getting an answer. This is what the return ID is good for -- by keeping a table of pending requests and their return IDs, a reply can be easily identified. Implementation is left as an exercise for the reader, as is the automatic identification and selection of available server processes on a large Appletalk internetwork. Error handling, too, is very rudimentary in the example; in practice, the program would have to be stable against wrong parameters, values out of range, missing parameters, and send back error messages with some meaningful content.

Anyway, I hope this example has given you an impression about the many things that can be done with Apple events. See you next month with more interesting things from the Fortran side and elsewhere.

Example: Distributed processing with Apple Events in LS Fortran

!!M Inlines.f
!!G AEvent.finc
c
c
 program AEMenu

 implicit none
 
 external get_reply,send_array
 integer*2 err
 
 err = AEInstallEventHandler  
(%val('aevt'),%val('ansr'),%val(%loc(get_reply)), %val(int4(0)),%val(int2(0))) 

 
 if (err. ne. 0) then
 type *,'Error installing Apple event, result code = ',err
 end if

 call AddMenuItem ('AE menu', 'setup array', setup_array)
 call AddMenuItem ('AE menu', 'send array', send_array)
 call AddMenuItem ('AE menu', 'show array', show_array)
 
 end
 
 subroutine setup_array
 implicit none
 
 real*4 myarray(10000)
 integer xdim,ydim
 global xdim,ydim,myarray
 
 xdim = 10
 ydim = 15
 call setarray(myarray,xdim,ydim)
 
 return
 end

 subroutine setarray(array,xdim,ydim)
 integer xdim,ydim
 real*4 array(xdim,ydim)
 
 do i=1,xdim
 do j=1,ydim
 array(i,j) = 10000.*(i-1) + 1.*(j-1)
 end do
 end do
 
 return
 end

 subroutine show_array
 implicit none
 
 real*4 myarray(10000)
 integer xdim,ydim
 global xdim,ydim,myarray
 
 xdim = 10
 ydim = 15
 call display(myarray,xdim,ydim)
 
 return
 end

 subroutine display(array,xdim,ydim)
 integer xdim,ydim
 real*4 array(xdim,ydim)
 
 write (*,'(1x,10(1xf7.0))') ((array(i,j),i=1,xdim),j=1,ydim)
 
 return
 end

 subroutine send_array
 implicit none
 real*4 myarray(10000)
 integer xdim,ydim
 global xdim,ydim,myarray
 
 integer totalsize
 
 integer*2 err
 record /AppleEvent/ theAppleEvent,reply
 record /targetID/ target
 record /LocationNameRec/ myLocation
 record /PortInfoRec/ myPortInfo
 record /AEAddressDesc/ targetAddress
 
 err = PPCBrowser(%val(int4(0)),%val(int4(0)),
 1 %val(int2(0)),%ref(myLocation),
 2 %ref(myPortInfo),%val(int4(0)),%val(int4(0)))
 if (err .ne. 0) then
 type *,'PPC Browser: error ',err
 return
 end if
 
 target.location = myLocation
 target.name = myPortInfo.name
 
 type *,'Session ID = ',target.sessionid,
 1 ', target name = ',target.name.name
 
 err = AECreateDesc(%val(typeTargetID),
 1 %val(%loc(target)),%val(sizeof(target)),
 2 %ref(targetAddress))
 if (err .ne. 0) then
 type *,'AECreateDesc: error ',err
 return
 end if 
 
 err=AECreateAppleEvent(%val('JLMT'),%val('MULT'),
 1 %ref(targetAddress),
 2 %val(kAutoGenerateReturnID),
 3 %val(int4(kAnyTransactionID)),
 4 %ref(theAppleEvent))
 if (err .ne. 0) then
 type *,'AECreateAppleEvent: error ',err
 return
 end if 
 
 err = AEPutParamPtr(%ref(theAppleEvent),
 1 %val('XDIM'),%val(typeInteger),
 2 %val(%loc(xdim)),%val(sizeof(xdim)))
 if (err .ne. 0) then
 type *,'AEPutParamPtr: error ',err
 return
 end if 
 
 err = AEPutParamPtr(%ref(theAppleEvent),
 1 %val('YDIM'),%val(typeInteger),
 2 %val(%loc(ydim)),%val(sizeof(ydim)))
 if (err .ne. 0) then
 type *,'AEPutParamPtr: error ',err
 return
 end if 
 
 totalsize = xdim * ydim * 4
 
 err = AEPutParamPtr(%ref(theAppleEvent),
 1 %val('ARRY'),%val(typeChar),
 2 %val(%loc(myarray)),%val(totalsize))
 if (err .ne. 0) then
 type *,'AEPutParamPtr: error ',err
 return
 end if 
 
 err = AESend(%ref(theAppleEvent),%ref(reply),
 1 %val(int4(kAEQueueReply+kAENeverInteract)),
 2 %val(kAENormalPriority),%val(int4(120)),
 3 %val(int4(0)),%val(int4(0)) )
 if (err .ne. 0) then
 type *,'AESend: error ',err
 return
 end if 
 
 type *,'Sent test array of size ',xdim*ydim

 return
 end

 integer*2 function get_reply(theAppleEvent,reply,
 1 %val(handlerRefCon))

 record /AppleEvent/ theAppleEvent
 record /AppleEvent/ reply
 integer*4 handlerRefCon
 
 real*4 myarray(10000)
 integer xdim,ydim
 global xdim,ydim,myarray
 
 integer totalsize
 
 err = AEGetParamPtr(%ref(theAppleEvent),
 1 %val('XDIM'),%val(typeInteger),returnedType,
 2 %val(%loc(xdim)),%val(sizeof(xdim)),actualSize)
 if (err .ne. 0) then
 type *,'AEGetParamPtr: error ',err
 goto 9999
 end if 
 
 err = AEGetParamPtr(%ref(theAppleEvent),
 1 %val('YDIM'),%val(typeInteger),returnedType,
 2 %val(%loc(ydim)),%val(sizeof(ydim)),actualSize)
 if (err .ne. 0) then
 type *,'AEGetParamPtr: error ',err
 goto 9999
 end if 
 
 totalsize = xdim * ydim * 4
 
 err = AEGetParamPtr(%ref(theAppleEvent),
 1 %val('ARRY'),%val(typeChar),returnedType,
 2 %val(%loc(myarray)),%val(totalsize),actualSize)
 if (err .ne. 0) then
 type *,'AEGetParamPtr: error ',err
 goto 9999
 end if 
 
 type *,'Reply received from server'
 
 get_reply = 0 ! noErr
 return

9999  get_reply = err
 return
 end



!!M Inlines.f
!!G AEvent.finc
c
c
 program Array_process

 implicit none
 
 external get_array
 integer*2 err
 
 err = AEInstallEventHandler(%val('JLMT'),%val('MULT'),
 1    %val(%loc(get_array)),%val(int4(0)),%val(int2(0))) 
 if (err. ne. 0) call alertbox
 1 ('Array_process: Apple Event install error')

 do while (.true.)
 call F_DoBackground
 end do
 
 end

 integer*2 function get_array(theAppleEvent,reply,
 1 %val(handlerRefCon))
 implicit none
 
 record /AppleEvent/ theAppleEvent
 record /AppleEvent/ reply
 integer*4 handlerRefCon
 
 integer*2 err
 integer*4 keywd,returnedType,actualSize
 
 real*4 myarray(10000)

 integer xdim,ydim
 global xdim,ydim,myarray
 
 integer totalsize
 
 err = AEGetParamPtr(%ref(theAppleEvent),
 1 %val('XDIM'),%val(typeInteger),returnedType,
 2 %val(%loc(xdim)),%val(sizeof(xdim)),actualSize)
 if (err .ne. 0) goto 9999
 
 err = AEGetParamPtr(%ref(theAppleEvent),
 1 %val('YDIM'),%val(typeInteger),returnedType,
 2 %val(%loc(ydim)),%val(sizeof(ydim)),actualSize)
 if (err .ne. 0) goto 9999
 
 totalsize = xdim * ydim * 4
 
 err = AEGetParamPtr(%ref(theAppleEvent),
 1 %val('ARRY'),%val(typeChar),returnedType,
 2 %val(%loc(myarray)),%val(totalsize),actualSize)
 if (err .ne. 0) goto 9999

cwe don't check whether actualSize = totalsize 
cand returnedType = typeChar.
c
cIn an actual application, such errors 
chave to be trapped, of course.
c
 call process_array(myarray,xdim,ydim)
 
 err = AEPutParamPtr(%ref(reply),%val('XDIM'),
 1 %val(typeInteger),%val(%loc(xdim)),
 2 %val(sizeof(xdim)))
 if (err .ne. 0) goto 9999
 
 err = AEPutParamPtr(%ref(reply),%val('YDIM'),
 1 %val(typeInteger),%val(%loc(ydim)),
 2 %val(sizeof(ydim)))
 if (err .ne. 0) goto 9999
 
 err = AEPutParamPtr(%ref(reply),%val('ARRY'),
 1 %val(typeChar),%val(%loc(myarray)),
 2 %val(totalsize))
 if (err .ne. 0) goto 9999
 
 get_array = 0 ! noErr
 return

9999  get_array = err
 return
 
 end


 subroutine process_array(array,xdim,ydim)
 integer xdim,ydim
 real*4 array(xdim,ydim)
 
 do i=1,xdim
 do j=1,ydim
 array(i,j) = array(i,j)*array(i,j)/10000.
 end do
 end do
 
 return
 end
 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Hopper Disassembler 4.2.5- - Binary disa...
Hopper Disassembler is a binary disassembler, decompiler, and debugger for 32-bit and 64-bit executables. It will let you disassemble any binary you want, and provide you all the information about... Read more
BetterTouchTool 2.261 - Customize Multi-...
BetterTouchTool adds many new, fully customizable gestures to the Magic Mouse, Multi-Touch MacBook trackpad, and Magic Trackpad. These gestures are customizable: Magic Mouse: Pinch in / out (zoom... Read more
Sketch 44.1 - Design app for UX/UI for i...
Sketch is an innovative and fresh look at vector drawing. Its intentionally minimalist design is based upon a drawing space of unlimited size and layers, free of palettes, panels, menus, windows, and... Read more
BetterTouchTool 2.260 - Customize Multi-...
BetterTouchTool adds many new, fully customizable gestures to the Magic Mouse, Multi-Touch MacBook trackpad, and Magic Trackpad. These gestures are customizable: Magic Mouse: Pinch in / out (zoom... Read more
Chromium 59.0.3071.115 - Fast and stable...
Chromium is an open-source browser project that aims to build a safer, faster, and more stable way for all Internet users to experience the web. Version 59.0.3071.115: This update has no Flash plug... Read more
SyncTwoFolders 2.2.3 - Syncs two user-sp...
SyncTwoFolders simply synchronizes two folders. It supports synchronization across mounted network drives and it is a possibility to run a simulation showing in a log what will be done. Please visit... Read more
Myriad 4.1 - $79.00
Myriad is, simply put, one of the best audio batch processors. Totally redesigned, it looks beautiful and delivers incredible performance. Let Myriad do the heavy lifting while you get back to doing... Read more
Suitcase Fusion 7 18.2.4 - Font manageme...
Suitcase Fusion 7 is the creative professional's font manager. Every professional font manager should deliver the basics: spectacular previews, powerful search tools, and efficient font organization... Read more
SoftRAID 5.6.1 - High-quality RAID manag...
SoftRAID allows you to create and manage disk arrays to increase performance and reliability. SoftRAID allows the user to create and manage RAID 4 and 5 volumes, RAID 1+0, and RAID 1 (Mirror) and... Read more
BetterTouchTool 2.25 - Customize Multi-T...
BetterTouchTool adds many new, fully customizable gestures to the Magic Mouse, Multi-Touch MacBook trackpad, and Magic Trackpad. These gestures are customizable: Magic Mouse: Pinch in / out (zoom... Read more

Latest Forum Discussions

See All

Missile Cards (Games)
Missile Cards 1.0.9 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0.9 (iTunes) Description: "Missile Command meets Solitaire...only with more doomlasers, death, and explosions." | Read more »
Collect mini assassins in 'Assassin...
Assassin's Creed is traveling back in time to the Spanish Inquisition for its latest mobile entry, Assassin's Creed Rebellion. The game is giving the series a look that's a huge departure from its past design, recreating classic characters in a... | Read more »
Animal Crossing is still coming to mobil...
Animal Crossing is still coming to mobile in 2017, according to aWaypointinterview with Nintendo. Announced in 2016, the game was delayed without a defined release window. However, fans of Nintendo's fantasy slice of life game won't have to wait... | Read more »
Ravenscroft 275 Piano (Music)
Ravenscroft 275 Piano 1.0.0 Device: iOS Universal Category: Music Price: $35.99, Version: 1.0.0 (iTunes) Description: Experience the splendor of a Ravenscroft Grand with the most realistic sounding piano ever created for iOS. Launch... | Read more »
This War of Mine gets a new ending and m...
This War of Mine just got a big new update, featuring free DLC that adds a new ending to the game, among other exciting changes. The update is celebrating the game's two-year release anniversary. Apart from the new ending, which will be quite... | Read more »
Summon eight new heroes in Fire Emblem H...
Nintendo keeps coming at us with Fire Emblem Heroes updates, and it doesn't look like that trend is stopping anytime soon. The folks behind the game have just announced the new War of the Clerics Voting Gauntlet, expected to start next Tuesday. [... | Read more »
The best deals on the App Store this wee...
iOS publishers are pulling out all the stops this week -- there's a huge number of seriously great games at discounted prices this week. Let's not waste any time and get right down to business. [Read more] | Read more »
The House of da Vinci (Games)
The House of da Vinci 1.0.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0.0 (iTunes) Description: Enter The House of Da Vinci, a new must-try 3D puzzle adventure game. Solve mechanical puzzles, discover hidden... | Read more »
Solve the disappearance of history’s gre...
Blue Brain Games invites you to indulge in an immersive hands-on 3D puzzle adventure in similar vein to The Room series, with its debut release The House of Da Vinci. Set during the historic period of the Italian Renaissance (when Leonardo himself... | Read more »
Age of Rivals (Games)
Age of Rivals 3.3 Device: iOS Universal Category: Games Price: $.99, Version: 3.3 (iTunes) Description: Deep civilization-building strategy in a fast-paced card game! | Read more »

Price Scanner via MacPrices.net

Apple Releases iOS 11 Public Beta; How To Get...
The official release of Apple’s latest mobile operating system iOS 11 is vaguely slated for the fall, but as of June 26, ordinary users can download an iOS 11 public beta. To download the iOS 11... Read more
Extend Life of MacBook Pro Retina 2.0TB With...
MacSales.com/Other World Computing has announced availability of the new OWC 2.0TB Aura Pro Solid State Drive for mid-2012 to early 2013 Apple MacBook Pro with Retina display. One of the fastest... Read more
BBEdit SummerFest 2017 Discount Ends Friday,...
You can get 20% off BBEdit for a limited time in Bare Bones Software’s http://www.eastgate.com/Tinderbox/Specials/SummerFest.html?mc_cid=f2101ca260&mc_eid=[UNIQID]SummerFest 2017 sale and... Read more
Use Apple’s Education discount to save up to...
Purchase a new Mac using Apple’s Education discount, and take up to $300 off MSRP. All teachers, students, and staff of any educational institution qualify for the discount. Shipping is free: - 15″ 2... Read more
Clearance 27-inch 3.3GHz 5K iMac available fo...
Amazon clearance 27″ 3.3GHz 5K iMacs (MK482LL/A) available for $1799.90 including free shipping. Their price is $500 off original MSRP, and it’s the lowest price available for this model from any... Read more
13-inch 1.8GHz/256GB MacBook Air on sale for...
B&H Photo has the updated 2017 13″ 1.8GHz/256GB MacBook Air (MQD42LL/A) in stock and on sale for $1129 including free shipping plus NY & NJ tax only. Their price is $70 off MSRP. Read more
27-inch 3.4GHz iMac on sale for $1699, save $...
B&H Photo has the new 2017 27″ 3.4GHz iMac (MNE92LL/A) in stock and on sale for $1699 including free shipping plus NY & NJ sales tax only. Their price is $100 off MSRP. Read more
21-inch 2.3GHz iMac on sale for $1049, save $...
B&H Photo has the new 2017 21″ 2.3GHz iMac (MMQA2LL/A) in stock and on sale for $1049 including free shipping plus NY & NJ tax only. Their price is $50 off MSRP. Read more
ABBYY TextGrabber 6 for iOS Implements Instan...
ABBYY has announced the release of TextGrabber 6.0.0, an important feature update to the company’s productivity app developed for iOS and Android devices. TextGrabber 6.0 now offers Real-Time... Read more
vPhone, First Smartphone That Can’t Be Lost,...
Austin, Texas based Hypori has introduced the vPhone, a virtual smartphone that affords every business user the benefits of separate work and personal phones, conveniently delivered on a single... Read more

Jobs Board

*Apple* News Product Marketing Mgr., Publish...
…organizational consensus on strategy and vision for publisher tools, authoring, and Apple News Format.Carries this strategy and vision across the organization to Read more
*Apple* Retail - Multiple Positions - Apple,...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
Security Data Analyst - *Apple* Information...
…data sources need to be collected to allow Information Security to better protect Apple employees and customers from a wide range of threats.Act as the subject matter Read more
Lead *Apple* Solutions Consultant - Apple I...
…integrity, and trust.Success Metrics/Key Performance Indicators:Quantitative* Year over Year growth in Apple Product and Beyond the Box sales in the assigned Point of Read more
*Apple* Solutions Consultant till v%u00E5r...
…ethics, integrity, and trust.Success Metrics/Key Performance Indicators:QuantitativeYear over Year growth in Apple Product and Beyond the Box sales in the assigned Point Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.