2 Routines for parsing output from the 'ls' command.
4 Copyright (C) 1988-2016
5 Free Software Foundation, Inc.
7 Copyright (C) 1995, 1996 Miguel de Icaza
10 Miguel de Icaza, 1995, 1996
11 Slava Zanko <slavazanko@gmail.com>, 2011
13 This file is part of the Midnight Commander.
15 The Midnight Commander is free software: you can redistribute it
16 and/or modify it under the terms of the GNU General Public License as
17 published by the Free Software Foundation, either version 3 of the License,
18 or (at your option) any later version.
20 The Midnight Commander is distributed in the hope that it will be useful,
21 but WITHOUT ANY WARRANTY; without even the implied warranty of
22 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
23 GNU General Public License for more details.
25 You should have received a copy of the GNU General Public License
26 along with this program. If not, see <http://www.gnu.org/licenses/>.
31 * \brief Source: Utilities for VFS modules
32 * \author Miguel de Icaza
42 #include "lib/global.h"
43 #include "lib/unixcompat.h" /* makedev */
44 #include "lib/widget.h" /* message() */
48 /*** global variables ****************************************************************************/
50 /*** file scope macro definitions ****************************************************************/
52 /* Parsing code is used by ftpfs, fish and extfs */
55 /*** file scope type declarations ****************************************************************/
57 /*** file scope variables ************************************************************************/
59 static char *columns
[MAXCOLS
]; /* Points to the string in column n */
60 static int column_ptr
[MAXCOLS
]; /* Index from 0 to the starting positions of the columns */
61 static size_t vfs_parce_ls_final_num_spaces
= 0;
63 /*** file scope functions ************************************************************************/
64 /* --------------------------------------------------------------------------------------------- */
69 char *column
= columns
[idx
];
71 if (!column
|| column
[0] < '0' || column
[0] > '9')
77 /* --------------------------------------------------------------------------------------------- */
78 /* Return 1 for MM-DD-YY and MM-DD-YYYY */
81 is_dos_date (const char *str
)
89 if (len
!= 8 && len
!= 10)
95 if (!strchr ("\\-/", (int) str
[2]))
101 /* --------------------------------------------------------------------------------------------- */
104 is_week (const char *str
, struct tm
*tim
)
106 static const char *week
= "SunMonTueWedThuFriSat";
112 pos
= strstr (week
, str
);
116 tim
->tm_wday
= (pos
- week
) / 3;
122 /* --------------------------------------------------------------------------------------------- */
125 is_month (const char *str
, struct tm
*tim
)
127 static const char *month
= "JanFebMarAprMayJunJulAugSepOctNovDec";
133 pos
= strstr (month
, str
);
137 tim
->tm_mon
= (pos
- month
) / 3;
143 /* --------------------------------------------------------------------------------------------- */
145 * Check for possible locale's abbreviated month name (Jan..Dec).
146 * Any 3 bytes long string without digit, control and punctuation characters.
147 * isalpha() is locale specific, so it cannot be used if current
148 * locale is "C" and ftp server use Cyrillic.
149 * NB: It is assumed there are no whitespaces in month.
152 is_localized_month (const char *month
)
159 while ((i
< 3) && *month
&& !isdigit ((unsigned char) *month
)
160 && !iscntrl ((unsigned char) *month
) && !ispunct ((unsigned char) *month
))
165 return ((i
== 3) && (*month
== 0));
168 /* --------------------------------------------------------------------------------------------- */
171 is_time (const char *str
, struct tm
*tim
)
178 p
= strchr (str
, ':');
179 p2
= strrchr (str
, ':');
180 if (p
!= NULL
&& p2
!= NULL
)
184 if (sscanf (str
, "%2d:%2d:%2d", &tim
->tm_hour
, &tim
->tm_min
, &tim
->tm_sec
) != 3)
189 if (sscanf (str
, "%2d:%2d", &tim
->tm_hour
, &tim
->tm_min
) != 2)
199 /* --------------------------------------------------------------------------------------------- */
202 is_year (char *str
, struct tm
*tim
)
209 if (strchr (str
, ':'))
212 if (strlen (str
) != 4)
215 /* cppcheck-suppress invalidscanf */
216 if (sscanf (str
, "%ld", &year
) != 1)
219 if (year
< 1900 || year
> 3000)
222 tim
->tm_year
= (int) (year
- 1900);
227 /* --------------------------------------------------------------------------------------------- */
228 /*** public functions ****************************************************************************/
229 /* --------------------------------------------------------------------------------------------- */
232 vfs_parse_filetype (const char *s
, size_t * ret_skipped
, mode_t
* ret_type
)
259 #ifdef S_IFDOOR /* Solaris door */
271 #ifdef S_IFNAM /* Special named files */
280 case 'm': /* Don't know what these are :-) */
294 /* --------------------------------------------------------------------------------------------- */
297 vfs_parse_fileperms (const char *s
, size_t * ret_skipped
, mode_t
* ret_perms
)
333 perms
|= S_IXUSR
| S_ISUID
;
370 break; /* found on Solaris */
372 perms
|= S_IXGRP
| S_ISGID
;
408 perms
|= S_IXOTH
| S_ISVTX
;
417 { /* ACLs on Solaris, HP-UX and others */
421 *ret_skipped
= p
- s
;
426 /* --------------------------------------------------------------------------------------------- */
429 vfs_parse_filemode (const char *s
, size_t * ret_skipped
, mode_t
* ret_mode
)
437 if (!vfs_parse_filetype (p
, &skipped
, &type
))
441 if (!vfs_parse_fileperms (p
, &skipped
, &perms
))
445 *ret_skipped
= p
- s
;
446 *ret_mode
= type
| perms
;
450 /* --------------------------------------------------------------------------------------------- */
453 vfs_parse_raw_filemode (const char *s
, size_t * ret_skipped
, mode_t
* ret_mode
)
456 mode_t remote_type
= 0, local_type
, perms
= 0;
461 while (*p
>= '0' && *p
<= '7')
471 while (*p
>= '0' && *p
<= '7')
474 remote_type
+= (*p
- '0');
482 $ perl -e 'use Fcntl ":mode";
483 my @modes = (S_IFDIR, S_IFBLK, S_IFCHR, S_IFLNK, S_IFREG);
484 foreach $t (@modes) { printf ("%o\n", $t); };'
485 TODO: S_IFDOOR, S_IFIFO, S_IFSOCK (if supported by os)
486 (see vfs_parse_filetype)
492 local_type
= S_IFCHR
;
495 local_type
= S_IFDIR
;
498 local_type
= S_IFBLK
;
501 local_type
= S_IFLNK
;
504 default: /* don't know what is it */
505 local_type
= S_IFREG
;
509 *ret_skipped
= p
- s
;
510 *ret_mode
= local_type
| perms
;
514 /* --------------------------------------------------------------------------------------------- */
515 /** This function parses from idx in the columns[] array */
518 vfs_parse_filedate (int idx
, time_t * t
)
524 int l10n
= 0; /* Locale's abbreviated month name */
526 struct tm
*local_time
;
528 /* Let's setup default time values */
529 current_time
= time (NULL
);
530 local_time
= localtime (¤t_time
);
531 tim
.tm_mday
= local_time
->tm_mday
;
532 tim
.tm_mon
= local_time
->tm_mon
;
533 tim
.tm_year
= local_time
->tm_year
;
538 tim
.tm_isdst
= -1; /* Let mktime() try to guess correct dst offset */
542 /* We eat weekday name in case of extfs */
543 if (is_week (p
, &tim
))
547 if (is_month (p
, &tim
))
549 /* And we expect, it followed by day number */
551 tim
.tm_mday
= (int) atol (columns
[idx
++]);
553 return 0; /* No day */
559 3 fields max or we'll see oddities with certain file names.
560 So both year and time is not allowed.
563 But in case of extfs we allow these date formats:
565 where Mon is Jan-Dec, DD, MM, YY two digit day, month, year,
566 YYYY four digit year, hh, mm, ss two digit hour, minute or second. */
568 /* Special case with MM-DD-YY or MM-DD-YYYY */
573 /* cppcheck-suppress invalidscanf */
574 if (sscanf (p
, "%2d-%2d-%d", &d
[0], &d
[1], &d
[2]) == 3)
576 /* Months are zero based */
597 return 0; /* sscanf failed */
601 /* Locale's abbreviated month name followed by day number */
602 if (is_localized_month (p
) && (is_num (idx
++)))
605 return 0; /* unsupported format */
609 /* Here we expect to find time or year */
610 if (is_num (idx
) && (is_time (columns
[idx
], &tim
) || (got_year
= is_year (columns
[idx
], &tim
))))
613 return 0; /* Neither time nor date */
616 * If the date is less than 6 months in the past, it is shown without year
617 * other dates in the past or future are shown with year but without time
618 * This does not check for years before 1900 ... I don't know, how
619 * to represent them at all
621 if (!got_year
&& local_time
->tm_mon
< 6
622 && local_time
->tm_mon
< tim
.tm_mon
&& tim
.tm_mon
- local_time
->tm_mon
>= 6)
627 if (l10n
|| (*t
< 0))
632 /* --------------------------------------------------------------------------------------------- */
635 vfs_split_text (char *p
)
640 memset (columns
, 0, sizeof (columns
));
642 for (numcols
= 0; *p
&& numcols
< MAXCOLS
; numcols
++)
644 while (*p
== ' ' || *p
== '\r' || *p
== '\n')
649 columns
[numcols
] = p
;
650 column_ptr
[numcols
] = p
- original
;
651 while (*p
&& *p
!= ' ' && *p
!= '\r' && *p
!= '\n')
657 /* --------------------------------------------------------------------------------------------- */
660 vfs_parse_ls_lga_init (void)
662 vfs_parce_ls_final_num_spaces
= 1;
665 /* --------------------------------------------------------------------------------------------- */
668 vfs_parse_ls_lga_get_final_spaces (void)
670 return vfs_parce_ls_final_num_spaces
;
673 /* --------------------------------------------------------------------------------------------- */
676 vfs_parse_ls_lga (const char *p
, struct stat
* s
, char **filename
, char **linkname
,
679 int idx
, idx2
, num_cols
;
683 const char *line
= p
;
686 if (strncmp (p
, "total", 5) == 0)
689 if (!vfs_parse_filetype (p
, &skipped
, &s
->st_mode
))
693 if (*p
== ' ') /* Notwell 4 */
697 if (strlen (p
) <= 8 || p
[8] != ']')
699 /* Should parse here the Notwell permissions :) */
700 if (S_ISDIR (s
->st_mode
))
701 s
->st_mode
|= (S_IRUSR
| S_IRGRP
| S_IROTH
| S_IWUSR
| S_IXUSR
| S_IXGRP
| S_IXOTH
);
703 s
->st_mode
|= (S_IRUSR
| S_IRGRP
| S_IROTH
| S_IWUSR
);
711 if (!vfs_parse_fileperms (p
, &lc_skipped
, &perms
))
717 p_copy
= g_strdup (p
);
718 num_cols
= vfs_split_text (p_copy
);
720 s
->st_nlink
= atol (columns
[0]);
721 if (s
->st_nlink
<= 0)
725 s
->st_uid
= vfs_finduid (columns
[1]);
727 s
->st_uid
= (uid_t
) atol (columns
[1]);
729 /* Mhm, the ls -lg did not produce a group field */
730 for (idx
= 3; idx
<= 5; idx
++)
731 if (is_month (columns
[idx
], NULL
) || is_week (columns
[idx
], NULL
)
732 || is_dos_date (columns
[idx
]) || is_localized_month (columns
[idx
]))
735 if (idx
== 6 || (idx
== 5 && !S_ISCHR (s
->st_mode
) && !S_ISBLK (s
->st_mode
)))
738 /* We don't have gid */
739 if (idx
== 3 || (idx
== 4 && (S_ISCHR (s
->st_mode
) || S_ISBLK (s
->st_mode
))))
743 /* We have gid field */
745 s
->st_gid
= (gid_t
) atol (columns
[2]);
747 s
->st_gid
= vfs_findgid (columns
[2]);
752 if (S_ISCHR (s
->st_mode
) || S_ISBLK (s
->st_mode
))
756 /* Corner case: there is no whitespace(s) between maj & min */
757 if (!is_num (idx2
) && idx2
== 2)
759 /* cppcheck-suppress invalidscanf */
760 if (!is_num (++idx2
) || sscanf (columns
[idx2
], " %d,%d", &maj
, &min
) != 2)
765 /* cppcheck-suppress invalidscanf */
766 if (!is_num (idx2
) || sscanf (columns
[idx2
], " %d,", &maj
) != 1)
769 /* cppcheck-suppress invalidscanf */
770 if (!is_num (++idx2
) || sscanf (columns
[idx2
], " %d", &min
) != 1)
773 #ifdef HAVE_STRUCT_STAT_ST_RDEV
774 s
->st_rdev
= makedev (maj
, min
);
781 /* Common file size */
785 s
->st_size
= (off_t
) g_ascii_strtoll (columns
[idx2
], NULL
, 10);
786 #ifdef HAVE_STRUCT_STAT_ST_RDEV
791 idx
= vfs_parse_filedate (idx
, &s
->st_mtime
);
794 /* Use resulting time value */
795 s
->st_atime
= s
->st_ctime
= s
->st_mtime
;
796 /* s->st_dev and s->st_ino must be initialized by vfs_s_new_inode () */
797 #ifdef HAVE_STRUCT_STAT_ST_BLKSIZE
800 #ifdef HAVE_STRUCT_STAT_ST_BLOCKS
801 s
->st_blocks
= (s
->st_size
+ 511) / 512;
804 if (num_spaces
!= NULL
)
806 *num_spaces
= column_ptr
[idx
] - column_ptr
[idx
- 1] - strlen (columns
[idx
- 1]);
807 if (DIR_IS_DOTDOT (columns
[idx
]))
808 vfs_parce_ls_final_num_spaces
= *num_spaces
;
811 for (i
= idx
+ 1, idx2
= 0; i
< num_cols
; i
++)
812 if (strcmp (columns
[i
], "->") == 0)
818 if (((S_ISLNK (s
->st_mode
) || (num_cols
== idx
+ 3 && s
->st_nlink
> 1))) /* Maybe a hardlink? (in extfs) */
824 *filename
= g_strndup (p
+ column_ptr
[idx
], column_ptr
[idx2
] - column_ptr
[idx
] - 1);
828 t
= g_strdup (p
+ column_ptr
[idx2
+ 1]);
834 /* Extract the filename from the string copy, not from the columns
835 * this way we have a chance of entering hidden directories like ". ."
840 * filename = g_strdup (columns [idx++]);
843 t
= g_strdup (p
+ column_ptr
[idx
]);
853 if ((--p2
> 0) && (t
[p2
] == '\r' || t
[p2
] == '\n'))
855 if ((--p2
> 0) && (t
[p2
] == '\r' || t
[p2
] == '\n'))
864 static int errorcount
= 0;
866 if (++errorcount
< 5)
868 message (D_ERROR
, _("Cannot parse:"), "%s", (p_copy
&& *p_copy
) ? p_copy
: line
);
870 else if (errorcount
== 5)
871 message (D_ERROR
, MSG_ERROR
, _("More parsing errors will be ignored."));
878 /* --------------------------------------------------------------------------------------------- */