build: Update mes-snarf.
* build-aux/snarf.sh: Support C-style annotations.
This commit is contained in:
parent
d87fbbd34c
commit
1a375f30eb
|
@ -4,7 +4,7 @@ exec ${GUILE-guile} --no-auto-compile -L $(dirname $0) -C $(dirname $0) -e '(mes
|
||||||
!#
|
!#
|
||||||
|
|
||||||
;;; GNU Mes --- Maxwell Equations of Software
|
;;; GNU Mes --- Maxwell Equations of Software
|
||||||
;;; Copyright © 2016,2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
;;; Copyright © 2016,2017,2018,2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||||||
;;;
|
;;;
|
||||||
;;; mes-snarf.scm: This file is part of GNU Mes.
|
;;; mes-snarf.scm: This file is part of GNU Mes.
|
||||||
;;;
|
;;;
|
||||||
|
@ -149,9 +149,8 @@ exec ${GUILE-guile} --no-auto-compile -L $(dirname $0) -C $(dirname $0) -e '(mes
|
||||||
(not (string-prefix? "/" function))
|
(not (string-prefix? "/" function))
|
||||||
rest
|
rest
|
||||||
(receive (parameter-list annotation)
|
(receive (parameter-list annotation)
|
||||||
(apply values (string-split-string rest " ///"))
|
(apply values (string-split-string rest " /*:"))
|
||||||
(let* ((parameters (string-trim-both parameter-list))
|
(let* ((parameters (string-drop parameter-list 1))
|
||||||
(parameters (string-drop parameters 1))
|
|
||||||
(parameters (string-drop-right parameters 1))
|
(parameters (string-drop-right parameters 1))
|
||||||
(annotation (if (string? annotation) (string-trim-both annotation)
|
(annotation (if (string? annotation) (string-trim-both annotation)
|
||||||
annotation))
|
annotation))
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
#! /bin/sh
|
#! /bin/sh
|
||||||
|
|
||||||
# GNU Mes --- Maxwell Equations of Software
|
# GNU Mes --- Maxwell Equations of Software
|
||||||
# Copyright © 2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
# Copyright © 2018,2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||||||
#
|
#
|
||||||
# This file is part of GNU Mes.
|
# This file is part of GNU Mes.
|
||||||
#
|
#
|
||||||
|
|
Loading…
Reference in New Issue