TweetFollow Us on Twitter

Nov 90 Mousehole
Volume Number:6
Issue Number:11
Column Tag:Mousehole Report

Linking THINK Pascal

By Larry Nedry, Mousehole BBS

From: Jaylieske

Re: Think Pascal and Language Systems Fortran

Just got the September MacTutor and noticed the question by ‘Atom’ on page 94 concerning Fortran and Think Pascal. I’ve recently been delving into that and could offer the following comments.

Using Language Systems Fortran 2.1 it’s pretty hard to call routines developed with Think Pascal 3.x, but it is possible. I’ve developed some file utilities using Think Pascal and wanted to call them from LS Fortran.

The utilities provide the current time, the creation date, modification date and full path name (truncated on the left so one gets the really “significant” portion of the path) for any file connected to a Fortran unit.

I developed and debugged the routines in Think Pascal and love it. Unfortunately, it proved very difficult to link that to Language Systems Fortran because of the manner in which Think produces its ‘OBJ ‘-compatible libraries. So I ended up porting the Think Pascal to MPW Pascal and then linking it with a Fortran main program and subroutines. By the way, I didn’t have to use the MPW ‘PasLib.o’ library, so people who don’t own MPW Pascal can actually use and link the object code with no difficulty.

Anyway, the problem with Think libraries is as follows--and I’ve confirmed some of this with Rich Siegel at Think. As Rich also mentioned on page 94 of the September MacTutor article, Think Pascal does produce ‘OBJ ‘-compatible files. MPW owners can do a ‘dumpobj -mods’ of the Think libraries quite readily, for example. If you do this, then you’ll see both the problem and perhaps also the reason why Think Pascal libraries ultimately ought to be quite readily usable with MPW languages such as Language Systems Fortran.

However, if you do a ‘dumpobj -mods’ of either MPW Pascal or Language Systems Fortran for the Interfacelib.o or Fortranlib.o files, you’ll find that the ENTRY points in the ‘OBJ ‘ files are all in caps, since Pascal is case insensitive. In fact, the MPW linker is case sensitive (in order to deal with the C people) and so the MPW Pascal compiler puts out all entry names in capital letters in the ‘OBJ ‘ files. Same goes for Language Systems Fortran. Hence, they’re quite sympatico.

On the other hand, Think Pascal’s compiler produces case-sensitive entries in the ‘OBJ ‘ files. For example, the Pascal function ‘CognitoErgoSum’ would have an entry in the ‘OBJ ‘ file as COGNITOERGOSUM but in Think’s Pascal it would be ‘CognitoErgoSum’. The linker treats these as being different. It’s therefore probably a ‘blessing’ in that the Think runtime and Pascal libraries (which are upper/lower case) are therefore “different” from the comparable MPW libraries. It might be a waste since MPW’s NEWPOINTER probably is exactly the same as Think’s NewPointer, but at least one has the possibility of being able to deal with two different Pascal dialects.

The bad news occurs for the user. Any unit created with Think Pascal will use the capitalization as it occurs. So a routine such as UpperAndLower will have an entry in Think’s ‘OBJ ‘ file as ‘UpperAndLower’. Hence, if you want to have Think procedures and functions to be callable from languages such as Language Systems Fortran (or even from MPW Pascal), then you MUST use ALL CAPITAL LETTERS for every Think Pascal public procedure and function (i.e. all funcs and procs that appear in the interface portion of the unit). That makes for a very ‘unreadable’ Pascal program, although us old-time Fortran programmers will recognize the unreadability as ‘typical.’

Using the above guidelines, I have successfully linked a Think Pascal unit to a Fortran program and subroutines. And it’s not just a simple ‘show-me-you-can-do-it’ type of program. It’s a useful file utility that gives the above-mentioned information.

I hope that Think provides an UpperCase flag for entry points in their ‘OBJ ‘ files. Only heavily involved programmers would notice the difference. It probably would also be good for Think to maintain their case-does-matter entries so that they can keep their entry names separate from MPW’s.

