TweetFollow Us on Twitter

May 94 Tips
Volume Number:10
Issue Number:5
Column Tag:Tips & Tidbits

Related Info: Font Manager Window Mgr

Tips & Tidbits

By Scott T Boyd, Editor

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

Tip Of The Month

Counting items in a directory

Here’s a piece of code which counts the number of items in a directory. It’s particularly useful if you are going to do something to every file in a directory (and its subdirectories) and want to show a progress bar. It counts both invisible and visible items, so if you don’t want invisibles counted, you’ll need to modify it. The CountGlobals structure is used to minimize the amount of stack space used when recursively calling GetLevelCount and to hold global information that might be needed at any time.

- Jim Luther, Cupertino, CA


/* 1 */
struct CountGlobals
{
 OSErr  result;  // temp holder of results - saves 2 bytes of stack at 
each level
 Str63  itemName;// the name of the current item
 CInfoPBRec myCPB; // the parameter block used for PBGetCatInfo calls 
 
 unsigned long files;// the number of files in the directory structure 

 unsigned long directories; // the number of directories in the directory 
structure
};
typedef struct CountGlobals CountGlobals;
typedef CountGlobals *CountGlobalsPtr;
// static prototypes
static void GetLevelCount(long currentDirID, 
 CountGlobalsPtr theGlobals);
void CountDirectoryItems(short srcVRefNum, long srcDirID,
 unsigned long *files, unsigned long *directories);


static void GetLevelCount(long currentDirID, 
 CountGlobalsPtr theGlobals)
{
short index = 1; 
do {
 theGlobals->myCPB.dirInfo.ioFDirIndex = index;
 // we need to do this every time through; GetCatInfo returns ioFlNum 
in this field
 theGlobals->myCPB.dirInfo.ioDrDirID = currentDirID;     

 theGlobals->result =
 PBGetCatInfoSync((CInfoPBPtr)&theGlobals->myCPB);
 if (theGlobals->result == noErr)
 {
 if ((theGlobals->myCPB.dirInfo.ioFlAttrib & ioDirMask) != 0)
 {
 // we have a directory
 ++(theGlobals->directories);

 GetLevelCount(  theGlobals->myCPB.dirInfo.ioDrDirID,
 theGlobals);  // recurse

 theGlobals->result = noErr;// clear error return on way back
 }
 else
 {
 // we have a file
 ++(theGlobals->files);
 }
 }
 ++index;
} while (theGlobals->result == noErr);
}


void CountDirectoryItems(short srcVRefNum, 
 long srcDirID,
 unsigned long *files,
 unsigned long *directories)
{
CountGlobals theGlobals;

 theGlobals.myCPB.dirInfo.ioNamePtr = theGlobals.itemName;
 theGlobals.myCPB.dirInfo.ioVRefNum = srcVRefNum;
 theGlobals.files = 0;
 theGlobals.directories = 0;

 GetLevelCount(srcDirID, &theGlobals);

 *files = theGlobals.files;
 *directories = theGlobals.directories;
}

Spread the word about things you know that others could benefit from knowing! Send

us your tips and tidbits, especially programming-related tips. We’re also looking for user tips particularly useful to programmers .

MacTech Magazine will pay $25 for every tip used, and $50 for the Tip of the Month. You can take your award in orders or subscriptions if you prefer.

To submit a tip, send it in by e-mail. (Please make sure your code compiles). See page two for our addresses.

Popup Menus Pop Up Again

In the February issue, Laurent Haas suggested a method of forcing pop-up menus to appear in a certain font and size. His method involved forcing the system to use a new system font. I used to use this method as well, since it was the method suggested in an Apple DTS Q&A stack. Unfortunately, it has two drawbacks:

(1) It is very slow because the system has to rebuild the cached font info every time the font manager sees that LastSPExtra (the global variable at 0x0B4C) is -1. (That is why the -1 is being stuffed in there in the first place - otherwise the other changes are ignored because of the caching).

(2) It doesn’t work - no kidding... if it works consistently on a particular machine, you are very lucky. Much of the time it simply does not have the desired effect - usually the font will change, but the size won't.

The method I use now is to patch _TextFont and _TextSize immediately before calling PopupMenuSelect and then unpatch them immediately afterwards (to minimize interference with anything else that uses these traps). My patches call the original routine but with a substituted argument for the font number or size. This works consistently and has no speed penalty to speak of. After unpatching, I also need to restore the font and size of the window manager port, since the menu defproc has explicitly set them by calling TextFont(0) and TextSize(0). Because of the patches, the WMgrPort now has a font and size different from the system font and size. I set the current port to the WMgrPort and do a TextFont and a TextSize to set them back to 0. On a colour Mac, this must also be done for the Colour Window manager port as well.

This method doesn’t use any low memory globals, so is less likely to break. It does, however, require tweaking the window manager port(s), which could possibly break but I doubt it.

- Rowan Daniell, Software Engineer, Cowie Associates Ltd

Moving Targets In Mpw

With the advent of the Universal C interfaces it is a pain switching back and forth between the CIncludes and PPCCIncludes folders. Adding the following three lines to your UserStartUp-<yourname> script will make life easier:


/* 2 */
AddMenu Tools 'Use Universal CIncludes' 
 'SET CIncludes "{MPW}Interfaces:PPCCIncludes:"'

AddMenu Tools 'Use Standard CIncludes' 
 'SET CIncludes "{MPW}Interfaces:CIncludes:"'

