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

Latest Forum Discussions

See All

Can PokeMatch help you find love with Po...
The unofficial Pokemon GO companion app space has exploded almost as fast as the game itself over the last few weeks. Aspiring app developers, many of them working solo, have given us apps that locate Pokemon, keep track of the server status, and... | Read more »
How to get started with Prisma
If there's one thing people like to do more than taking pictures with their smartphones, it's tinkering with those photos in some way. Numerous apps have sprung up over the last several years that allow you to use filters and special effects to... | Read more »
6 Pokemon GO updates you can expect, acc...
Pokemon GO had a scheduled appearance at this year's San Diego Comic-Con for a while, but it was only relatively close to the show that it was upgraded to a spot in Hall H. That's the biggest venue at SDCC, one usually reserved for the largest... | Read more »
How to evolve Eevee in Pokemon GO
By now, almost everyone should be hip to how to evolve Pokemon in Pokemon GO (and if not, there's a guide for that). Just gather enough candy of the appropriate type, feed them all to the Pokemon, and evolution happens. It's a miracle that would... | Read more »
CSR Racing 2: Guide to all game modes
It might not seem like there are all that many ways to go fast in a straight line, but CSR Racing 2 begs to differ. [Read more] | Read more »
Bulb Boy (Games)
Bulb Boy 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: Multi-award winning 2D point & click horror adventure about a boy with a glowing head. | Read more »
5 top free emoji keyboard apps
If we're not at peak emoji yet as a society, it feels like we definitely should be. The emoji concept has gone far beyond what anyone in Japan could have envisioned when the people there unleashed it on an unsuspecting world, but the West has... | Read more »
How to unlock more characters in Disney...
One of the big charms of Disney Emoji Blitz is seeing a wide variety of beloved Disney and Pixar characters transformed into smiling emojis. Even someone like the sneaky Randall from Monsters Inc., who probably never cracked a smile on film, is... | Read more »
Cubway (Games)
Cubway 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Cubway is a journey with an abstract story of lifecycle of rebirth, called Samsara. Guide the cube through the long way full of dangers... | Read more »
Colorcube (Games)
Colorcube 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Turn pieces and blend colours in this minimal yet visually stunning puzzler.Over 200 handcrafted and challenging levels. Features... | Read more »

Price Scanner via MacPrices.net

GSK Rheumatoid Arthritis Study Leverages iPho...
Global healthcare products company GlaxoSmithKline (GSK) says that since 2014 they have begun transforming the way they conduct research, by leveraging state-of-the-art digital technologies — a... Read more
Clearance 12-inch Retina MacBooks, Apple refu...
Apple has Certified Refurbished 2015 12″ Retina MacBooks available starting at $929. Apple will include a standard one-year warranty with each MacBook, and shipping is free. The following... Read more
13-inch Retina MacBook Pros on sale for up to...
B&H Photo has 13″ Retina MacBook Pros on sale for up to $150 off MSRP. Shipping is free, and B&H charges NY tax only: - 13″ 2.7GHz/128GB Retina MacBook Pro: $1199 $100 off MSRP - 13″ 2.7GHz/... Read more
13-inch 1.6GHz/128GB MacBook Air on sale for...
Amazon has the 13″ 1.6GHz/128GB MacBook Air on sale for $200 off MSRP for a limited time. Shipping is free: - 13″ 1.6GHz/128GB MacBook Air (sku MMGF2LL/A): $799.99 $200 off MSRP Their price is the... Read more
13-inch 1.6GHz/256GB MacBook Air on sale for...
Amazon has the 13″ 1.6GHz/256GB MacBook Air on sale for $200 off MSRP for a limited time. Shipping is free: - 13″ 1.6GHz/256GB MacBook Air (sku MMGG2LL/A): $999.99 $200 off MSRP Their price is the... Read more
Free iOS Business App notably* Helps Service...
PayStudio Inc. has introduced their new business app notably* 1.0, developed for iPhone and iPod touch. notably* was specifically developed to help service and trade professionals go digital and... Read more
27-inch iMacs on sale for $200 off MSRP
Amazon has 27″ iMacs on sale for $200 off MSRP including free shipping: - 27″ 3.3GHz iMac 5K: $2099 $200 off MSRP - 27″ 3.2GHz/1TB Fusion iMac 5K: $1799.99 $200 off MSRP - 27″ 3.2GHz/1TB HD iMac 5K... Read more
Mac Pros on sale for $200 off MSRP
B&H Photo has Mac Pros on sale for $200 off MSRP. Shipping is free, and B&H charges sales tax in NY only: - 3.7GHz 4-core Mac Pro: $2799, $200 off MSRP - 3.5GHz 6-core Mac Pro: $3799, $200... Read more
Save up to $600 with Apple refurbished Mac Pr...
Apple has Certified Refurbished Mac Pros available for up to $600 off the cost of new models. An Apple one-year warranty is included with each Mac Pro, and shipping is free. The following... Read more
Apple price trackers, updated continuously
Scan our Apple Price Trackers for the latest information on sales, bundles, and availability on systems from Apple’s authorized internet/catalog resellers. We update the trackers continuously: - 15″... Read more

Jobs Board

*Apple* Retail - Multiple Positions, Willow...
Job Description:SalesSpecialist - Retail Customer Service and SalesTransform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
*Apple* Evangelist - JAMF Software (United S...
The Apple Evangelist is responsible for building and cultivating strategic relationships with Apple 's small and mid-market business development field teams. This Read more
*Apple* Solutions Consultant - APPLE (United...
Job Summary As an Apple Solutions Consultant, you'll be the link between our future customers and our products. You'll showcase your entrepreneurial spirit as you Read more
*Apple* Professional Learning Specialist - A...
Job Summary The Apple Professional Learning Specialist is a full-time position for one year with Apple in the Phoenix, AZ area. This position requires a high Read more
*Apple* Picker - Apple Hill Orchard (United...
Apple Hill Orchard, Co. Rte. 21,Whitehall, NY 9/7/16-10/228/16. Pick fresh market or processing apples Productivity of 60 boxes and 80 boxes processing fruit per Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.