76 lines
1.7 KiB
C
76 lines
1.7 KiB
C
|
/*
|
||
|
|
P_PRNDIR.C
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include <plib.h>
|
||
|
|
|
||
|
|
LOCAL_D VOID *dcb=NULL;
|
||
|
|
|
||
|
|
LOCAL_C VOID panic(TEXT *msg, INT errno)
|
||
|
|
{
|
||
|
|
TEXT bb[E_MAX_ERROR_TEXT_SIZE];
|
||
|
|
|
||
|
|
p_close(dcb); dcb=NULL;
|
||
|
|
p_errs(&bb[0],errno);
|
||
|
|
p_printf("%s: %s",msg,&bb[0]);
|
||
|
|
p_leave(errno);
|
||
|
|
}
|
||
|
|
|
||
|
|
LOCAL_C VOID PrintDirLine(TEXT *name, P_INFO *pinfo)
|
||
|
|
{
|
||
|
|
P_DAYSEC ds;
|
||
|
|
P_DATE dt;
|
||
|
|
TEXT *p,b[40];
|
||
|
|
|
||
|
|
p=&b[0];
|
||
|
|
if (pinfo->status&P_FAVOLUME)
|
||
|
|
p=p_scpy(p,"Vol,");
|
||
|
|
if (pinfo->status&P_FADIR)
|
||
|
|
p=p_scpy(p,"Dir,");
|
||
|
|
if (pinfo->status&P_FAMOD)
|
||
|
|
p=p_scpy(p,"Mod,");
|
||
|
|
if (!(pinfo->status&P_FAWRITE))
|
||
|
|
p=p_scpy(p,"Read,");
|
||
|
|
if (pinfo->status&P_FASYSTEM)
|
||
|
|
p=p_scpy(p,"Sys,");
|
||
|
|
if (pinfo->status&P_FAHIDDEN)
|
||
|
|
p=p_scpy(p,"Hid,");
|
||
|
|
if (*(p-1)==',')
|
||
|
|
*--p=0;
|
||
|
|
p_sttods(&pinfo->modst,&ds);
|
||
|
|
p_dstodt(&ds,&dt);
|
||
|
|
p_printf("%- 12s %8lu %02u-%02u-%02u %02u:%02u %s",
|
||
|
|
name,pinfo->size,dt.day+1,dt.month+1,dt.year,dt.hour,dt.minute,&b[0]);
|
||
|
|
}
|
||
|
|
|
||
|
|
LOCAL_C INT CDECL PrintDirList(TEXT *dir)
|
||
|
|
{
|
||
|
|
INT ret,NoFiles;
|
||
|
|
P_INFO info;
|
||
|
|
TEXT name[P_FNAMESIZE];
|
||
|
|
|
||
|
|
if ((ret=p_open(&dcb,dir,P_FDIR))!=0)
|
||
|
|
panic("Failed to open directory file",ret);
|
||
|
|
NoFiles=TRUE;
|
||
|
|
while (!(ret=p_iow(dcb,P_FREAD,&name[0],&info)))
|
||
|
|
{
|
||
|
|
NoFiles=FALSE;
|
||
|
|
PrintDirLine(&name[0],&info);
|
||
|
|
}
|
||
|
|
p_close(dcb); dcb=NULL;
|
||
|
|
if (ret!=E_FILE_EOF)
|
||
|
|
panic("Failed to read directory",ret);
|
||
|
|
if (NoFiles)
|
||
|
|
p_printf("No files found");
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
|
||
|
|
GLDEF_C INT main(VOID)
|
||
|
|
{
|
||
|
|
TEXT name[P_FNAMESIZE];
|
||
|
|
|
||
|
|
while (p_getl(">",&name[0],P_FNAMESIZE))
|
||
|
|
p_enter((VOID *)PrintDirList,&name[0]);
|
||
|
|
return(0);
|
||
|
|
}
|