New macros @DA_FIRST@ and @DA_LAST@ for stack/queue peeking.

[mLib] / da-ref

diff --git a/da-ref b/da-ref
index 2c1e592742aae2166575d348721944dee077b306..aed94a45f98e2d426f30a30c1af376007eda208d 100755 (executable)
--- a/da-ref
+++ b/da-ref
@@ -56,6 +56,10 @@ while (<>) {
     } else {
       print int($a[$F[1]]), "\n";
     }
+  } elsif ($F[0] eq "first") {
+    print int($a[0]), "\n";
+  } elsif ($F[0] eq "last") {
+    print int($a[$#a]), "\n";
   } elsif ($F[0] eq "show") {
     if (@a) {
       print join(" ", map int, @a), "\n";