From 1a375f30eb2095fb6217bc3f503dbdf114865a05 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Mon, 21 Oct 2019 12:10:50 +0200 Subject: [PATCH] build: Update mes-snarf. * build-aux/snarf.sh: Support C-style annotations. --- build-aux/mes-snarf.scm | 7 +++---- build-aux/snarf.sh | 2 +- 2 files changed, 4 insertions(+), 5 deletions(-) diff --git a/build-aux/mes-snarf.scm b/build-aux/mes-snarf.scm index 17b59efb..7769a523 100755 --- a/build-aux/mes-snarf.scm +++ b/build-aux/mes-snarf.scm @@ -4,7 +4,7 @@ exec ${GUILE-guile} --no-auto-compile -L $(dirname $0) -C $(dirname $0) -e '(mes !# ;;; GNU Mes --- Maxwell Equations of Software -;;; Copyright © 2016,2017,2018 Jan (janneke) Nieuwenhuizen +;;; Copyright © 2016,2017,2018,2019 Jan (janneke) Nieuwenhuizen ;;; ;;; 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)) rest (receive (parameter-list annotation) - (apply values (string-split-string rest " ///")) - (let* ((parameters (string-trim-both parameter-list)) - (parameters (string-drop parameters 1)) + (apply values (string-split-string rest " /*:")) + (let* ((parameters (string-drop parameter-list 1)) (parameters (string-drop-right parameters 1)) (annotation (if (string? annotation) (string-trim-both annotation) annotation)) diff --git a/build-aux/snarf.sh b/build-aux/snarf.sh index 10db2a53..7a4e5668 100755 --- a/build-aux/snarf.sh +++ b/build-aux/snarf.sh @@ -1,7 +1,7 @@ #! /bin/sh # GNU Mes --- Maxwell Equations of Software -# Copyright © 2018 Jan (janneke) Nieuwenhuizen +# Copyright © 2018,2019 Jan (janneke) Nieuwenhuizen # # This file is part of GNU Mes. #