glm94/pdp7-unix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mkfs7: add uid function to handle -1

Browse Source
This commit is contained in:
phil
2019-10-28 02:39:13 -04:00
parent 07c9a5c2d7
commit 8dcc21ed8d
1 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tools/mkfs7
+9 -3
View File
@@ -513,6 +513,12 @@ sub parse_perms {
return ( $filetype, $perms ); return ( $filetype, $perms );
} }
sub uid {
my $uid = shift;
return 0777777 if ($uid eq '-1');
return oct($uid);
}
# Open the named proto file and parse it # Open the named proto file and parse it
sub parse_proto_file { sub parse_proto_file {
my $file = shift; my $file = shift;
@@ -543,17 +549,17 @@ sub parse_proto_file {
if ( $type eq I_DIRECTORY ) { if ( $type eq I_DIRECTORY ) {
my ( $name, $permstr, $uid, $inum ) = @words; my ( $name, $permstr, $uid, $inum ) = @words;
make_dir( $name, $perms, oct($uid), $inum ); make_dir( $name, $perms, uid($uid), $inum );
next; next;
} }
if ( $type eq I_FILE ) { if ( $type eq I_FILE ) {
my ( $name, $permstr, $uid, $extfile, $inum ) = @words; my ( $name, $permstr, $uid, $extfile, $inum ) = @words;
add_file( $name, $perms, oct($uid), $extfile, $inum ); add_file( $name, $perms, uid($uid), $extfile, $inum );
next; next;
} }
if ( $type eq I_SPECIAL ) { if ( $type eq I_SPECIAL ) {
my ( $name, $permstr, $uid, $inum ) = @words; my ( $name, $permstr, $uid, $inum ) = @words;
add_special( $name, $perms, oct($uid), $inum ); add_special( $name, $perms, uid($uid), $inum );
next; next;
} }
if ( $type eq I_LINK ) { if ( $type eq I_LINK ) {