Plan 9 from Bell Labs’s /usr/web/sources/contrib/axel/tcl/9pvfs/main-no-auth.tcl

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution.


#	package require vfs

#	package require vfs::9p
	source 9pvfs.tcl

	set sources [socket sources.cs.bell-labs.com 564]
	fconfigure $sources -translation  binary

	vfs::9p::Mount $sources none /tmp

	puts [glob [file join /tmp *]]

	set f [open /tmp/plan9/NOTICE r]
	puts [read $f]
	close $f
	cd /tmp/patch
	puts [glob ./*]

	cd ../plan9

	set f [open LICENSE r]
	puts [read $f]
	close $f
	set f1 [open /tmp/plan9/NOTICE r]
	set f2 [open LICENSE r]
	set f3 [open /tmp/plan9/NOTICE r]
	puts [read $f2]
	puts [read $f1]
	puts [read $f3]
	close $f1
	close $f3
	close $f2
	foreach fn [list /tmp/plan9/NOTICE /tmp / plan9/LICENSE] {
		file stat $fn X
		foreach e [array names X] {
			puts "file stat $fn  $e $X($e)"
		}
	}

Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to [email protected].