From: Eric S. Raymond <esr@thyrsus.com>
Date: Sun, 9 Nov 2014 22:39:51 +0000 (-0500)
Subject: Added L status.
X-Git-Tag: 0.4~35
X-Git-Url: http://thyrsus.com/gitweb/?a=commitdiff_plain;h=205f0e448bc3e4ac274e0d5930a100caaa45e818;p=src.git

Added L status.
---

diff --git a/src b/src
index 0e8ce3f..1be6ae8 100755
--- a/src
+++ b/src
@@ -307,7 +307,8 @@ src checkout ['revision'] ['file'...]
 
 src status ['file'...]
    A = added, U = unmodified, M = modified, ! = missing, ? = not tracked,
-   I = ignored.
+   I = ignored, L = locked (recover with src checkout).  The L
+   status should only occur if you have used RCS directly on a file.
 
 src cat [revision-range] ['file'...]
    Send the specified revisions of the files to standard output.
@@ -577,6 +578,8 @@ def status_method(*args):
             pairs.append((fn, "M"))
         elif not backend.has_revisions(fn):
             pairs.append((fn, "A"))
+        elif not os.access(fn, os.W_OK):
+            pairs.append((fn, "L"))
         else:
             pairs.append((fn, "U"))
     if not args:
@@ -744,7 +747,7 @@ def copy_method(*args):
 
 def release_method(*args):
     "Release locks."
-    (revspec, args) = preamble(legend, args)
+    (revspec, args) = preamble("release", args)
     if revspec is not None:
         croak("release doesn't take a revision spec")
     for arg in args:
diff --git a/src.asc b/src.asc
index e6af113..83a1dc7 100644
--- a/src.asc
+++ b/src.asc
@@ -60,7 +60,8 @@ src checkout [revision] ['file'...]::
 
 src status ['file'...]::
    A = added, U = unmodified, M = modified, ! = missing, ? = not tracked,
-   I = ignored.
+   I = ignored, L = locked (recover with src checkout).  The L
+   status should only occur if you have used RCS directly on a file.
 
 src cat [revision-range] ['file'...]::
    Send the specified revisions of the files to standard output.