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

Viber 12.4.0 - Send messages and make fr...
Viber lets you send free messages and make free calls to other Viber users, on any device and network, in any country! Viber syncs your contacts, messages and call history with your mobile device, so... Read more
OmniFocus 3.5.1 - GTD task manager with...
OmniFocus is an organizer app. It uses projects to organize tasks naturally, and then add tags to organize across projects. Easily enter tasks when you’re on the go, and process them when you have... Read more
Network Radar 2.9 - $17.99
Network Radar is an advanced network scanning and managing tool. Featuring an easy-to-use and streamlined design, the all-new Network Radar 2 has been engineered from the ground up as a modern Mac... Read more
Tidy Up 5.3.4 - Find duplicate files and...
Tidy Up is a full-featured duplicate finder and disk-tidiness utility. Features: Supports Lightroom: it is now possible to search and collect duplicates directly in the Lightroom library. Multiple... Read more
DiskCatalogMaker 8.0 - Catalog your disk...
DiskCatalogMaker is a simple disk management tool which catalogs disks. Simple, light-weight, and fast Finder-like intuitive look and feel Super-fast search algorithm Can compress catalog data for... Read more
ExpanDrive 7.4.11 - Access cloud storage...
ExpanDrive builds cloud storage in every application, acts just like a USB drive plugged into your Mac. With ExpanDrive, you can securely access any remote file server directly from the Finder or... Read more
OmniGraffle Pro 7.13 - Create diagrams,...
OmniGraffle Pro helps you draw beautiful diagrams, family trees, flow charts, org charts, layouts, and (mathematically speaking) any other directed or non-directed graphs. We've had people use... Read more
OmniGraffle 7.13 - Create diagrams, flow...
OmniGraffle helps you draw beautiful diagrams, family trees, flow charts, org charts, layouts, and (mathematically speaking) any other directed or non-directed graphs. We've had people use Graffle to... Read more
Airmail 4.0 - Powerful, minimal email cl...
Airmail is an mail client with fast performance and intuitive interaction. Support for iCloud, MS Exchange, Gmail, Google Apps, IMAP, POP3, Yahoo!, AOL, Outlook.com, Live.com. Airmail was designed... Read more
OmniOutliner Essentials 5.5.3 - Organize...
OmniOutliner Essentials (was OmniOutliner) is a flexible program for creating, collecting, and organizing information. Give your creativity a kick start by using an application that's actually... Read more

Latest Forum Discussions

See All

