🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.postscript
Article #702

Atelier Stream

#702
From: 平山唯樹
Date: Wed, 08 May 1996 00:00
68 lines
2424 bytes
平山と申します。

PostScript記述用 Cライク言語の Atelier Stream パッケージを公開します。
Atelier Stream は C言語によく似た言語です。Atelier Streamで記述
したソースファイルをコンパイル・リンクすると、PostScript言語が出力
されます。

このパッケージには Atelier Stream用のコンパイラ、リンカ、
ライブラリマネージャのソースファイル、そしてヘッダファイル、ライブラリソース、
ドキュメント、チュートリアル、およびサンプルプログラム等が含まれています。
下記からftpで取ることができます。

ftp://ftp.tsubasa.com/pub/AS/assrc084.tar.gz      ソースファイル
                             asdoc103.tar.gz      ドキュメント類

それぞれ、適当なディレクトリをつくり、その中で解凍してください。
また、バイナリの作成にはyacc,lex,およびCコンパイラが必要です。

次にAtelier Streamによるプログラムのコンパイル・リンク例をあげます。
-------------------
#include <ps.ah>

void rect( real x1, real y1, real x2, real y2 )
{
moveto( x1,y1 );
lineto( x2,y1 );
lineto( x2,y2 );
lineto( x1,y2 );
closepath();
stroke();
}

void main( void )
{
rect( 10,20,300,400 );
showpage();
}
--------------------
      |
      | compile,link
      V
--------------------
%!PS-Adobe-
/@rect { 3 index 3 index moveto 1 index 4 -1 roll lineto exch 1 index 
lineto lineto closepath stroke } bind def 
10 20 300 400 @rect showpage 
--------------------

なるべくOSに依存しないコードを心掛けており、現在次のOSでの稼動が確認されています
。

DOS/V
OS/2
Linux
AIX
FreeBSD 2.1.OR
Solaris 2.4(J)
HPPA HP-UX 9.x
BSD/OS
NEWS-OS4.*(4.3BSD)

以上です。
興味のある方は使ってみてください。
使用してみた上での感想、アドバイス、稼動OSの情報、バグレポート等は大歓迎です。
(バグはまだまだ含まれていると思われます:-)
メールの場合は hirayama@tsubasa.com、VYH02642@niftyserve.or.jp 
(なるべく前者)にお願いします。
Technical Details
Message-ID: <INETNEWS-1-4-11.00769@niftyserve.or.jp>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: fa2ca,ba2aa834a7998e1e,start
X-Google-Attributes: gidfa2ca,public
From: "平山 唯樹 "
Subject: Atelier Stream
Date: 1996/05/08
Message-ID: <INETNEWS-1-4-11.00769@niftyserve.or.jp>
X-Deja-AN: 153716066
content-type: text/plain; charset=iso-2022-jp
mime-version: 1.0
newsgroups: fj.lang.postscript