Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!asuvax!stjhmc!p12.f56.n114.z1.fidonet.org!Chris.Gehlker
From: Chris.Gehlker@p12.f56.n114.z1.fidonet.org (Chris Gehlker)
Newsgroups: comp.sys.mac.programmer
Subject: RE: Porting DTS example code from MPW to THINK Pascal?
Message-ID: <30418.27493A91@stjhmc.fidonet.org>
Date: 20 Nov 90 14:14:40 GMT
Sender: ufgate@stjhmc.fidonet.org (newsout1.26)
Organization: FidoNet node 1:114/56.12 - AZ MAC UG, Phoenix AZ
Lines: 34

In message <4057.2742c610@cc.nu.oz.au>
mebhl@cc.nu.oz.au(Peter Lewis) asks:

> I've been looking at the Apple DTS Sample Code available from various
> FTP sites. Some of it appears to do things I want to do.
> 
> Is there any great difficulty in porting to THINK Pascal from MPW ?
> I think I can handle different compiler directives and Uses clauses OK.

Don't forget the Pascal source converter on disk 5.  It's documented
in Chapter 20 in the main manual.

> Some bits that I see as potential stumbling blocks are expressions
> such as:
> 
>           gdFlags := 2 ** noDriver;
> 
> (so what is the ** operation?)

It's the FORTRAN exponentiation operator that snuck into MPW Pascal
by way of VAX Pascal. Use XpwrI

> Or should I just be getting general ideas from this code, without
> wholesale porting ?

Port it.  I've found that it's pretty easy to write portable code
with judicious use of the the {$IFC} and {$ELSEC} compiler
directives.

 

--  
Uucp: ...{gatech,ames,rutgers}!ncar!asuvax!stjhmc!56.12!Chris.Gehlker
Internet: Chris.Gehlker@p12.f56.n114.z1.fidonet.org