4e23975970
git-svn-id: svn://kolibrios.org@6857 a494cfbc-eb01-0410-851d-a64ba20cac60
99 lines
1.6 KiB
C
99 lines
1.6 KiB
C
|
|
int cmd_more(char file[])
|
|
{
|
|
|
|
kol_struct70 k70;
|
|
kol_struct_BDVK bdvk;
|
|
unsigned result, i;
|
|
unsigned long long filesize, pos;
|
|
char buf[81]; //¡ãä¥à
|
|
char temp[FILENAME_MAX];
|
|
unsigned flags;
|
|
|
|
if (strlen(file)<1)
|
|
{
|
|
#if LANG_ENG
|
|
printf (" more <filename>\n\r");
|
|
#elif LANG_RUS
|
|
printf (" more <¨¬ï ä ©« >\n\r");
|
|
#endif
|
|
return TRUE;
|
|
}
|
|
|
|
if ( '/' == file[0])
|
|
{
|
|
strcpy(temp, file);
|
|
|
|
if ( !file_check(temp) )
|
|
{
|
|
file_not_found(file);
|
|
return FALSE;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
strcpy(temp, cur_dir);
|
|
if (temp[strlen(temp)-1] != '/')
|
|
strcat(temp, "/"); // add slash
|
|
strcat(temp, file);
|
|
|
|
if ( !file_check(temp) )
|
|
{
|
|
file_not_found(file);
|
|
return FALSE;
|
|
}
|
|
}
|
|
|
|
k70.p00 = 5;
|
|
k70.p04 = k70.p12 = 0;
|
|
//k70.p08 = 0;
|
|
k70.p16 = (unsigned) &bdvk;
|
|
k70.p20 = 0;
|
|
k70.p21 = temp;
|
|
|
|
result = kol_file_70(&k70); // ¯®«ãç ¥¬ ¨ä®à¬ æ¨î ® ä ©«¥
|
|
if ( 0 != result )
|
|
return FALSE;
|
|
|
|
filesize = bdvk.p32; // ¯®«ãç ¥¬ à §¬¥à ä ©«
|
|
|
|
buf[80]=0;
|
|
flags = con_get_flags();
|
|
|
|
for (pos=0;pos<filesize;pos+=80)
|
|
{
|
|
|
|
memset(buf, 0, 80);
|
|
|
|
k70.p00 = 0;
|
|
k70.p04 = pos;
|
|
// k70.p08 = 0; // bug for over 4Gb files, but "more" is unusable there
|
|
k70.p12 = 80;
|
|
k70.p16 = (unsigned) buf;
|
|
k70.p20 = 0;
|
|
k70.p21 = temp;
|
|
|
|
result = kol_file_70(&k70); // ç⥨¥ 80 ᨬ¢®«®¢
|
|
for (i=0; i<80; i++)
|
|
{
|
|
|
|
if (27 == buf[i])
|
|
con_set_flags(flags|0x100);
|
|
else con_set_flags(flags);
|
|
|
|
printf ("%c", buf[i]);
|
|
}
|
|
if ( 0 != result )
|
|
{
|
|
con_set_flags(flags);
|
|
printf ("\n\r");
|
|
return TRUE;
|
|
}
|
|
|
|
}
|
|
con_set_flags(flags);
|
|
printf ("\n\r");
|
|
return TRUE;
|
|
}
|
|
|