HP3000-L Archives

April 2005, Week 4

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Stan Sieler <[log in to unmask]>
Reply To:
Stan Sieler <[log in to unmask]>
Date:
Tue, 26 Apr 2005 19:33:22 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (53 lines)
> Allegro Consultants www.allegro.com has done a really nice job for us in
> translating some SPL to C.  According to Stan, it appears their Splash SPL
> compiler has had the capibility for several years but has receintly refined
> it considerable.

<plug>

Here's an example, for the source:

   $ppc
   $control uslinit
   begin
     intrinsic print;
      byte array out(0:12);
      print(out (1), -move out:="Hello World", 0);
   end.

output from SPLash! is:

/* T.SOURCE.SIELER */
/* C-code generated by SPLash! 20050401 on TUE, APR 26, 2005,  7:25 PM */

#include <ctype.h>
#include <setjmp.h>
#include <string.h>

#include "csplash.h"

void PRINT (void *message, INT16 length, INT16 control);

UCHAR
   out            [13];

/*********************************************************/
int main (int argc, char *argv [], char **envp)
   {
   PRINT (&out [1], -(SPLash_move (out, "Hello World", 11)), 0);

   return 0;

   } /* end main proc */
/*********************************************************/

</plug>

--
Stan Sieler
[log in to unmask]
www.allegro.com/sieler/wanted/index.html

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2