changelog shortlog graph tags branches changeset files file revisions raw help

Mercurial > demo / annotate scripts/fmt.ros

changeset 8: bebb76da449c
parent: 315fedf35bc7
author: ellis <ellis@rwest.io>
date: Sun, 07 May 2023 20:42:26 -0400
permissions: -rwxr-xr-x
description: tests and stuff
7
315fedf35bc7 rust ffi macros, general stuff
ellis <ellis@rwest.io>
parents:
diff changeset
1 
 #!/bin/sh
315fedf35bc7 rust ffi macros, general stuff
ellis <ellis@rwest.io>
parents:
diff changeset
2 
 #|-*- mode:lisp -*-|#
315fedf35bc7 rust ffi macros, general stuff
ellis <ellis@rwest.io>
parents:
diff changeset
3 
 #|
315fedf35bc7 rust ffi macros, general stuff
ellis <ellis@rwest.io>
parents:
diff changeset
4 
 exec ros -Q -- $0 "$@"
315fedf35bc7 rust ffi macros, general stuff
ellis <ellis@rwest.io>
parents:
diff changeset
5 
 |#
315fedf35bc7 rust ffi macros, general stuff
ellis <ellis@rwest.io>
parents:
diff changeset
6 
 (progn ;;init forms
315fedf35bc7 rust ffi macros, general stuff
ellis <ellis@rwest.io>
parents:
diff changeset
7 
   (ros:ensure-asdf)
315fedf35bc7 rust ffi macros, general stuff
ellis <ellis@rwest.io>
parents:
diff changeset
8 
   #+quicklisp(ql:quickload '() :silent t)
315fedf35bc7 rust ffi macros, general stuff
ellis <ellis@rwest.io>
parents:
diff changeset
9 
   )
315fedf35bc7 rust ffi macros, general stuff
ellis <ellis@rwest.io>
parents:
diff changeset
10 
 
315fedf35bc7 rust ffi macros, general stuff
ellis <ellis@rwest.io>
parents:
diff changeset
11 
 (defpackage :ros.script.build.3891893519
315fedf35bc7 rust ffi macros, general stuff
ellis <ellis@rwest.io>
parents:
diff changeset
12 
   (:use :cl))
315fedf35bc7 rust ffi macros, general stuff
ellis <ellis@rwest.io>
parents:
diff changeset
13 
 (in-package :ros.script.build.3891893519)
315fedf35bc7 rust ffi macros, general stuff
ellis <ellis@rwest.io>
parents:
diff changeset
14 
 
315fedf35bc7 rust ffi macros, general stuff
ellis <ellis@rwest.io>
parents:
diff changeset
15 
 (defun main (&rest argv)
315fedf35bc7 rust ffi macros, general stuff
ellis <ellis@rwest.io>
parents:
diff changeset
16 
   (declare (ignorable argv))
8
bebb76da449c tests and stuff
ellis <ellis@rwest.io>
parents: 7
diff changeset
17 
   (write-line "> cargo fmt")
bebb76da449c tests and stuff
ellis <ellis@rwest.io>
parents: 7
diff changeset
18 
   (uiop:run-program "cargo fmt")
bebb76da449c tests and stuff
ellis <ellis@rwest.io>
parents: 7
diff changeset
19 
   (write-line "  formatted rust code"))
7
315fedf35bc7 rust ffi macros, general stuff
ellis <ellis@rwest.io>
parents:
diff changeset
20 
 ;;; vim: set ft=lisp lisp: