Assuming that ASCII is a "state smart" version of CHAR & [CHAR], which is
the common definition of it, here's how we do it for compatibility with Open
Firmware:

: (literal) ( c -- c | ) state @ if
   ( compiling) postpone literal
   ( interpreting -- leave on stack ) then ;
: ascii ( -- c ) char (literal) ; immediate

-----Original Message-----
From: sftalk-bounce_at_forth.com [mailto:sftalk-bounce_at_forth.com] On Behalf Of
Mike Ghan
Sent: Sunday, July 25, 2004 2:00 PM
To: sftalk_at_forth.com
Subject: [sftalk] Re: COM stuff added to Wiki

Hi Tom,

I'm having a little difficulty with FCOM. The word ascii is not defined.
I guessed at
: ASCII POSTPONE [CHAR] ; IMMEDIATE

But when attempting to compile the demo at end of the file

   5 0 typelib {C866CA3A-32F7-11D2-9602-00C04F8EE628}

I receive the following error:

   1D2-9602-00C04F8EE628} Error Loading Type Library

I'm using SF version 2.2.2.9.

Any ideas?

Thanks,
Mike

-----Original Message-----
From: sftalk-bounce_at_forth.com [mailto:sftalk-bounce_at_forth.com]On
Behalf
Of Tom Dixon
Sent: Tuesday, July 20, 2004 8:03 AM
To: sftalk_at_forth.com
Subject: [sftalk] COM stuff added to Wiki

I just added my COM stuff to the Wiki. This outdates my previous COM
library on the Faq-o-matic. It has lots of new features (such as going off
of type libraries rather than defining all the interfaces and such by hand).
Hopefully
will make working with COM a whole lot easier. It includes an example at
the end of the file of Text-To-Speech using a COM interface.

I also added another simple example of ADO. (Look for "FSQL") It is a
simplified way of executing SQL queries.

-Tom Dixon

--
----------------------------------------------------------------------
sftalk_at_forth.com      The SwiftForth programming discussion email list
To unsubscribe, send subject "unsubscribe" to sftalk-request_at_forth.com For
list command help, send subject "help" to sftalk-request_at_forth.com Message
archives are located at http://www.forth.com/archive/sftalk
----------------------------------------------------------------------
This list is a forum for SwiftForth users.  For product support and bug
reports, please send email to support_at_forth.com
----------------------------------------------------------------------
----------------------------------------------------------------------
sftalk_at_forth.com      The SwiftForth programming discussion email list
To unsubscribe, send subject "unsubscribe" to sftalk-request_at_forth.com For
list command help, send subject "help" to sftalk-request_at_forth.com Message
archives are located at http://www.forth.com/archive/sftalk
----------------------------------------------------------------------
This list is a forum for SwiftForth users.  For product support and bug
reports, please send email to support_at_forth.com
----------------------------------------------------------------------
----------------------------------------------------------------------
sftalk_at_forth.com      The SwiftForth programming discussion email list
To unsubscribe, send subject "unsubscribe" to sftalk-request_at_forth.com
For list command help, send subject "help" to sftalk-request_at_forth.com
Message archives are located at http://www.forth.com/archive/sftalk
----------------------------------------------------------------------
This list is a forum for SwiftForth users.  For product support and bug
reports, please send email to support_at_forth.com
----------------------------------------------------------------------