371 |
else return 0; |
else return 0; |
372 |
} |
} |
373 |
|
|
374 |
void |
LFD(Ltruename)(void) |
|
Ltruename(void) |
|
375 |
{ |
{ |
376 |
check_arg(1); |
check_arg(1); |
377 |
check_type_or_pathname_string_symbol_stream(&vs_base[0]); |
check_type_or_pathname_string_symbol_stream(&vs_base[0]); |
378 |
vs_base[0] = truename(vs_base[0]); |
vs_base[0] = truename(vs_base[0]); |
379 |
} |
} |
380 |
|
|
381 |
void |
LFD(Lrename_file)(void) |
|
Lrename_file(void) |
|
382 |
{ |
{ |
383 |
char filename[MAXPATHLEN]; |
char filename[MAXPATHLEN]; |
384 |
char newfilename[MAXPATHLEN]; |
char newfilename[MAXPATHLEN]; |
442 |
path = Ct; |
path = Ct; |
443 |
RETURN1(path); |
RETURN1(path); |
444 |
} |
} |
445 |
|
#ifdef STATIC_FUNCTION_POINTERS |
446 |
|
object |
447 |
|
fLdelete_file(object path) { |
448 |
|
return FFN(fLdelete_file)(path); |
449 |
|
} |
450 |
|
#endif |
451 |
|
|
452 |
void |
LFD(Lprobe_file)(void) |
|
Lprobe_file(void) |
|
453 |
{ |
{ |
454 |
check_arg(1); |
check_arg(1); |
455 |
|
|
460 |
vs_base[0] = Cnil; |
vs_base[0] = Cnil; |
461 |
} |
} |
462 |
|
|
463 |
void |
LFD(Lfile_write_date)(void) |
|
Lfile_write_date(void) |
|
464 |
{ |
{ |
465 |
char filename[MAXPATHLEN]; |
char filename[MAXPATHLEN]; |
466 |
struct stat filestatus; |
struct stat filestatus; |
472 |
vs_base[0] = unix_time_to_universal_time(filestatus.st_mtime); |
vs_base[0] = unix_time_to_universal_time(filestatus.st_mtime); |
473 |
} |
} |
474 |
|
|
475 |
void |
LFD(Lfile_author)(void) |
|
Lfile_author(void) |
|
476 |
{ |
{ |
477 |
#ifndef NO_PWD_H |
#ifndef NO_PWD_H |
478 |
char filename[MAXPATHLEN]; |
char filename[MAXPATHLEN]; |
495 |
} |
} |
496 |
|
|
497 |
static void |
static void |
498 |
Luser_homedir_pathname(void) |
FFN(Luser_homedir_pathname)(void) |
499 |
{ |
{ |
500 |
#ifndef NO_PWD_H |
#ifndef NO_PWD_H |
501 |
struct passwd *pwent; |
struct passwd *pwent; |
525 |
|
|
526 |
|
|
527 |
#ifdef BSD |
#ifdef BSD |
528 |
void |
LFD(Ldirectory)(void) |
|
Ldirectory(void) |
|
529 |
{ |
{ |
530 |
char filename[MAXPATHLEN]; |
char filename[MAXPATHLEN]; |
531 |
char command[MAXPATHLEN * 2]; |
char command[MAXPATHLEN * 2]; |
577 |
|
|
578 |
|
|
579 |
#ifdef ATT |
#ifdef ATT |
580 |
void |
LFD(Ldirectory)() |
|
Ldirectory() |
|
581 |
{ |
{ |
582 |
object name, type; |
object name, type; |
583 |
char filename[MAXPATHLEN]; |
char filename[MAXPATHLEN]; |
641 |
|
|
642 |
#ifdef E15 |
#ifdef E15 |
643 |
#include <sys/dir.h> |
#include <sys/dir.h> |
644 |
void |
|
645 |
Ldirectory() |
LFD(Ldirectory)() |
646 |
{ |
{ |
647 |
object name, type; |
object name, type; |
648 |
char filename[MAXPATHLEN]; |
char filename[MAXPATHLEN]; |
756 |
#endif |
#endif |
757 |
|
|
758 |
static void |
static void |
759 |
siLchdir(void) |
FFN(siLchdir)(void) |
760 |
{ |
{ |
761 |
char filename[MAXPATHLEN]; |
char filename[MAXPATHLEN]; |
762 |
|
|