The code I’ve been mentioning (mostly written in Pascal with some in Fortran) has been posted to Stanford’s ‘info-mac’ board which is widely used by institutional types like me that have access to ftp.

From: Wolfhound

Re: Font Size in PopUp Menus

Can someone tell me, how can I set the font size in a PopUp Menu without writing my own MDEF? I tried changing SysFontSize, but this doesn’t seem to work. Thanks.

From: Btoback

Re: Greying out popup menus

It simply writes over the item with a gray pattern and patBic mode. For a pop-up menu CDEF, see the April 1989 issue of MacTutor - there’s a whole article (and code, of course) for a pop-up menu control that can be disabled and gets grayed out properly.

From: Kasper

Re: PopUpMenuSelect

Does anyone know how to get PopUpMenuSelect to run reliably on the various Macintosh machines? I got it to run on my SE, but it won’t work on my SE30. Calling CalcMenuSize afterward doesn’t help. The system hangs after exiting the function, giving a bus error.

From: Reneb

Re: CDEF resource

Can anybody tell me where I can find the source code (in C or any other language) for an example control resource (CDEF)? I am using ThinkC, and I really like to write my own CDEFs, but none of the books or bulletin boards, nor ‘Inside Macintosh’ give enough practical information to handle this challenge. Thanks.

From: Mward

Re: CDEF resource

If you would like A CDEF in assembly I could probably dig up an example. If you find an example in C or Pascal, be sure and let us know. I’ve been looking for such a thing for awhile. (One of these days I’ll get tired of waiting and just do it myself). Also, AppMAker allows you do define some kinds of controls, and creates the resources for same.

From: Sysop

Re: CDEF resource

There are currently 2 CDEF examples in the Language File Library. From the Language File Library menu type ‘D CDEF’ for a list of files with CDEF as a key word.

P.S. The file names are ‘DEFAULT.’ which Draws default button outlines and ‘SLIDCDEF.SIT’ which includes sources for SuperSlide controls.

From: Reneb

Re: CDEF resource

I found a CDEF written in C in the ‘Language and Source Code’ lib of this BBS. The filename is SLIDCDEF.SIT by Chris Marchall. Although it is a relatively large file, the code is nicely structured and documented. I am currently trying to understand the structure in order to write my own.

From: Inbox

Re: TCL question

In the Starter project (of THINK C v4.0), why does an Untitled window come up automatically? I can’t find the code that creates that window. The only thing I can think of is that the program may think that it’s been invoked by double-clicking a document, and then the Preload() method would kick in.

So, please shed some light on this confusing matter. Also, what advice would you give as to the fastest and most painless way to learn to use TCL?

From: Inbox

Re: TCL questions

Does anyone know what proc sends the main pane of a document the draw() message whenever it’s first displayed? I can’t find the bloody thing...

Menus..

I’ve appended the command #s using ResEdit, and they work fine when I use things like gBartender->EnableCmd(myCmdID), but the DoCommand() method fails to recognize these IDs and I have to look at HiWord and LoWord stuff. Why, then, doesn’t DoCommand() recognize a command by that ID?

From: Jcb

Re: Object Pascal RadioButtons

I have a relatively simple problem but still confusing to a new user of Think Pascal OOP. I have successfully set up the Resources for Radio buttons, gone through the New(...), .IRadioButton, new(...), new(...), .IRadioGroup, AddButton, sequence and got the buttons to display in the window. My problem is how to get the control tracking to permit selection of the button. There are some references to doing mouse tracking, etc for the specific pane, but I wonder if I have been overlooking a relatively simple step. Any suggestions???

From: Inbox

Re: List Class

This is weird, but I don’t think there’s a List class in TCL. Am I going blind or what?

From: Stubob

Re: List Class

There is indeed a List class in TCL -- it’s called “CList” (!) and is in the Core Classes folder of your THINK C package and is described fully in the THINK C 4.0 manual - p.321. I also happen to have a PD “CLinkedList” class. If you’d like a copy of it, e-mail me and I’ll upload it...but check to see if it isn’t already online first.

