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

Changed the filesystem proto file and enhanced the mkfs7 tool based on

Browse Source 
Phi's analysis of the filesystem.
This commit is contained in:
Warren Toomey
2016-03-10 16:04:35 +10:00
parent 19f13c8107
commit 436929b83c
2 changed files with 23 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tools/mkfs7
+9
View File
@@ -47,6 +47,8 @@ use constant I_OWNERWRITE => 0000004;
use constant I_WORLDREAD => 0000010; use constant I_WORLDREAD => 0000010;
use constant I_WORLDWRITE => 0000004; use constant I_WORLDWRITE => 0000004;
use constant I_LINK => 0000001; # Never used in an i-node: just internal use
# Directory field offsets # Directory field offsets
use constant D_INUM => 0; use constant D_INUM => 0;
use constant D_NAME => 1; use constant D_NAME => 1;
@@ -388,6 +390,7 @@ sub parse_perms {
$filetype = I_DIRECTORY if ( $permstring =~ m{^d} ); $filetype = I_DIRECTORY if ( $permstring =~ m{^d} );
$filetype = I_SPECIAL if ( $permstring =~ m{^i} ); $filetype = I_SPECIAL if ( $permstring =~ m{^i} );
$filetype = I_LINK if ( $permstring =~ m{^l} );
$perms |= I_OWNERREAD if ( $permstring =~ m{^.r} ); $perms |= I_OWNERREAD if ( $permstring =~ m{^.r} );
$perms |= I_OWNERWRITE if ( $permstring =~ m{^..w} ); $perms |= I_OWNERWRITE if ( $permstring =~ m{^..w} );
@@ -439,6 +442,12 @@ sub parse_proto_file {
add_special( $name, $perms, $uid, $inum ); add_special( $name, $perms, $uid, $inum );
next; next;
} }
if ( $type eq I_LINK ) {
my ( $name, $permstr, $inum ) = @words;
dprint("Adding link in curdir to $name inum $inum\n");
add_direntry( $name, $inum );
next;
}
} }
close($IN); close($IN);
} }
tools/proto
+14 -10
View File
@@ -4,22 +4,25 @@
# filename f[r-][w-][r-][r-] uid local_file_to_insert # filename f[r-][w-][r-][r-] uid local_file_to_insert
# dirname d[r-][w-][r-][r-] uid [inumber] # dirname d[r-][w-][r-][r-] uid [inumber]
# device i[r-][w-][r-][r-] uid inumber # device i[r-][w-][r-][r-] uid inumber
# link l---- inumber
# #
# The top directory's name is ignored # The top directory's name is ignored
# Numeric values are in decimal # Numeric values are in decimal
# Contents of each directory ends with a $ on a line by itself # Contents of each directory ends with a $ on a line by itself
# Format was inspired by 6th Edition mkfs # Format was inspired by 6th Edition mkfs
# #
dd drw-- -1 2 dd drw-- -1 2
system drw-- -1 3 system drw-- -1 3
init frwr- -1 ../bin/init init frwr- -1 ../bin/init
ttyin irwr- -1 6
keyboard irwr- -1 7
pptin irwr- -1 8
ttyout irwr- -1 10
display irwr- -1 11
pptout irwr- -1 12
sh frwr- -1 ../bin/sh
$ $
ttyin irwr- -1 6
keyboard irwr- -1 7
pptin irwr- -1 8
ttyout irwr- -1 10
display irwr- -1 11
pptout irwr- -1 12
as frwr- -1 ../bin/as as frwr- -1 ../bin/as
cat frwr- -1 ../bin/cat cat frwr- -1 ../bin/cat
chmod frwr- -1 ../bin/chmod chmod frwr- -1 ../bin/chmod
@@ -31,9 +34,10 @@ dd drw-- -1 2
ln frwr- -1 ../bin/ln ln frwr- -1 ../bin/ln
ls frwr- -1 ../bin/ls ls frwr- -1 ../bin/ls
mv frwr- -1 ../bin/mv mv frwr- -1 ../bin/mv
sh frwr- -1 ../bin/sh
stat frwr- -1 ../bin/stat stat frwr- -1 ../bin/stat
ken drwr- 10 ken drwr- 10
system l---- 3
$ $
dmr drwr- 12 dmr drwr- 12
system l---- 3
$ $