doc

scivision · scivision · commit 2dae42a4d1fc · 2025-08-28T00:36:09.000-04:00
diff --git a/+stdlib/+perl/device.m b/+stdlib/+perl/device.m
@@ -1,3 +1,5 @@
+%% PERL.DEVICE filesystem device index of path
+
 function [r, cmd] = device(file)
 
 c = '($f=shift) && -e $f or exit 1; print +(stat $f)[0]';

Original file line number	Diff line number	Diff line change
`@@ -1,3 +1,5 @@`
	`1`	`+%% PERL.DEVICE filesystem device index of path`
	`2`	`+`
`1`	`3`	`function [r, cmd] = device(file)`
`2`	`4`
`3`	`5`	`c = '($f=shift) && -e $f or exit 1; print +(stat $f)[0]';`