changelog shortlog graph tags branches changeset files file revisions raw help

Mercurial > core / annotate lisp/bin/skc.lisp

changeset 680: 5f88b237ce29
child: 5e8b1855f866
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 27 Sep 2024 20:19:10 -0400
permissions: -rw-r--r--
description: added skc, fixed alien c-string functions, upgrades and fixes for rocksdb/rdb
680
5f88b237ce29 added skc, fixed alien c-string functions, upgrades and fixes for rocksdb/rdb
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
1 
 ;;; skc.lisp --- Skel Client
5f88b237ce29 added skc, fixed alien c-string functions, upgrades and fixes for rocksdb/rdb
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
2 
 
5f88b237ce29 added skc, fixed alien c-string functions, upgrades and fixes for rocksdb/rdb
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
3 
 ;;
5f88b237ce29 added skc, fixed alien c-string functions, upgrades and fixes for rocksdb/rdb
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
4 
 
5f88b237ce29 added skc, fixed alien c-string functions, upgrades and fixes for rocksdb/rdb
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
5 
 ;;; Code:
5f88b237ce29 added skc, fixed alien c-string functions, upgrades and fixes for rocksdb/rdb
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
6 
 (in-package :std-user)
5f88b237ce29 added skc, fixed alien c-string functions, upgrades and fixes for rocksdb/rdb
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
7 
 (defpkg :bin/skc
5f88b237ce29 added skc, fixed alien c-string functions, upgrades and fixes for rocksdb/rdb
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
8 
   (:use :cl)
5f88b237ce29 added skc, fixed alien c-string functions, upgrades and fixes for rocksdb/rdb
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
9 
   (:nicknames :skc))
5f88b237ce29 added skc, fixed alien c-string functions, upgrades and fixes for rocksdb/rdb
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
10 
 (in-package :bin/skc)
5f88b237ce29 added skc, fixed alien c-string functions, upgrades and fixes for rocksdb/rdb
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
11 
 
5f88b237ce29 added skc, fixed alien c-string functions, upgrades and fixes for rocksdb/rdb
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
12 
 (define-cli *skc-cli*
5f88b237ce29 added skc, fixed alien c-string functions, upgrades and fixes for rocksdb/rdb
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
13 
   :name "skc"
5f88b237ce29 added skc, fixed alien c-string functions, upgrades and fixes for rocksdb/rdb
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
14 
   :version #.(format nil "0.1.1:~A" (read-line (sb-ext:process-output (vc:run-hg-command "id" '("-i") :stream)))))
5f88b237ce29 added skc, fixed alien c-string functions, upgrades and fixes for rocksdb/rdb
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
15 
 
5f88b237ce29 added skc, fixed alien c-string functions, upgrades and fixes for rocksdb/rdb
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
16 
 (defmain start-skc ()
5f88b237ce29 added skc, fixed alien c-string functions, upgrades and fixes for rocksdb/rdb
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
17 
   (with-cli (*skc-cli* opts cmds) (cli:args)
5f88b237ce29 added skc, fixed alien c-string functions, upgrades and fixes for rocksdb/rdb
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
18 
     (do-cmd *skc-cli*)))