And as a reply to your other message (re: learning TCL) the most effective (not easiest or fastest maybe...) way to learn TCL is to trace through one or two of the example programs, line by line and class by class, making sure you understand each line along the way. Slow, but thorough. Then start customizing the starter apps until you feel more confident - maybe add an about box, or make the window a color window, etc.

Hope some of that helped. (And if you find any good books, let me know!)

From: Noisy

Re: List Class

If you check out the Prepare() demo issue in the MouseHole libraries, you’ll see that it offers a bunch of TCL classes in exchange for $$$. I purchased issues #1 and #2, and they are superb! Over 2+ megs of source code, and a ListMgr based class among them -- unfortunately this stuff isn’t shareware, so I can’t upload it...Sorry.

From: Corner

Re: Scrolling Lists as a Class

Has anyone implemented scrolling lists (like with LNEW) as a class? Where would you put them in the inheritance chain...below CPane? If anyone can offer any suggestions, it would be greatly appreciated. I am trying to write a LSC 4.0.1 application with a list in a window type 8 and have a list in that window.

From: Inbox

Re: List Class

Thanks for your help but, I was looking for a different type of list. Namely, a critter that’s created with the List Manager. And this, I guess, is just a list list of objects.

From: Mikev

Re: database

I’ve been developing with db_Vista and db_Query on the Mac for close to six months and I don’t recommend these products. Both are good when they work, but I have encountered too many bugs to recommend them for a commercial product, especially in db_Query. The idea is good, db_Vista is fairly easy to figure out, db_Query the documentation sinks. I have objects, source, and extended support. The source is just about worthless: it is largely uncommented, undocumented, and unstructured. It is basically a Unix port and very un-Mac like. Although I have not been “officially” notified, I have been told the products are to be discontinued and no longer supported. Whether the product is picked up and supported by a new party is unclear. [db_Vista will be picked up and supported.-ed]

Their support staff has been very responsive, but not necessarily helpful. I’ve given them more bug fixes than they have given me. As far giving up on the Mac product (in favor of their PC business), I think it shows a lack of commitment to their customers. I would be happy if it worked, but it doesn’t. I was told they haven’t been shipping their multi-user network version, because of the bugs.

Does any one work with Inside Out, C-Tree file handler, Informix, Oracle? Or can recommend any database software?

From: Noisy

Re: database

I did some work with InsideOut, and it was quite impressive: the interface is *very* Mac-like, and well thought out. There is a suite of ‘Design Utilities’ to create your DataDictionary and files, as well as a set of RSRC files to embed in your Application. My only gripe with InsideOut was that it was almost overkill -- we wanted functionality barely beyond ISAM! While the ‘user views’, ‘multi-user sharing/locking’ and extremely sophisticated debugger were appreciated, the overhead needed for the final application was not. The resources alone added over 150K to the application! We ended up rolling our own, just to save space & time!

From: Inbox

Re: CtoPstr

Does this function alter whatever is passed to it? I think it may be killing my strings because they get run through it more than once...

From: Jweisner

Re: CtoPstr

CtoPstr reads the first length byte and appends a ‘\0’ character to make a C string. Multiple passes would truncate your string.

From: Jax

Re: ResEdit

I heard ResEdit2.0b2 is out there somewhere, so has anyone seen it??

Supposed to be more icon based.

From: Noisy

Re: ResEdit v2.0b2

OK Guys: I just spent $$??!! to download ResEdit v2.0b2 from CompuServe, and was mildly disappointed...the interface is a little cleaner, and it will *finally* handle color-related resources (cicn’s et. al.) but it’s still too early to rush out and take up 500KB+ of disk space for the new version. My biggest complaint is that any MENU editing fails miserably on my MacII - bus error - do not pass go, etc.

