add method to return current alarms

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/ec/trunk@35834 72102866-910b-0410-8b05-ffd578937521

EcProcess.h

@@ -327,6 +327,10 @@ extern NSString*	cmdVersion(NSString *ver);
  */
 @interface EcProcess : NSObject <CmdClient,EcAlarmDestination>
 
+/** Returns the array of current alarms.
+ */
+- (NSArray*) alarms;
+
 /** Return a short copyright notice ... subclasses should override.
  */
 - (NSString*) ecCopyright;

EcProcess.m

@@ -1310,6 +1310,11 @@ static NSString	*noFiles = @"No log files to archive";
   return started;
 }
 
+- (NSArray*) alarms
+{
+  return [alarmDestination alarms];
+}
+
 - (oneway void) alarm: (in bycopy EcAlarm*)event
 {
   [alarmDestination alarm: event];