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

switch to original commands, alphabetize proto and Makefile

Browse Source
This commit is contained in:
phil
2019-10-29 00:00:55 -04:00
parent 917cde2693
commit 1a35c9146d
5 changed files with 228 additions and 184 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 );
}
sub uid {
my $uid = shift;
return -1 if ($uid eq '-1');
return oct($uid);
}
# Open the named proto file and parse it
sub parse_proto_file {
my $file = shift;
@@ -543,17 +549,17 @@ sub parse_proto_file {
if ( $type eq I_DIRECTORY ) {
my ( $name, $permstr, $uid, $inum ) = @words;
make_dir( $name, $perms, $uid, $inum );
make_dir( $name, $perms, uid($uid), $inum );
next;
}
if ( $type eq I_FILE ) {
my ( $name, $permstr, $uid, $extfile, $inum ) = @words;
add_file( $name, $perms, $uid, $extfile, $inum );
add_file( $name, $perms, uid($uid), $extfile, $inum );
next;
}
if ( $type eq I_SPECIAL ) {
my ( $name, $permstr, $uid, $inum ) = @words;
add_special( $name, $perms, $uid, $inum );
add_special( $name, $perms, uid($uid), $inum );
next;
}
if ( $type eq I_LINK ) {