summaryrefslogtreecommitdiffstats
path: root/transact.txi
diff options
context:
space:
mode:
authorBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:40 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:40 -0800
commit4684239efa63dc1b2c1cbe37ef7d3062029f5532 (patch)
tree606a687e9279e9bf6048925878968df9875a4973 /transact.txi
parent64f037d91e0c9296dcaef9a0ff3eb33b19a2ed34 (diff)
downloadslib-4684239efa63dc1b2c1cbe37ef7d3062029f5532.tar.gz
slib-4684239efa63dc1b2c1cbe37ef7d3062029f5532.zip
Import Upstream version 3b1upstream/3b1
Diffstat (limited to 'transact.txi')
-rw-r--r--transact.txi18
1 files changed, 18 insertions, 0 deletions
diff --git a/transact.txi b/transact.txi
index 4dec378..10de2ca 100644
--- a/transact.txi
+++ b/transact.txi
@@ -81,6 +81,24 @@ If @var{path} is locked with @var{certificate}, then @code{file-unlock!} removes
@samp{#f}.
@end deffn
+
+@defun describe-file-lock path prefix
+
+
+@defunx describe-file-lock path
+@var{path} must be a string naming a file. Optional argument @var{prefix} is a string
+printed before each line of the message. @code{describe-file-lock} prints to
+@code{(current-error-port)} that @var{path} is locked for writing and lists
+its lock-files.
+
+@example
+(describe-file-lock "my.txt" ">> ")
+@print{}
+>> "my.txt" is locked for writing by 'luser@@no.com.4829:1200536423'
+>> (lock files are "~$my.txt" and ".#my.txt")
+@end example
+@end defun
+
@subsubheading File Transactions