From 6c68511108ca99ea9ece5706f274f03722b9a44e Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sat, 13 Feb 2021 21:31:33 +0100 Subject: Add (drmaa errors). --- Makefile.am | 1 + drmaa/errors.scm | 36 ++++++++++++++++++++++++++++++++++++ 2 files changed, 37 insertions(+) create mode 100644 drmaa/errors.scm diff --git a/Makefile.am b/Makefile.am index caa3c8c..c16d7ca 100644 --- a/Makefile.am +++ b/Makefile.am @@ -36,6 +36,7 @@ drmaa/v1/ffi.scm: drmaa/v1/ffi.ffi -e 's,drmaa-v1-ffi-llibs),(force drmaa-v1-ffi-llibs)),' -i $@ SOURCES = drmaa.scm \ + drmaa/errors.scm \ drmaa/v1/ffi.scm \ drmaa/v1/low.scm diff --git a/drmaa/errors.scm b/drmaa/errors.scm new file mode 100644 index 0000000..76dcec2 --- /dev/null +++ b/drmaa/errors.scm @@ -0,0 +1,36 @@ +;;; Guile DRMAA --- Guile bindings for DRMAA +;;; Copyright © 2021 Ricardo Wurmus +;;; +;;; This file is part of Guile DRMAA. +;;; +;;; Guile DRMAA is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; Guile DRMAA is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with Guile DRMAA. If not, see . + +(define-module (drmaa errors) + #:use-module (srfi srfi-34) + #:use-module (srfi srfi-35) + #:export (&drmaa-error + drmaa-error? + + &formatted-message + formatted-message? + formatted-message-string + formatted-message-arguments)) + +(define-condition-type &drmaa-error &error + drmaa-error?) + +(define-condition-type &formatted-message &error + formatted-message? + (format formatted-message-string) + (arguments formatted-message-arguments)) -- cgit v1.2.3