Pete

I don not have a new enough version of IM to comment on the scriptCode 
parameter. However, the header files I have (from CW 9, as well as Sym. C++ v6 
something) show different trap info than you have here.

extern pascal void UppercaseText(Ptr textPtr, short len, ScriptCode script)
 SIXWORDINLINE(0x3F3C, 0x0400, 0x2F3C, 0x800A, 0xFFB6, 0xA8B5);

LOCAL MODE
'DIM textPtr&, theLen%, scriptCode%
LOCAL FN UppercaseText(textPtr&, theLen%, scriptCode%)
`     move.l  ^textPtr&,-(sp)                ;Ptr
`     move.w  ^theLen%,-(sp)                 ;INTEGER `     move.w  
^scriptCode%,-(sp)
`     dc.w    $3F3C, $0400, $2F3C, $800A, $FFB6, $A8B5
END FN

extern pascal void UppercaseStripDiacritics(Ptr textPtr, short len, ScriptCode 
script)
 SIXWORDINLINE(0x3F3C, 0x0600, 0x2F3C, 0x800A, 0xFFB6, 0xA8B5);

LOCAL MODE
DIM textPtr&, theLen%, scriptCode%
LOCAL FN UppercaseStripDiacritics(textPtr&, theLen%, scriptCode%)
`     move.l  ^textPtr&,-(sp)                ;Ptr
`     move.w  ^theLen%,-(sp)                 ;INTEGER `     move.w  
^scriptCode%,-(sp)
`     dc.w    $3F3C, $0600, $2F3C, $800A, $FFB6, $A8B5
END FN

Also, you shouldn't DIM the functions parameters, as I believe these are 
implicitly globals.

Chris Young


______________________________ Reply Separator _________________________________
Subject: [FB] Check Please Waiter
Author:  furry@...
Date:    3/16/98 7:13 AM


I posted this a couple of days ago, but haven't seen any responses yet...


can someone check that these FNs are ok?

I got the FNs from the script.p header files, but they didn't mention the 
scriptCode, so I added the scriptCode stuff, after checking out some code 
that Rick posted (ages ago?)

Is the ScriptCode "Addition" ok ?
From what I understand of IM, there's supposed to be a scriptCode.


LOCAL MODE
DIM textPtr&, theLen%, scriptCode%
LOCAL FN UppercaseText(textPtr&, theLen%, scriptCode%)
 `     move.l  ^textPtr&,-(sp)                ;Ptr
 `     move.w  ^theLen%,-(sp)                 ;INTEGER 
 `     move.w  ^scriptCode%,-(sp)
 `     dc.w    $301F,$205F,$A456
END FN

LOCAL MODE
DIM textPtr&, theLen%, scriptCode%
LOCAL FN UppercaseStripDiacritics(textPtr&, theLen%, scriptCode%)
 `     move.l  ^textPtr&,-(sp)                ;Ptr
 `     move.w  ^theLen%,-(sp)                 ;INTEGER 
 `     move.w  ^scriptCode%,-(sp)
 `     dc.w    $301F,$205F,$A656
END FN

tia

Pete...


Voice/Answering Machine: 61 2 48621428
                    Fax: 61 2 48621580

                  email: furry@...

              snailMail: P.O.Box 781
                         Bowral NSW 2576
                         Australia

Check out: http://www.hinet.net.au/~furry

In the words of a 'famous' Vulcan:
     "Long Live And Prosper"


--
To unsubscribe, send ANY message to <futurebasic-unsubscribe@...>