🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.pascal
Article #260

Re: Huppy is pascal compiler?

#260
From: Takayoshi Tamura
Date: Mon, 20 Jan 1997 00:00
54 lines
2546 bytes
お世話になっている、大愚@富山県立大です。

 fj.lang.pascal の
 <5bqi69$5if@doc.dpc.ehime-u.ac.jp> の記事において
 okahisa@cs.ehime-u.ac.jp{さまっ,私}は書きました。

> 岡久@愛媛大学です。
> 
> <5bogpq$2du@ns.src.ricoh.co.jp>の記事において
> ohta@src.ricoh.co.jpさんは書きました。
> >> 処理系ではなくてOSの仕事ではないでしょうか。
> 
>   すいません。拡張 Pascal の話と混同してしまって
> ました。標準 Pascal に準拠した処理系のはずだから
> 処理系の外(OS)の仕事ですね。こういう場合、何依存
> というのが普通なんでしょう?

ohta@ricohさんの記事は私の大学に届いていない(どうやら
どっかで落ちたらしい)のですが、確かにOSの仕事ですね。
まあ、見直すと、私自身間違った質問をしていました。

で、改めて質問しますが、現在私がTP6で作成している
プログラムは、実行後に出力するファイルを聞いてくる
ような手続きを内部に持っています。
このような内部で局所的にファイルを作成し、これに
書き込み、これを閉じるようなプログラムは、標準
パスカルで作成することが出来るのでしょうか?

よろしくお願いします。

以下、参考例。
program kakikomi;

var
  FILENAME : TEXT;
  FILEvar  : FILE;
  i        : INT;

begin
  readln( i );
  if i <> HOGEHOGE then begin
    readln( FILENAME );
    FILENAMEのファイルをopen;
    assign( FILENAME , FILEvar );
    writeln( FILEvar , "HOGEHOGE2" );
    FILENAMEのファイルをclose;
  end;
end.
        Go! Go! to WIN !!         み 田村”大愚”貴良:Tamura"D"Takayoshi 
  T.マキネン & I.ホルデリート  ち 富山県立大学 機械システム工学科      
  with  MITUBISHI LANCER evo.III  る E-mail: daigu@cim.pu-toyama.ac.jp    
 みちる みちる みちる みちる みちる みちる みちる みちる みちる みちる みちる 
                                            まだ、壊れてないからねぇ~~(:P
Technical Details
Message-ID: <5c09r4$mko@news1.pu-toyama.ac.jp>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <5bl62g$kqa@news1.pu-toyama.ac.jp>

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: ff90a,b0cceecf25184b5a
X-Google-Attributes: gidff90a,public
From: c11045@pu-toyama.ac.jp (Takayoshi Tamura)
Subject: Re: Huppy is pascal compiler?
Date: 1997/01/20
Message-ID: <5c09r4$mko@news1.pu-toyama.ac.jp>
X-Deja-AN: 211243970
references: <5bl62g$kqa@news1.pu-toyama.ac.jp>
content-type: text/plain; charset=ISO-2022-JP
organization: Toyama Prefectural University
mime-version: 1.0
newsgroups: fj.lang.pascal