home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / cvs110.zip / cvs / scripts / verifymsg.cmd < prev   
OS/2 REXX Batch file  |  1998-08-21  |  1KB  |  52 lines
  1. /*
  2. ** $Id: verifymsg.cmd,v 1.1.2.1 1998/06/23 12:32:43 ahuber Exp $
  3. **
  4. ** Copyright (C) 1998  Andreas Huber <ahuber@ping.at>
  5. **
  6. ** This program is free software; you can redistribute it and/or
  7. ** modify it under the terms of the GNU General Public License
  8. ** as published by the Free Software Foundation; either version 2
  9. ** of the License, or (at your option) any later version.
  10. **
  11. ** This program is distributed in the hope that it will be useful,
  12. ** but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. ** GNU General Public License for more details.
  15. **
  16. ** You should have received a copy of the GNU General Public License
  17. ** along with this program; see the file COPYING. If not, write to
  18. ** the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  19. ** Boston, MA 02111-1307, USA.
  20. */
  21. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  22. call SysLoadFuncs
  23.  
  24. /*
  25. ** Constants.
  26. */
  27. EXIT_SUCCESS        = 0
  28. EXIT_FAILURE        = 1
  29. EXIT_SIGNAL            = 3
  30.  
  31. FALSE                = 0
  32. TRUE                = \FALSE
  33.  
  34. /*
  35. ** Global names known to all procedures.
  36. */
  37. globals = 'EXIT_SUCCESS EXIT_FAILURE EXIT_SIGNAL',
  38.     'FALSE TRUE argv.0'
  39.  
  40. /*
  41. ** Main body.
  42. */
  43. main:
  44.     argv.0 = 'verifymsg'
  45.     signal on halt name signal_handler
  46.     exit EXIT_FAILURE
  47.  
  48. signal_handler:
  49.     call lineout 'stderr:', argv.0||': terminated by SIGINT.'
  50.     exit EXIT_SIGNAL
  51.  
  52.