Isle Escape: The House is an upcoming pu...
Isle Escape: The House is an upcoming puzzle game from Simeon Angelov that's intended to serve as an introduction to a saga they're planning on releasing in an episodic fashion. The first chapter is set to release for both iOS and Android on 29th... | Read more »
Company of Heroes, the classic RTS, is n...
Feral Interactive has finally released their highly anticipated iOS version of the strategy classic Company of Heroes. It's available now for iPad as a premium title and has had various tweaks to ensure that it's optimised for touch controls. [... | Read more »
Mario Kart Tour's Vancouver Tour ha...
With Mario Kart Tour's Valentine's Tour now at an end (suspiciously before Valentine's Day has even arrived), it's now time to move on to the all-new and exciting Vancouver Tour. This time around, the featured drivers are Hiker Wario and Aurora... | Read more »
A new PictoQuest update makes it a much...
PictoQuest is a charming little puzzle game, but it left us a little disappointed. The game just didn’t seem to use screen space effectively, to the point that using the touch controls (as opposed to the default virtual d-pad) could lead to errant... | Read more »
Alley is an atmospheric adventure game a...
Alley is an atmospheric adventure game that sees you playing as a young girl trapped in an inescapable nightmare. Surrounded by her worst fears, every step forward for her is a huge challenge that you'll help guide her through using some simple... | Read more »
Fight monsters and collect heroes in Cry...
From Final Fantasy to Chaos Rings, Japanese roleplaying games have found a large and loyal fanbase on mobile devices. If you’re seeking a more under-the-radar JRPG to escape into, Lionsfilm’s Cryptract could be the one. The game has been around... | Read more »
Circuit Dude is a top-down, tile-based p...
Circuit Dude is a tile-based puzzler that was originally released on Steam back in 2017. Now it's made it's way over to mobile devices where it's available for both iOS and Android as a premium game. [Read more] | Read more »
Liege Dragon is another upcoming RPG for...
Liege Dragon is an upcoming RPG from Kemco, who has certainly streamlined the process of making their particular brand retro-inspired turn-based games at this point. Liege Dragon will be available for both iOS and Android. [Read more] | Read more »
Hidden Survivor from Joy Brick is a hide...
Joy Brick's Hidden Survivor is an interesting title of two halves: part story-focused survival experience, part intense hide-and-seek multiplayer game. Both elements come together to form a compellingly strange and enjoyable whole. The hide-and-... | Read more »
Stupid Zombies 4 is an upcoming trick-sh...
The Stupid Zombies are preparing to make their grand return to iOS and Android in the fourth instalment of the hugely popular trick-shot shooter series. If you missed out on the earlier games, the basic idea is that you have to bounce bullets... | Read more »

Price Scanner via MacPrices.net

Sunday sale: 27″ 5K iMacs for $150 off Apple’...
B&H Photo has new 2019 27″ 5K iMacs in stock today and on sale for $150 off Apple’s MSRP. Overnight shipping is free to many locations in the US: – 27″ 3.0GHz 5K iMac: $1649.99 $150 off MSRP – 27... Read more
Sunday sale: 21″ iMacs for $100-$150 off Appl...
B&H Photo has new 21″ Apple iMacs on sale for $100 off MSRP with models available starting at $999. These are the same iMacs offered by Apple in their retail and online stores. Overnight shipping... Read more
Best Buy President’s Day Weekend 2019 sale: A...
Best Buy has Apple HomePods on sale for $249.99 as part of their President’s Day Weekend 2019 sale. Both Space Gray and White HomePods are on sale for this price. Their price is $50 off Apple’s MSRP... Read more
President’s Day Weekend Sale: 13″ 1.4GHz MacB...
Amazon has new 2019 13″ 1.4GHz MacBook Pros on sale for $200 off Apple’s MSRP, starting at $1099, as part of their President’s Day Weekend sale. These are the same MacBook Pros sold by Apple in its... Read more
President’s Day Weekend Sale: Apple AirPods f...
Amazon has new 2019 Apple AirPods on sale today ranging up to $35 off MSRP, starting at $129, as part of their President’s Day Weekend sale. Shipping is free: – AirPods Pro: $234.98 $15 off MSRP –... Read more
Save hundreds on custom 16″ MacBook Pro confi...
Save up to $920 on a custom-configured 16″ MacBook Pro with these Certified Refurbished models now available at Apple. Each MacBook Pro features a new outer case, free shipping, and includes Apple’s... Read more
Back on sale: 4 and 6-core Mac Minis for $100...
B&H Photo has 4-Core and 6-Core Mac minis on sale for $100 off Apple’s standard MSRP, with prices starting at only $699. Overnight shipping is free to many US addresses: – 3.6GHz Quad-Core mini... Read more
16″ MacBook Pros, Certified Refurbished, now...
Apple is now offering Certified Refurbished 2019 16″ MacBook Pros for up to $420 off the cost of new models, starting at $2039. Each model features a new outer case, shipping is free, and an Apple 1-... Read more
Purchase a new Apple Pro Display XDR and pay...
Apple reseller DataVision has Apple’s new Pro Display XDR models available for order including sales tax for NY, NJ, PA, and CA residents only. If you don’t reside in one of those states, you can... Read more
B&H has select 13″ 2.4GHz MacBook Pros on...
B&H Photo has select 2019 13″ 2.4GHz MacBook Pros on sale $250 off Apple’s MSRP, starting at $1549. Overnight shipping is free to many addresses in the US. These are the same MacBook Pros sold by... Read more

Jobs Board

*Apple* Computing Professional - Best Buy (U...
**761650BR** **Job Title:** Apple Computing Professional **Job Category:** Store Associates **Store NUmber or Department:** 000217-Aurora-Store **Job Description:** Read more
Medical Assistant - *Apple* Valley Clinic -...
…provide professional, quality care to patients in the ambulatory setting at the Fairview Apple Valley Clinic, located in Apple Valley, MN. Join the **Fairview Read more
Geek Squad *Apple* Consultation Professiona...
**762475BR** **Job Title:** Geek Squad Apple Consultation Professional **Job Category:** Store Associates **Store NUmber or Department:** 001423-San Jose-Store **Job Read more
*Apple* Engineering Specialist - Amentum (Un...
Job Summary Amentum has an immediate opportunity for an Apple Engineering Solutions to support a government agencys capabilities in Washington, DC (Union Station / Read more
Best Buy *Apple* Computing Master - Best Bu...
**745058BR** **Job Title:** Best Buy Apple Computing Master **Job Category:** Store Associates **Store NUmber or Department:** 001080-Lake Charles-Store **Job Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.