File: sidlAssertUtils.c

package info (click to toggle)
babel 0.10.2-1
  • links: PTS
  • area: contrib
  • in suites: sarge
  • size: 43,932 kB
  • ctags: 29,707
  • sloc: java: 74,695; ansic: 73,142; cpp: 40,649; sh: 18,411; f90: 10,062; fortran: 6,727; python: 6,406; makefile: 3,866; xml: 118; perl: 48
file content (77 lines) | stat: -rw-r--r-- 3,053 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
/*
 * File:        sidlAssertUtils.c
 * Revision:    @(#) $Revision: 4434 $
 * Date:        $Date: 2005-03-17 09:05:29 -0800 (Thu, 17 Mar 2005) $
 * Description: code for managing SIDL Assertions
 *
 * Copyright (c) 2004, The Regents of the University of Calfornia.
 * Produced at the Lawrence Livermore National Laboratory.
 * Written by the Components Team <components@llnl.gov>
 * UCRL-CODE-2002-054
 * All rights reserved.
 * 
 * This file is part of Babel. For more information, see
 * http://www.llnl.gov/CASC/components/. Please read the COPYRIGHT file
 * for Our Notice and the LICENSE file for the GNU Lesser General Public
 * License.
 * 
 * This program is free software; you can redistribute it and/or modify it
 * under the terms of the GNU Lesser General Public License (as published by
 * the Free Software Foundation) version 2.1 dated February 1999.
 * 
 * This program 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 terms and
 * conditions of the GNU Lesser General Public License for more details.
 * 
 * You should have recieved a copy of the GNU Lesser General Public License
 * along with this program; if not, write to the Free Software Foundation,
 * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 */

#include <string.h>
#include <stdio.h>
#include <stdlib.h>
#include "sidlAssertUtils.h"
#include "sidlAsserts.h"

char*
sidl_getCheckTypeDesc(int level) {
  int chk = s_CHECK_TYPE_OFF;
  switch (level & CHECK_ALL_TYPES) {
    case CHECK_ALL_TYPES:      chk = s_CHECK_ALL_TYPES;      break;
    case CHECK_POST_INV_ONLY:  chk = s_CHECK_POST_INV_ONLY;  break;
    case CHECK_PRE_INV_ONLY:   chk = s_CHECK_PRE_INV_ONLY;   break;
    case CHECK_INVARIANTS:     chk = s_CHECK_INVARIANTS;     break;
    case CHECK_PRE_POST_ONLY:  chk = s_CHECK_PRE_POST_ONLY;  break;
    case CHECK_POSTCONDITIONS: chk = s_CHECK_POSTCONDITIONS; break;
    case CHECK_PRECONDITIONS:  chk = s_CHECK_PRECONDITIONS;  break;
  }
  const char* desc = s_CHECK_DESCRIPTION[chk];
  return strcpy((char*)malloc(strlen(desc)+1), desc);
}

char* 
sidl_getCheckFrequencyDesc(int level) {
  int chk = s_CHECK_FREQ_OFF;
  switch (level & CHECK_ASSERTIONS) {
    case CHECK_ALWAYS:         chk = s_CHECK_ALWAYS;         break;
    case CHECK_PERIODICALLY:   chk = s_CHECK_PERIODICALLY;   break;
    case CHECK_TIMING:         chk = s_CHECK_TIMING;         break;
    case CHECK_RANDOMLY:       chk = s_CHECK_RANDOMLY;       break;
  }
  const char* desc = s_CHECK_DESCRIPTION[chk];
  return strcpy((char*)malloc(strlen(desc)+1), desc);
}

char*
sidl_getCheckDescription(int level) {
  char* type  = sidl_getCheckTypeDesc(level);
  char* freq  = sidl_getCheckFrequencyDesc(level);
  char* adapt = (level & CHECK_ADAPTIVELY) ? "adaptively, " : "";
  char* res   = (char*)malloc(strlen(type) + strlen(freq) + strlen(adapt) + 8);
  sprintf(res, "%s%s, %s", adapt, freq, type);
  free(type);
  free(freq);
  return res;
}