On my Mac+ at home it’s does it’s thing, but gee whizz...I’ve got 43,000 other shareware tools to do the same thing anyway. I’d give ResEdit v2.0 a few more months to mature -- we will use no utility before it’s time.

From: Dash

Re: ResEdit v2.0b2

I’ve been using ResEdit 2.0b2 for some time, and MENU resources work fine on my Macintosh II, IIci, and IIfx... Maybe you version is somehow corrupted.

From: Noisy

Re: ResEdit v2.0b2

I’m using a Spectrum SuperMac 19" monitor & system 6.0.3 -- I suspect that the problem may lie there. I’m still working on it though.

Thanks for your comments!

From: Jax

Re: Mac Plus Accelerator

Now that it is September almost, MacUser recommends the Gemini030 accelerator for the Mac Plus, but the 25mhz version, along with the SCSI kit. Never heard any complaints about them...

From: Rcolvin

Re: Hypercard networking

I got an interesting situation here. I need to be able to access AppleTalk from hypercard, in order to write a stack that performs the same functions as the “BroadCast” rdev. I have the “HyperAppleTalk” stuff that Don Koscheka wrote, but they don’t work the way the docs say they should.

In fact, some don’t work at all. Has someone else solved this problem, or is there a later version of the HyperAppleTalk XCMD’s and XFCN’s??

From: Wildman

Re: EtherNet to Vaxen

What experiences do people have with EtherNet connections between Macs and VAX computers? I’ve worked with folks who use a GatorBox as a gateway between EtherNet networks and AppleTalk networks. It works fine for stuff like terminal connections but the filesharing is pretty slow because of AppleTalk’s limited bandwidth. What I think I want is an EtherNet card for my MacII. What cards work best? What software packages exist for good performance file sharing? Is there a DECnet package currently available?

From: Arlen

Re: EtherNet to Vaxen