AddMenu Tools (- ''

Any menu can be specified, but I chose to add these commands to the top of my Tools menu (which is also why I added a dividing line beneath the two items). Selecting an item causes the shell variable {CIncludes} to be set to the appropriate path. This can make life much easier when jumping between older projects and new, PowerPC-savvy projects.

- Bryan Pietrzak, Softdisk Publishing

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Latest Forum Discussions

See All

Combo Quest (Games)
Combo Quest 1.0 Device: iOS Universal Category: Games Price: $.99, Version: 1.0 (iTunes) Description: Combo Quest is an epic, time tap role-playing adventure. In this unique masterpiece, you are a knight on a heroic quest to retrieve... | Read more »
Hero Emblems (Games)
Hero Emblems 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: ** 25% OFF for a limited time to celebrate the release ** ** Note for iPhone 6 user: If it doesn't run fullscreen on your device... | Read more »
Puzzle Blitz (Games)
Puzzle Blitz 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Puzzle Blitz is a frantic puzzle solving race against the clock! Solve as many puzzles as you can, before time runs out! You have... | Read more »
Sky Patrol (Games)
Sky Patrol 1.0.1 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0.1 (iTunes) Description: 'Strategic Twist On The Classic Shooter Genre' - Indie Game Mag... | Read more »
The Princess Bride - The Official Game...
The Princess Bride - The Official Game 1.1 Device: iOS Universal Category: Games Price: $3.99, Version: 1.1 (iTunes) Description: An epic game based on the beloved classic movie? Inconceivable! Play the world of The Princess Bride... | Read more »
Frozen Synapse (Games)
Frozen Synapse 1.0 Device: iOS iPhone Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: Frozen Synapse is a multi-award-winning tactical game. (Full cross-play with desktop and tablet versions) 9/10 Edge 9/10 Eurogamer... | Read more »
Space Marshals (Games)
Space Marshals 1.0.1 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0.1 (iTunes) Description: ### IMPORTANT ### Please note that iPhone 4 is not supported. Space Marshals is a Sci-fi Wild West adventure taking place... | Read more »
Battle Slimes (Games)
Battle Slimes 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: BATTLE SLIMES is a fun local multiplayer game. Control speedy & bouncy slime blobs as you compete with friends and family.... | Read more »
Spectrum - 3D Avenue (Games)
Spectrum - 3D Avenue 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: "Spectrum is a pretty cool take on twitchy/reaction-based gameplay with enough complexity and style to stand out from the... | Read more »
Drop Wizard (Games)
Drop Wizard 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Bring back the joy of arcade games! Drop Wizard is an action arcade game where you play as Teo, a wizard on a quest to save his... | Read more »

Price Scanner via MacPrices.net

Amazon is offering a 10% discount on Apple’s...
Don’t pay full price! Amazon has 16-inch M4 Pro MacBook Pros (Silver and Black colors) on sale today for 10% off Apple’s MSRP. Shipping is free. These are the lowest prices currently available for 16... Read more
13-inch M4 MacBook Airs on sale for $150 off...
Amazon has new 13″ M4 MacBook Airs on sale for $150 off MSRP right now, starting at $849. Sale prices apply to most colors and configurations. Be sure to select Amazon as the seller, rather than a... Read more
15-inch M4 MacBook Airs on sale for $150 off...
Amazon has new 15″ M4 MacBook Airs on sale for $150 off Apple’s MSRP, starting at $1049. Be sure to select Amazon as the seller, rather than a third-party: – 15″ M4 MacBook Air (16GB/256GB): $1049, $... Read more
Amazon is offering a $50 discount on Apple’s...
Amazon has Apple’s 11th-generation A16 iPads in stock on sale for $50 (or a little more) off MSRP this week. Shipping is free: – 11″ 11th-generation 128GB WiFi iPads: $299 $50 off MSRP – 11″ 11th-... Read more
Clearance 13-inch M1 MacBook Airs available f...
Walmart has clearance, but new, Apple 13″ M1 MacBook Airs (8GB RAM, 256GB SSD) available online for $649, $360 off original MSRP, in Space Gray, Silver, and Gold colors. These are new MacBooks for... Read more
iPad minis on sale for $100 off Apple’s MSRP...
Amazon is offering $100 discounts (up to 20% off) on Apple’s newest 2024 WiFi iPad minis, each with free shipping. These are the lowest prices available for new minis among the Apple retailers we... Read more
AirPods Max headphones on sale for $479, $70...
Amazon has AirPods Max with USB-C on sale for $479.99 in all colors. Shipping is free. Their price is $70 off Apple’s MSRP, and it’s the lowest price available today for AirPods Max. Keep an eye on... Read more
14-inch M4 Pro/M4 Max MacBook Pros on sale th...
Don’t pay full price! Get a new 14″ MacBook Pro with an M4 Pro or M4 Max CPU for up to $320 off Apple’s MSRP this weekend at these retailers…they are the lowest prices available for these MacBook... Read more
Get a 15-inch M4 MacBook Air for $150 off App...
A couple of Apple retailers are offering $150 discounts on new 15″ M4 MacBook Airs this weekend. Prices at these retailers start at $1049: (1): Amazon has new 15″ M4 MacBook Airs on sale for $150 off... Read more
Unreal Mobile is offering a $100 discount on...
Unreal Mobile, an MVNO using AT&T and T-Mobile’s networks, is offering a $100 discount on any new iPhone with service. This includes new iPhone 16 models as well as iPhone 15, 13, and SE phones... Read more

Jobs Board

All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.