diff options
| author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-01-03 12:12:09 +0000 |
|---|---|---|
| committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-01-03 12:12:09 +0000 |
| commit | 91935b7ff6bd2d6abe87fc11986ddc56266732c4 (patch) | |
| tree | c7c7a8d09240f16dd5f4f73e1e5624c84b3f28be | |
| parent | abff685512bb35105658359595d22125ed9470d3 (diff) | |
Changed the error message for non existant implementation to
1) use CST_Error so it is listed at the end of running the CST
2) give more information indicating what to do
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1211 17b73243-c579-4c4c-a9d2-2d5706c11dac
| -rw-r--r-- | lib/sbin/interface_parser.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/sbin/interface_parser.pl b/lib/sbin/interface_parser.pl index 67596896..0a75b98a 100644 --- a/lib/sbin/interface_parser.pl +++ b/lib/sbin/interface_parser.pl @@ -233,8 +233,9 @@ sub get_implementation_ancestors $ancestors{"\U$ancestor\E"} = 1; if(! $interface_data{"IMPLEMENTATION \U$ancestor\E THORNS"}) { - print "$implementation inherits from $ancestor - non-existent implementation\n"; - $CST_errors++; + $message = "$implementation (thorn $thorn) inherits from $ancestor - non-existent implementation. Remove $thorn or add a thorn implementing $ancestor"; + &CST_error(0,$message,__LINE,__FILE__); + next; } %ancestors = &get_implementation_ancestors($ancestor, scalar(keys %ancestors), %ancestors,%interface_data); |