I’m using a 3Comm Etherlink NB with a IIcx and have experienced no problems. I’m also using TSSnet from Alisa, and cannot say the same. Skip the TSSnet and wait for LANWorks Macintosh (should be available from DEC in about 2-3 months. I’ve no experience with it, but it’s bound to be better than TSSnet.

My grouches with TSSnet start at it refusing to follow the Mac interface, proceed on through its non-standard init behavior, and end at its inability to transfer some kinds of files through the network without substantially altering them. All in all, a lemon.

From: Teisen

Re: Fastback II Fails to Restore

I just received MacTools Deluxe and will take a look at its backup program. I seem to remember trying to use its earlier incarnation and being very disappointed. I think that, if it encountered a disk error, it would ask for all previous disks be reinserted before asking for the replacement disk. What a waste...

From: Mward

Re: Fastback II Fails to Restore

I also have MacTools Deluxe, and am very disappointed in the product in general, and in the backup feature in particular. I recently took a look at the file this program uses to keep track of deleted files, and it had a list of about fifty files, exactly one of which was undeletable. Fat lot of good that’s going to do anyone.

I’m tempted to try out the upgrade to Fastback, but I’m getting really sick of paying high prices for minor fixes, cosmetic changes or for graduating from beta quality to almost production quality software.

Makes me think back to the good old days of piracy (just kidding, guys - really, honest).

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Tunnelblick 3.7.3 - GUI for OpenVPN.
Tunnelblick is a free, open source graphic user interface for OpenVPN on OS X. It provides easy control of OpenVPN client and/or server connections. It comes as a ready-to-use application with all... Read more
Opera 48.0.2685.50 - High-performance We...
Opera is a fast and secure browser trusted by millions of users. With the intuitive interface, Speed Dial and visual bookmarks for organizing favorite sites, news feature with fresh, relevant content... Read more
Tor Browser Bundle 7.0.7 - Anonymize Web...
The Tor Browser Bundle is an easy-to-use portable package of Tor, Vidalia, Torbutton, and a Firefox fork preconfigured to work together out of the box. It contains a modified copy of Firefox that... Read more
FotoMagico 5.5 - Powerful slideshow crea...
FotoMagico lets you create professional slideshows from your photos and music with just a few, simple mouse clicks. It sports a very clean and intuitive yet powerful user interface. High image... Read more
Adobe Audition CC 2018 11.0.0 - Professi...
Audition CC 2018 is available as part of Adobe Creative Cloud for as little as $19.99/month (or $9.99/month if you're a previous Audition customer). Adobe Audition CC 2018 empowers you to create and... Read more
Alfred 3.5.1 - Quick launcher for apps a...
Alfred is an award-winning productivity application for OS X. Alfred saves you time when you search for files online or on your Mac. Be more productive with hotkeys, keywords, and file actions at... Read more
AirRadar 4.0 - $9.95
With AirRadar, scanning for wireless networks is now easier and more personalized! It allows you to scan for open networks and tag them as favourites or filter them out. View detailed network... Read more
DEVONthink Pro 2.9.16 - Knowledge base,...
Save 10% with our exclusive coupon code: MACUPDATE10 DEVONthink Pro is your essential assistant for today's world, where almost everything is digital. From shopping receipts to important research... Read more
ForkLift 3.0.8 Beta - Powerful file mana...
ForkLift is a powerful file manager and ferociously fast FTP client clothed in a clean and versatile UI that offers the combination of absolute simplicity and raw power expected from a well-executed... Read more
Data Rescue 5.0.1 - Powerful hard drive...
Data Rescue’s new and improved features let you scan, search, and recover your files faster than ever before. We have modernized the file-preview capabilities, added new files types to the recovery... Read more

Wheels of Aurelia (Games)
Wheels of Aurelia 1.0.1 Device: iOS Universal Category: Games Price: $3.99, Version: 1.0.1 (iTunes) Description: | Read more »
Halcyon 6: Starbase Commander guide - ti...
Halcyon 6 is a well-loved indie RPG with stellar tactical combat and some pretty good writing, too. It's now landed on the App Store, so mobile fans, if you're itching for a good intergalactic adventure, here's your game. Being a strategy RPG, the... | Read more »
Game of Thrones: Conquest guide - how to...
Fans of base building games might be excited to know that yet another entry in the genre has materialized - Game of Thrones: Conquest. Yes, you can now join the many kingdoms of the famed book series, or create your own, as you try to conquer... | Read more »
Halcyon 6: Starbase Commander (Games)
Halcyon 6: Starbase Commander 1.4.2.0 Device: iOS Universal Category: Games Price: $6.99, Version: 1.4.2.0 (iTunes) Description: An epic space strategy RPG with base building, deep tactical combat, crew management, alien diplomacy,... | Read more »
Legacy of Discord celebrates its 1 year...
It’s been a thrilling first year for fans of Legacy of Discord, the stunning PvP dungeon-crawling ARPG from YOOZOO Games, and now it’s time to celebrate the game’s first anniversary. The developers are amping up the festivities with some exciting... | Read more »
3 reasons to play Thunder Armada - the n...
The bygone days of the Battleship board game might have past, but naval combat simulators still find an audience on mobile. Thunder Armada is Chinese developer Chyogames latest entry into the genre, drawing inspiration from the explosive exchanges... | Read more »
Experience a full 3D fantasy MMORPG, as...
Those hoping to sink their teeth into a meaty hack and slash RPG that encourages you to fight with others might want to check out EZFun’s new Eternity Guardians. Available to download for iOS and Android, Eternity Guardians is an MMORPG that lets... | Read more »
Warhammer Quest 2 (Games)
Warhammer Quest 2 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: Dungeon adventures in the Warhammer World are back! | Read more »
4 of the best Halloween updates for mobi...
Halloween is certainly one of our favorite times for mobile game updates. Many popular titles celebrate this spooky season with fun festivities that can stretch from one week to even the whole month. As we draw closer and closer to Halloween, we'... | Read more »
Fire Rides guide - how to swing to succe...
It's another day, which means another Voodoo game has come to glue our hands to our mobile phones. Yes, it's been an especially prolific month for this particular mobile publisher, but we're certainly not complaining. Fire Rides is yet another... | Read more »

Price Scanner via MacPrices.net

Apple restocks full line of refurbished 13″ M...
Apple has restocked a full line of Apple Certified Refurbished 2017 13″ MacBook Pros for $200-$300 off MSRP. A standard Apple one-year warranty is included with each MacBook, and shipping is free.... Read more
13″ 3.1GHz/256GB MacBook Pro on sale for $167...
Amazon has the 2017 13″ 3.1GHz/256GB Space Gray MacBook Pro on sale today for $121 off MSRP including free shipping: – 13″ 3.1GHz/256GB Space Gray MacBook Pro (MPXV2LL/A): $1678 $121 off MSRP Keep an... Read more
13″ MacBook Pros on sale for up to $120 off M...
B&H Photo has 2017 13″ MacBook Pros in stock today and on sale for up to $120 off MSRP, each including free shipping plus NY & NJ sales tax only: – 13-inch 2.3GHz/128GB Space Gray MacBook... Read more
15″ MacBook Pros on sale for up to $200 off M...
B&H Photo has 15″ MacBook Pros on sale for up to $200 off MSRP. Shipping is free, and B&H charges sales tax in NY & NJ only: – 15″ 2.8GHz MacBook Pro Space Gray (MPTR2LL/A): $2249, $150... Read more
Roundup of Apple Certified Refurbished iMacs,...
Apple has a full line of Certified Refurbished 2017 21″ and 27″ iMacs available starting at $1019 and ranging up to $350 off original MSRP. Apple’s one-year warranty is standard, and shipping is free... Read more
Sale! 27″ 3.8GHz 5K iMac for $2098, save $201...
Amazon has the 27″ 3.8GHz 5K iMac (MNED2LL/A) on sale today for $2098 including free shipping. Their price is $201 off MSRP, and it’s the lowest price available for this model (Apple’s $1949... Read more
Sale! 10″ Apple WiFi iPad Pros for up to $100...
B&H Photo has 10.5″ WiFi iPad Pros in stock today and on sale for $50-$100 off MSRP. Each iPad includes free shipping, and B&H charges sales tax in NY & NJ only: – 10.5″ 64GB iPad Pro: $... Read more
Apple iMacs on sale for up to $130 off MSRP w...
B&H Photo has 21-inch and 27-inch iMacs in stock and on sale for up to $130 off MSRP including free shipping. B&H charges sales tax in NY & NJ only: – 27″ 3.8GHz iMac (MNED2LL/A): $2179 $... Read more
2017 3.5GHz 6-Core Mac Pro on sale for $2799,...
B&H Photo has the 2017 3.5GHz 6-Core Mac Pro (MD878LL/A) on sale today for $2799 including free shipping plus NY & NJ sales tax only . Their price is $200 off MSRP. Read more
12″ 1.2GHz Space Gray MacBook on sale for $11...
Amazon has the 2017 12″ 1.2GHz Space Gray Retina MacBook on sale for $100 off MSRP. Shipping is free: 12″ 1.2GHz Space Gray MacBook: $1199.99 $100 off MSRP Read more

Jobs Board

*Apple* Retail - Multiple Positions - Farmin...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
Frameworks Engineer, *Apple* Watch - Apple...
Job Summary Join the team that is shaping the future of software development for Apple Watch! As a software engineer on the Apple Watch Frameworks team you will Read more
*Apple* News Product Marketing Mgr., Publish...
Job Summary The Apple News Product Marketing Manager will work closely with a cross-functional group to assist in defining and marketing new features and services. Read more
Fraud Analyst, *Apple* Advertising Platform...
Job Summary Apple Ad Platforms has an opportunity to redefine advertising on mobile devices. Apple reaches hundreds of millions of iPhone, iPod touch, and iPad Read more
*Apple* Information Security - Security Data...
Job Summary This role is responsible for helping to strengthen Apple 's information security posture through the identification and curation of security event data. Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.