aboutsummaryrefslogtreecommitdiff
path: root/app/util.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'app/util.lisp')
-rw-r--r--app/util.lisp11
1 files changed, 11 insertions, 0 deletions
diff --git a/app/util.lisp b/app/util.lisp
new file mode 100644
index 0000000..d9d5ea2
--- /dev/null
+++ b/app/util.lisp
@@ -0,0 +1,11 @@
+;;;; utils.lisp
+
+(in-package :oneliners.cli.app)
+
+(defun parse-identifier (str)
+ "If STR holds digits representing an integer, parse them. otherwise
+ return the string. Oneliner identifiers may be names or ID
+ numbers. Returns NIL in the case that STR is NIL"
+ (when str
+ (or (parse-integer str :junk-allowed t)
+ str)))