🚀 go-pugleaf

$@9-Bg$N6yC+$H$$$$$^$9(J. 

$@855-;v$O(J fj.lang.c $@$H$$$&(J$@$H$3$m$K$"$j$^$7$?(J. Followup-To: fj.sys.mac 
$@$J$N$K(J, $@$3$C$A$K$O2?8N$+Ej9F$5$l$F$$$^$;$s$G$7$?$h$M!)(J

In article <IWAI.93Mar2204721@sp5.ei.sanken.osaka-u.ac.jp>
iwai@ei.sanken.osaka-u.ac.jp (Kenichi IWAI) writes:

  > $@4d0f!w:eBg(J $@$H?=$7$^$9(J. $@$3$N(Jng$@$K$O=iEj9F$G$9(J. 
  > 
  > $@4JC1$J$N$+$bCN$l$^$;$s$,(J, Macintosh$@>e$G(JTHINK C ver5.0$@$r;H$C$F(J, 
  > $@FCDj$N(Jdirectory$@$NCf$N%U%!%$%kL>$r%j%9%H%"%C%W$9$k$K$O(J, $@$I$&$7$?$i(J
  > $@$$$$$N$G$7$g$&$+(J. 
  > 
  > $@6qBNE*$K?=$7>e$2$^$9$H(J, $@0l$D$N%U%!%$%kL>$r0z?t$K;}$D4X?t$r:n@.$7$F$*(J$@$j(J, 
  > ($@2>$K(J, int foo(char* filename)$@$H$7$^$9(J. )
  > $@$3$N(Jfilename$@$N$H$3$m$K(J, $@FCDj$N(Jdirectory$@Fb$NA4%U(J$@%!%$%kL>$r=gHV$KF~$l$F(J
  > $@$$$-$?$$$N$G$9(J. 
  > 
  > UNIX$@$J$I$G$9$H(J, $@#K!u#R$NK\$K$b$"$k$h$&$K$=$N<jCJ(J$@$,$"$k$N$G$9$,(J, 
  > MAC$@$N>l9g$K$J$k$H%7%9%F%`%3!<%k$,0c$&$N$G(J, $@$I$&$b$o$+$j$^$;$s(J. 
  > 
  > $@@bL@ITB-(J$@$+$bCN$l$^$;$s$,(J, $@$I$&$+$h$m$7$/$*4j$$$7$^$9(J. 
  > --
  > 
  > 	 | /      / |  /  / /|   /
  > 	 |/      /  | /| / /-|  /      $@4d0f7{0l!w9B8}8&(J.$@;:8&(J.$@Bg:eBg3X(J
  > 	 | \ $@!|(J /   |/ |/ /  | /       iwai@ei.sanken.osaka-u.ac.jp

File Manager $@$N(J PBGetCatInfo $@$r7+$jJV$78F$S=P$;$P$G$-$^$9(J. 

$@%5%s%W%k%3!<%I$r5-(J$@;v$N:G8e$K$D$1$F$*$-$^$9!%(JANSI $@$H(J MacTraps $@$r%W%m%8%'(J
$@%/%H%U%!%$%k$K(J Add $@$7$F$+$i<B9T$7$F$_$F2<$5$$!%(J

ShowCatalog $@$KM?$($k!VFCDj$N%U%)%k%@!<L>!W$O(J 255 $@J8;z0J2<$N(J c $@J8;zNs$G(J
$@$9(J. $@%U%)%k%@!<$N6h@Z$j$K$O(J":" $@$rMQ$$$F2<$5$$!%(J

$@!JNc!K(J
 "HD80:C Program:PBGetCatInfo:"  (full path $@$NNc(J)
 ""	                         (default folder)
 ":aho:"                         (default folder $@$K4^$^$l$k(J aho )

255 $@J8;z0J>e(J$@$N%Q%9L>$rM?$($?$$>l9g$O(J, GetDirID $@$r=q$-49$($kI,MW$,$"$j(J
$@$^$9(J. 

default folder $@$@$1$G$$$$$J$i(J $@8eH>$N(J GetDirID $@$NItJ,$OI,MW$"$j$^$;$s!%(J
ShowCatalog $@$N(J
	cInfo.hFileInfo.ioDirID=dirID;
$@$r(J
	cInfo.hFileInfo.ioDirID=0;
$@$K$9$l$P$$$$$G$9(J. 

$@$b$C$H9b5i$J$d$jJ}$r$4B8CN$NJ}$O@'HsEj9F$*4j$$$7$^$9!%(J

$@!t(J ANSI $@%i%$%V(J$@%i%j$@$1$G$O$G$-$J$$$N$G$7$g$&$+!)(J $@;d$O(J THINK C $@$N(J ANSI 
$@!t(J $@%i%$%V%i%j$OKX$s$I;H$C$F$$$J$$$N$G(J...

$@$7(J$@$+$7(J, File Manager $@$H$$$&$N$O(J Volume Reference Number $@$d$i(J Working
Directory ID $@$d$i(J Directory ID $@$d$i(J$@$4$A$c$4$A$c$H$"$C$F(J, $@$o$+$j$K$/$$(J
$@$G$9$M!%$3$l$i$r$9$C$-$j$H2r@b$7$?$b$N$,$"$l$P65$($F2<$5$$(J (_._)


/* $@FCDj$N%U%)%k%@!<$NCf?H$rA4$FI=<($9$k(J */

#include<stdio.h>
#include<pascal.h>
    
OSErr ShowCatalog(char *name);
OSErr GetDirID(char *name, long *dirID);

main(){
    ShowCatalog("populous:Mathematics, Data Analysis");
}

OSErr ShowCatalog(char *name){
    Str255 fName;
    int index;
    long dirID;
    OSErr err;
    CInfoPBRec cInfo;

    if( GetDirID(name,&dirID)!=noErr )
	return err;
    
    index=1;
    do {
	cInfo.hFileInfo.ioVRefNum=0;
	cInfo.hFileInfo.ioDirID=dirID;
	cInfo.hFileInfo.ioNamePtr=fName;
	cInfo.hFileInfo.ioFDirIndex=index++;
	err=PBGetCatInfo(&cInfo,false);
	if(err==noErr){
	    if (cInfo.hFileInfo.ioFlAttrib & 0x10)	    /* folder $@$N>l9g(J */
		printf("Folder: %s\n",PtoCstr(cInfo.hFileInfo.ioNamePtr));
	    else					    /* file $@$N>l9g(J */
		printf("File:   %s\n",PtoCstr(cInfo.hFileInfo.ioNamePtr));
	}
	else if(err==fnfErr)
	    return noErr;
	else
	    return err;
    } while (true);
}

/* path $@L>$+$i(J dirID $@$X$NJQ49(J */
OSErr GetDirID(char *name,long *dirID){
    int i;
    Str255 vName;
    CInfoPBRec cInfo;
    OSErr err;
    
    /* pascal $@J8;zNs$H$7$F%3%T!<(J */
    for(i=0;name[i];++i)
	vName[i+1]=name[i];
    vName[0]=i;
    
    cInfo.hFileInfo.ioNamePtr = vName;
    cInfo.hFileInfo.ioVRefNum = 0;
    cInfo.hFileInfo.ioFDirIndex = 0;
    cInfo.dirInfo.ioDrDirID = 0;
    
    err = PBGetCatInfo(&cInfo, false);
    *dirID=cInfo.dirInfo.ioDrDirID;
    return err;
}
--
---
----- $@9-EgBg3X(J  $@Am9g2J3XIt(J  $@6yC+9'MN(J (sumi@cuby.mis.hiroshima-u.ac.jp)