Newsgroups: fj.lang.misc
Path: galaxy.trc.rwcp.or.jp!sparky!uunet!stanford.edu!sun-barr!sh.wide!wnoc-tyo-news!virgil!uecgw!suzuki
From: suzuki@alp0.cs.uec.ac.jp (Suzuki Takuzi)
Subject: Re: [Pascal] Pascal for education (Re: Pointer)
In-Reply-To: wd@kurims.kyoto-u.ac.jp's message of Thu, 17 Dec 1992 11:58:08 GMT
Message-ID: <SUZUKI.92Dec18140313@alp0.cs.uec.ac.jp>
Followup-To: fj.lang.misc
Sender: usenet@uecgw.cs.uec.ac.jp
Nntp-Posting-Host: kmlab-gw.cs.uec.ac.jp
Organization: Dept. of Comput. Sci. and Info. Math., University of
	Electro-Communications.
References: <TOYODA.92Dec7160918@KMK017.usetu1.uchu.komukai.toshiba.co.jp>
	<ZIC.92Dec8192933@tcin0.tci.toshiba.CO.JP>
	<WD.92Dec15193306@hakobe.kurims.kyoto-u.ac.jp>
	<SUZUKI.92Dec16140658@alp0.cs.uec.ac.jp>
	<WD.92Dec16230601@chobi.kmc.kyoto-u.ac.jp>
	<SUZUKI.92Dec17141428@alp0.cs.uec.ac.jp>
	<WD.92Dec17205808@hakobe.kurims.kyoto-u.ac.jp>
Distribution: fj
Date: Fri, 18 Dec 1992 05:03:13 GMT
Lines: 104
Xref: galaxy.trc.rwcp.or.jp fj.lang.misc:602
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.misc&nb=602&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

  $BNkLZ!w#U#E#C$G$9!%(BPascal $B$NOC$O$3$l$GBG$A;_$a$F!$5WLn$5$s$NOCBj$N(B
$BJ}$K0\$C$?J}$,7z@_E*$G$9$M!%$b$&>/$7$@$1!%(B

In article <WD.92Dec17205808@hakobe.kurims.kyoto-u.ac.jp> wd@kurims.kyoto-u.ac.jp (Kamo Hiroyasu) writes:

 | >  $B!VJ8;z$d?t$N%l%Y%k!W$N<!$H$$$&$H!$$?$H$($PAk7O$J$I$rDL$7$F$NF~=PNO(B
 | >$B$J$I$G$7$g$&$+!)(B
 |  $B$$$(!"$=$3$^$G?J$`I,MW$O$"$j$^$;$s!#$H$j$"$($:!"J8;zNs=hM}$H%U%!%$%k(B
 |$BF~=PNO$,$G$-$k$3$H$,5a$a$i$l$k$H;W$$$^$9!#6qBNE*$K$O!"(B/etc/passwd $B$r8+(B
 |$B$F%f!<%6L>$+$i$=$N?M$N%f!<%6(BID$BHV9f$r5a$a$k$0$i$$$N$3$H$O$G$-$F$[$7$$$H(B
 |$B;W$$$^$9!#$b$A$m$s!"(BPascal $B$G$b$G$-$^$9$,!"=i?4<T$K$OJQ$KJ#;($K$J$C$F(B
 |$B$7$^$$$^$9$+$i!D!#(B

  $BJ8;zNs=hM}$K$D$$$F$O$3$s$J$b$N$r$D$/$C$F;H$C$F$*$j$^$9!%(B

{An implementation of STRINGmodule, 1ed., 1989-06-09.
Kobayasi Laboratory, Department of Computer Science and
Information Mathematics, The University of Electro-Communications.
Filename: STRINGmodule.p.i                [19890216-0609 kob+suz]   }

{public part}
type      STRING1=packed array[1..1] of char;
function  STRctos
           (    c:char):STRING1;                                      forward;
function  STRlength
           (    s:packed array[l..h:integer]of char):integer;         forward;
procedure STRfill
           (    c:char;
            var s:packed array[l..h:integer]of char);                 forward;
procedure STRcopy
           (    s:packed array[ls..hs:integer]of char;
                i:integer;
                n:integer;
            var t:packed array[lt..ht:integer]of char;
                j:integer);                                           forward;
procedure STRextract
           (    s:packed array[ls..hs:integer]of char;
                i:integer;
                n:integer;
            var t:packed array[lt..ht:integer]of char);               forward;
procedure STRconcat
           (    s:packed array[ls..hs:integer]of char;
                n:integer;
                t:packed array[lt..ht:integer]of char;
            var u:packed array[lu..hu:integer]of char);               forward;
procedure STRreadf
           (var f:text;
            var s:packed array[l..h:integer]of char);                 forward;
procedure STRread
           (var s:packed array[l..h:integer]of char);                 forward;
procedure STRwritef
           (var f:text;
            var s:packed array[l..h:integer]of char);                 forward;
procedure STRwrite
           (var s:packed array[l..h:integer]of char);                 forward;
function  STReq
           (    s:packed array[ls..hs:integer]of char;
                t:packed array[lt..ht:integer]of char):Boolean;       forward;
function  STRgt
           (    s:packed array[ls..hs:integer]of char;
                t:packed array[lt..ht:integer]of char):Boolean;       forward;
function  STRlt
           (    s:packed array[ls..hs:integer]of char;
                t:packed array[lt..ht:integer]of char):Boolean;       forward;
type      STRcset=set of char;
function  STRfindchar
           (    s:packed array[l..h:integer]of char;
            var i:integer;
               cs:STRcset):Boolean;                                   forward;
function  STRfind
           (    s:packed array[ls..hs:integer]of char;
            var i:integer;
                p:packed array[lp..hp:integer]of char):Boolean;       forward;
procedure STRgetword
           (    s:packed array[ls..hs:integer]of char;
            var i:integer;
            var t:packed array[lt..ht:integer]of char);               forward;
function  STRgetint
           (    s:packed array[l..h:integer]of char;
            var i:integer):integer;                                   forward;
procedure STRitos
           (    n:integer;
            var s:packed array[l..h:integer]of char);                 forward;
procedure STRtime
           (var s:packed array[l..h:integer]of char);                 forward;
procedure STRdate
           (var s:packed array[l..h:integer]of char);                 forward;

{private part}

$B!JN,!K(B

 |  $B<B:]$K(B Pascal $B$G%W%m%0%i%_%s%01i=,$r9T$J$C$F!"<!$NFsE@$O$H$F$b:$$j$^(B
 |$B$7$?!#(B
 | 1. $B4X?t$,%l%3!<%I$rJV$;$J$$!#(B

  $B$($C!$$H;W$C$F(B ISO Pascal $B$N5,3J=q$r$_$?$i!$$d$d!$$7$^$C$?!$4*0c$$!%(B
ISO $B$G2?$G$bJV$;$k$h$&$KD>$C$F$k$H;W$C$F$^$7$?!%$3$j$c$$$+$s!$(BANSI C 
$B$NJ}$,$$$$!%(B

$B!t$&$o!<!$%W%m%0%i%`=q49$($J$-$c!%(B

--
$BNkLZBn<#(B@$B>pJs9)3X(BD3.$BEEDLBg1!(B (suzuki@alp0.cs.uec.ac.jp)
