From: Simon Wright <simon@pushface.org>
Subject: Re: I am not understanding user defined exceptions
Date: Sat, 04 Feb 2017 08:41:30 +0000
Date: 2017-02-04T08:41:30+00:00 [thread overview]
Message-ID: <lywpd6fiv9.fsf@pushface.org> (raw)
In-Reply-To: 6cb6e781-c6df-4962-99e3-760e7c7fab88@googlegroups.com
You are thinking of user-defined *predicates* (properties of values of
the type), available in Ada2012.
Try
subtype Not_One is Integer with Dynamic_Predicate => Not_One /= 1;
X : Not_One;
(with GNAT, you have to enable assertion checking, compile with -gnata)
$ ./test_exceptions
2
1
raised SYSTEM.ASSERTIONS.ASSERT_FAILURE : Dynamic_Predicate failed at
test_exceptions.adb:9
(line 9 is the second Get)
prev parent reply other threads:[~2017-02-04 8:41 UTC|newest]
Thread overview: 28+ messages / expand[flat|nested] mbox.gz Atom feed top
2017-02-03 20:27 I am not understanding user defined exceptions patrick
2017-02-03 21:08 ` Randy Brukardt
2017-02-03 22:41 ` patrick
2017-02-04 1:26 ` Dennis Lee Bieber
2017-02-04 6:58 ` J-P. Rosen
2017-02-04 17:08 ` Simon Wright
2017-02-08 17:55 ` Georg Bauhaus
2017-02-08 23:37 ` Randy Brukardt
2017-02-09 19:08 ` Robert A Duff
2017-02-09 21:47 ` Randy Brukardt
2017-02-09 22:52 ` Robert A Duff
2017-02-10 9:52 ` Simon Wright
2017-02-10 10:11 ` Dmitry A. Kazakov
2017-02-10 20:56 ` Randy Brukardt
2017-02-10 21:09 ` Randy Brukardt
2017-02-10 22:07 ` Dmitry A. Kazakov
2017-02-13 23:20 ` Randy Brukardt
2017-02-14 8:39 ` Dmitry A. Kazakov
2017-02-14 20:07 ` Randy Brukardt
2017-02-15 9:32 ` Dmitry A. Kazakov
2017-02-10 23:53 ` Shark8
2017-02-09 0:36 ` Robert A Duff
2017-02-09 7:43 ` Simon Wright
2017-02-09 19:15 ` Robert A Duff
2017-02-09 20:39 ` Randy Brukardt
2017-02-09 21:06 ` Randy Brukardt
2017-02-09 23:08 ` Robert A Duff
2017-02-04 8:41 ` Simon Wright [this message]
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox