🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

3 total messages Started by Takayoshi Tamura Thu, 16 Jan 1997 00:00
Huppy is pascal compiler?
#256
Author: Takayoshi Tamura
Date: Thu, 16 Jan 1997 00:00
26 lines
1431 bytes

大愚@富山県大です。

Vector DesignのPACK10Kから「Huppy」というパスカル
インタプリンタ(^^)を解凍して、遊んでいます。

でも、このインタプリンタには仕様上「局所ファイルが使えない」
という問題があります。
で、気になったのですが、標準パスカルの
program   HOGEHOGE(input,ouput)
の入力/出力にファイルって指定できたのでしょうか?

拡張(^^)パスカルのTPから入った人間なので、
よろしければお教え下さい。

追伸
戸田さん、ごめんなさい。
TMT PASCALですが、結局動かない理由がわかりませんでした。
US modeでもコンパイルまではできるのですが、実行できず、
フリーズ(ALT + Ctrl + DELもできない)してしまいます。


        Go! Go! to WIN !!        *Tamura"D"Takayoshi,  
  T.マキネン & I.ホルデリート *Mech Eng Dept, Toyama Prif Univ
  with  MITUBISHI LANCER evo.III *E-mail: daigu@cim.pu-toyama.ac.jp    
Re: Huppy is pascal compiler?
#257
Author: okahisa
Date: Sat, 18 Jan 1997 00:00
15 lines
845 bytes
$B2,5W!w0&I2Bg3X$G$9!#(B

<5bogpq$2du@ns.src.ricoh.co.jp>$B$N5-;v$K$*$$$F(B
ohta@src.ricoh.co.jp$B$5$s$O=q$-$^$7$?!#(B

>> $B=hM}7O$G$O$J$/$F(BOS$B$N;E;v$G$O$J$$$G$7$g$&$+!#(B

  $B$9$$$^$;$s!#3HD%(B Pascal $B$NOC$H:.F1$7$F$7$^$C$F(B
$B$^$7$?!#I8=`(B Pascal $B$K=`5r$7$?=hM}7O$N$O$:$@$+$i(B
$B=hM}7O$N30(B(OS)$B$N;E;v$G$9$M!#$3$&$$$&>l9g!"2?0MB8(B
$B$H$$$&$N$,IaDL$J$s$G$7$g$&(B?

--
Email: okahisa@cs.ehime-u.ac.jp
Re: Huppy is pascal compiler?
#260
Author: 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
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads