From: suzuki@alp0.cs.uec.ac.jp (Suzuki Takuzi)
Subject: Re: [Pascal] Pascal for education (Re: Pointer)
Followup-To: fj.lang.misc
Organization: Dept. of Comput. Sci. and Info. Math., University of
	Electro-Communications.
	<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

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

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

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

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

{	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	}

$@!JN,!K(J

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

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

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

--
$@NkLZBn<#(J@$@>pJs9)3X(JD3.$@EEDLBg1!(J (suzuki@alp0.cs.uec.ac.jp)