Admin/mira.py
author krauss
Thu Mar 24 22:12:38 2011 +0100 (2011-03-24)
changeset 42109 f5950b976076
parent 42095 a8598661d5eb
child 42113 3c71630041c7
permissions -rw-r--r--
enable Z3 in the test configuration
haftmann@41542
     1
"""
haftmann@41542
     2
    Test configuration descriptions for mira.
haftmann@41542
     3
"""
haftmann@41542
     4
haftmann@41542
     5
import os
haftmann@41542
     6
from os import path
haftmann@41542
     7
from glob import glob
haftmann@41542
     8
import subprocess
haftmann@41542
     9
import re
haftmann@41542
    10
haftmann@41542
    11
import util
haftmann@41542
    12
haftmann@41542
    13
haftmann@41542
    14
# build and evaluation tools
haftmann@41542
    15
haftmann@41542
    16
def prepare_isabelle_repository(loc_isabelle, loc_contrib, loc_dependency_heaps, parallelism = True):
haftmann@41542
    17
haftmann@41542
    18
    loc_contrib = path.expanduser(loc_contrib)
haftmann@41542
    19
    if not path.exists(loc_contrib):
haftmann@41542
    20
        raise IOError('Bad file: %s' % loc_contrib)
haftmann@41542
    21
    subprocess.check_call(['ln', '-s', loc_contrib, '%s/contrib' % loc_isabelle])
haftmann@41542
    22
haftmann@41542
    23
    contributed_components = path.join(loc_isabelle, 'Admin', 'contributed_components')
haftmann@41542
    24
    if path.exists(contributed_components):
haftmann@41542
    25
        components = []
haftmann@41542
    26
        for component in util.readfile_lines(contributed_components):
haftmann@41542
    27
            loc_component = path.join(loc_isabelle, component)
haftmann@41542
    28
            if path.exists(loc_component):
haftmann@41542
    29
                components.append(loc_component)
haftmann@41542
    30
        writer = open(path.join(loc_isabelle, 'etc', 'components'), 'a')
haftmann@41542
    31
        for component in components:
haftmann@41542
    32
            writer.write(component + '\n')
haftmann@41542
    33
        writer.close()
haftmann@41542
    34
haftmann@41542
    35
    if loc_dependency_heaps:
haftmann@41542
    36
        isabelle_path = loc_dependency_heaps + '/$ISABELLE_IDENTIFIER:$ISABELLE_OUTPUT'
haftmann@41542
    37
    else:
haftmann@41542
    38
        isabelle_path = '$ISABELLE_OUTPUT'
haftmann@41542
    39
haftmann@41542
    40
    if parallelism:
haftmann@41542
    41
        parallelism_options = '-M max'
haftmann@41542
    42
    else:
haftmann@41542
    43
        parallelism_options = '-M 1 -q 0'
haftmann@41542
    44
haftmann@41542
    45
    extra_settings = '''
haftmann@41542
    46
ISABELLE_HOME_USER="$ISABELLE_HOME/home_user"
haftmann@41542
    47
ISABELLE_OUTPUT="$ISABELLE_HOME/heaps"
haftmann@41542
    48
ISABELLE_BROWSER_INFO="$ISABELLE_HOME/browser_info"
haftmann@41542
    49
ISABELLE_PATH="%s"
haftmann@41542
    50
haftmann@41542
    51
ISABELLE_USEDIR_OPTIONS="$ISABELLE_USEDIR_OPTIONS %s -t true -v true -d pdf -g true -i true"
krauss@42109
    52
Z3_NON_COMMERCIAL="yes"
haftmann@41542
    53
''' % (isabelle_path, parallelism_options)
haftmann@41542
    54
haftmann@41542
    55
    writer = open(path.join(loc_isabelle, 'etc', 'settings'), 'a')
haftmann@41542
    56
    writer.write(extra_settings)
haftmann@41542
    57
    writer.close()
haftmann@41542
    58
haftmann@41542
    59
haftmann@41542
    60
def extract_isabelle_run_timing(logdata):
haftmann@41542
    61
haftmann@41542
    62
    def to_secs(h, m, s):
haftmann@41542
    63
        return (int(h) * 60 + int(m)) * 60 + int(s)
haftmann@41542
    64
    pat = r'Finished (\S+) \((\d+):(\d+):(\d+) elapsed time, (\d+):(\d+):(\d+) cpu time'
haftmann@41542
    65
    pat2 = r'Timing (\S+) \((\d+) threads, (\d+\.\d+)s elapsed time, (\d+\.\d+)s cpu time, (\d+\.\d+)s GC time\)'
haftmann@41542
    66
    t = dict((name, {'elapsed': to_secs(eh,em,es), 'cpu': to_secs(ch,cm,cs)})
haftmann@41542
    67
             for name, eh, em, es, ch, cm, cs in re.findall(pat, logdata))
haftmann@41542
    68
    for name, threads, elapsed, cpu, gc in re.findall(pat2, logdata):
haftmann@41542
    69
haftmann@41542
    70
        if name not in t:
haftmann@41542
    71
            t[name] = {}
haftmann@41542
    72
haftmann@41542
    73
        t[name]['threads'] = int(threads)
haftmann@41542
    74
        t[name]['elapsed_inner'] = elapsed
haftmann@41542
    75
        t[name]['cpu_inner'] = cpu
haftmann@41542
    76
        t[name]['gc'] = gc
haftmann@41542
    77
haftmann@41542
    78
    return t
haftmann@41542
    79
haftmann@41542
    80
haftmann@41542
    81
def extract_isabelle_run_summary(logdata):
haftmann@41542
    82
krauss@41894
    83
    re_error = re.compile(r'^(?:make: )?\*\*\* (.*)$', re.MULTILINE)
haftmann@41542
    84
    summary = '\n'.join(re_error.findall(logdata))
haftmann@41542
    85
    if summary == '':
haftmann@41542
    86
        summary = 'ok'
haftmann@41542
    87
haftmann@41542
    88
    return summary
haftmann@41542
    89
haftmann@41542
    90
haftmann@41542
    91
def isabelle_usedir(env, isa_path, isabelle_usedir_opts, base_image, dir_name):
haftmann@41542
    92
haftmann@41542
    93
    return env.run_process('%s/bin/isabelle' % isa_path, 'usedir',
haftmann@41542
    94
        isabelle_usedir_opts, base_image, dir_name)
haftmann@41542
    95
haftmann@41542
    96
haftmann@41542
    97
def isabelle_dependency_only(env, case, paths, dep_paths, playground):
haftmann@41542
    98
haftmann@41542
    99
    p = paths[0]
haftmann@41542
   100
    result = path.join(p, 'heaps')
haftmann@41542
   101
    os.makedirs(result)
haftmann@41542
   102
    for dep_path in dep_paths:
haftmann@41542
   103
        subprocess.check_call(['cp', '-R'] + glob(dep_path + '/*') + [result])
haftmann@41542
   104
haftmann@41542
   105
    return (True, 'ok', {}, {}, result)
haftmann@41542
   106
haftmann@41542
   107
haftmann@41542
   108
def build_isabelle_image(subdir, base, img, env, case, paths, dep_paths, playground):
haftmann@41542
   109
haftmann@41542
   110
    p = paths[0]
haftmann@41542
   111
    dep_path = dep_paths[0]
haftmann@41542
   112
    prepare_isabelle_repository(p, env.settings.contrib, dep_path)
haftmann@41542
   113
    os.chdir(path.join(p, 'src', subdir))
haftmann@41542
   114
haftmann@41542
   115
    (return_code, log) = isabelle_usedir(env, p, '-b', base, img)
haftmann@41542
   116
haftmann@41542
   117
    result = path.join(p, 'heaps')
haftmann@41542
   118
    return (return_code == 0, extract_isabelle_run_summary(log),
haftmann@41542
   119
      {'timing': extract_isabelle_run_timing(log)}, {'log': log}, result)
haftmann@41542
   120
haftmann@41542
   121
haftmann@41542
   122
def isabelle_makeall(env, case, paths, dep_paths, playground):
haftmann@41542
   123
haftmann@41542
   124
    p = paths[0]
haftmann@41542
   125
    dep_path = dep_paths[0]
haftmann@41542
   126
    prepare_isabelle_repository(p, env.settings.contrib, dep_path)
haftmann@41542
   127
    os.chdir(p)
haftmann@41542
   128
haftmann@41542
   129
    (return_code, log) = env.run_process('%s/bin/isabelle' % p, 'makeall', '-k', 'all')
haftmann@41542
   130
haftmann@41542
   131
    return (return_code == 0, extract_isabelle_run_summary(log),
haftmann@41542
   132
      {'timing': extract_isabelle_run_timing(log)}, {'log': log}, None)
haftmann@41542
   133
haftmann@41542
   134
haftmann@41542
   135
# Isabelle configurations
haftmann@41542
   136
haftmann@41542
   137
@configuration(repos = [Isabelle], deps = [])
haftmann@41542
   138
def Pure(env, case, paths, dep_paths, playground):
haftmann@41542
   139
    """Pure image"""
haftmann@41542
   140
haftmann@41542
   141
    p = paths[0]
haftmann@41542
   142
    prepare_isabelle_repository(p, env.settings.contrib, '')
haftmann@41542
   143
    os.chdir(path.join(p, 'src', 'Pure'))
haftmann@41542
   144
haftmann@41542
   145
    (return_code, log) = env.run_process('%s/bin/isabelle' % p, 'make', 'Pure')
haftmann@41542
   146
haftmann@41542
   147
    result = path.join(p, 'heaps')
haftmann@41542
   148
    return (return_code == 0, extract_isabelle_run_summary(log),
haftmann@41542
   149
      {'timing': extract_isabelle_run_timing(log)}, {'log': log}, result)
haftmann@41542
   150
haftmann@41542
   151
@configuration(repos = [Isabelle], deps = [(Pure, [0])])
haftmann@41542
   152
def FOL(*args):
haftmann@41542
   153
    """FOL image"""
haftmann@41542
   154
    return build_isabelle_image('FOL', 'Pure', 'FOL', *args)
haftmann@41542
   155
haftmann@41542
   156
@configuration(repos = [Isabelle], deps = [(Pure, [0])])
haftmann@41542
   157
def HOL(*args):
haftmann@41542
   158
    """HOL image"""
haftmann@41542
   159
    return build_isabelle_image('HOL', 'Pure', 'HOL', *args)
haftmann@41542
   160
haftmann@41542
   161
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   162
def HOL_HOLCF(*args):
haftmann@41542
   163
    """HOL-HOLCF image"""
haftmann@41542
   164
    return build_isabelle_image('HOL/HOLCF', 'HOL', 'HOLCF', *args)
haftmann@41542
   165
haftmann@41542
   166
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   167
def HOL_Nominal(*args):
haftmann@41542
   168
    """HOL-Nominal image"""
haftmann@41542
   169
    return build_isabelle_image('HOL/Nominal', 'HOL', 'HOL-Nominal', *args)
haftmann@41542
   170
haftmann@41542
   171
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   172
def HOL_Word(*args):
haftmann@41542
   173
    """HOL-Word image"""
haftmann@41542
   174
    return build_isabelle_image('HOL/Word', 'HOL', 'HOL-Word', *args)
haftmann@41542
   175
haftmann@41542
   176
@configuration(repos = [Isabelle], deps = [
haftmann@41542
   177
    (HOL, [0]),
haftmann@41542
   178
    (HOL_HOLCF, [0]),
haftmann@41542
   179
    (HOL_Nominal, [0]),
haftmann@41542
   180
    (HOL_Word, [0])
haftmann@41542
   181
  ])
haftmann@41542
   182
def AFP_images(*args):
haftmann@41542
   183
    """Isabelle images needed for the AFP"""
haftmann@41542
   184
    return isabelle_dependency_only(*args)
haftmann@41542
   185
haftmann@41542
   186
@configuration(repos = [Isabelle], deps = [
haftmann@41542
   187
    (AFP_images, [0])
haftmann@41542
   188
  ])
haftmann@41542
   189
def Isabelle_makeall(*args):
haftmann@41542
   190
    """Isabelle makeall"""
haftmann@41542
   191
    return isabelle_makeall(*args)
haftmann@41542
   192
haftmann@41542
   193
haftmann@41542
   194
# Mutabelle configurations
haftmann@41542
   195
haftmann@41542
   196
def invoke_mutabelle(theory, env, case, paths, dep_paths, playground):
haftmann@41542
   197
haftmann@41542
   198
    """Mutant testing for counterexample generators in Isabelle"""
haftmann@41542
   199
haftmann@41542
   200
    (loc_isabelle,) = paths
haftmann@41542
   201
    (dep_isabelle,) = dep_paths
haftmann@41542
   202
    prepare_isabelle_repository(loc_isabelle, env.settings.contrib, dep_isabelle)
haftmann@41542
   203
    os.chdir(loc_isabelle)
haftmann@41542
   204
    
haftmann@41542
   205
    (return_code, log) = env.run_process('bin/isabelle',
haftmann@41542
   206
      'mutabelle', '-O', playground, theory)
haftmann@41542
   207
    
haftmann@41542
   208
    try:
haftmann@41542
   209
        mutabelle_log = util.readfile(path.join(playground, 'log'))
haftmann@41542
   210
    except IOError:
haftmann@41542
   211
        mutabelle_log = ''
haftmann@41542
   212
haftmann@41542
   213
    return (return_code == 0 and mutabelle_log != '', extract_isabelle_run_summary(log),
haftmann@41652
   214
      {'timing': extract_isabelle_run_timing(log)},
haftmann@41652
   215
      {'log': log, 'mutabelle_log': mutabelle_log}, None)
haftmann@41542
   216
haftmann@41542
   217
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   218
def Mutabelle_Relation(*args):
haftmann@41542
   219
    """Mutabelle regression suite on Relation theory"""
haftmann@41542
   220
    return invoke_mutabelle('Relation', *args)
haftmann@41542
   221
haftmann@41542
   222
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   223
def Mutabelle_List(*args):
haftmann@41542
   224
    """Mutabelle regression suite on List theory"""
haftmann@41542
   225
    return invoke_mutabelle('List', *args)
haftmann@41542
   226
haftmann@41542
   227
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   228
def Mutabelle_Set(*args):
haftmann@41542
   229
    """Mutabelle regression suite on Set theory"""
haftmann@41542
   230
    return invoke_mutabelle('Set', *args)
haftmann@41542
   231
haftmann@41542
   232
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   233
def Mutabelle_Map(*args):
haftmann@41542
   234
    """Mutabelle regression suite on Map theory"""
haftmann@41542
   235
    return invoke_mutabelle('Map', *args)
haftmann@41542
   236
haftmann@41542
   237
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   238
def Mutabelle_Divides(*args):
haftmann@41542
   239
    """Mutabelle regression suite on Divides theory"""
haftmann@41542
   240
    return invoke_mutabelle('Divides', *args)
haftmann@41542
   241
haftmann@41542
   242
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   243
def Mutabelle_MacLaurin(*args):
haftmann@41542
   244
    """Mutabelle regression suite on MacLaurin theory"""
haftmann@41542
   245
    return invoke_mutabelle('MacLaurin', *args)
haftmann@41542
   246
haftmann@41542
   247
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   248
def Mutabelle_Fun(*args):
haftmann@41542
   249
    """Mutabelle regression suite on Fun theory"""
haftmann@41542
   250
    return invoke_mutabelle('Fun', *args)
krauss@42040
   251
krauss@42040
   252
krauss@42040
   253
# Judgement Day configurations
krauss@42040
   254
krauss@42095
   255
judgement_day_provers = ('e', 'spass', 'vampire', 'z3', 'cvc3', 'yices')
krauss@42040
   256
krauss@42040
   257
def judgement_day(base_path, theory, opts, env, case, paths, dep_paths, playground):
krauss@42040
   258
    """Judgement Day regression suite"""
krauss@42040
   259
krauss@42040
   260
    isa = paths[0]
krauss@42040
   261
    dep_path = dep_paths[0]
krauss@42040
   262
krauss@42040
   263
    os.chdir(path.join(playground, '..', base_path)) # Mirabelle requires specific cwd
krauss@42040
   264
    prepare_isabelle_repository(isa, env.settings.contrib, dep_path)
krauss@42040
   265
krauss@42040
   266
    output = {}
krauss@42040
   267
    success_rates = {}
krauss@42040
   268
    some_success = False
krauss@42040
   269
krauss@42040
   270
    for atp in judgement_day_provers:
krauss@42040
   271
krauss@42040
   272
        log_dir = path.join(playground, 'mirabelle_log_' + atp)
krauss@42040
   273
        os.makedirs(log_dir)
krauss@42040
   274
krauss@42040
   275
        cmd = ('%s/bin/isabelle mirabelle -q -O %s sledgehammer[prover=%s,%s] %s.thy'
krauss@42040
   276
               % (isa, log_dir, atp, opts, theory))
krauss@42040
   277
krauss@42040
   278
        os.system(cmd)
krauss@42040
   279
        output[atp] = util.readfile(path.join(log_dir, theory + '.log'))
krauss@42040
   280
krauss@42040
   281
        percentages = list(re.findall(r'Success rate: (\d+)%', output[atp]))
krauss@42040
   282
        if len(percentages) == 2:
krauss@42040
   283
            success_rates[atp] = {
krauss@42040
   284
                'sledgehammer': int(percentages[0]),
krauss@42040
   285
                'metis': int(percentages[1])}
krauss@42040
   286
            if success_rates[atp]['sledgehammer'] > 0:
krauss@42040
   287
                some_success = True
krauss@42040
   288
        else:
krauss@42040
   289
            success_rates[atp] = {}
krauss@42040
   290
krauss@42040
   291
krauss@42040
   292
    data = {'success_rates': success_rates}
krauss@42040
   293
    raw_attachments = dict((atp + "_output", output[atp]) for atp in judgement_day_provers)
krauss@42040
   294
    # FIXME: summary?
krauss@42040
   295
    return (some_success, '', data, raw_attachments, None)
krauss@42040
   296
krauss@42040
   297
krauss@42040
   298
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
krauss@42040
   299
def JD_NS(*args):
krauss@42040
   300
    """Judgement Day regression suite NS"""
krauss@42040
   301
    return judgement_day('Isabelle/src/HOL/Auth', 'NS_Shared', 'prover_timeout=10', *args)
krauss@42040
   302
krauss@42040
   303
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
krauss@42040
   304
def JD_FTA(*args):
krauss@42040
   305
    """Judgement Day regression suite FTA"""
krauss@42040
   306
    return judgement_day('Isabelle/src/HOL/Library', 'Fundamental_Theorem_Algebra', 'prover_timeout=10', *args)
krauss@42040
   307
krauss@42040
   308
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
krauss@42040
   309
def JD_Hoare(*args):
krauss@42040
   310
    """Judgement Day regression suite Hoare"""
krauss@42058
   311
    return judgement_day('Isabelle/src/HOL/IMPP', 'Hoare', 'prover_timeout=10', *args)
krauss@42040
   312
krauss@42040
   313
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
krauss@42040
   314
def JD_SN(*args):
krauss@42040
   315
    """Judgement Day regression suite SN"""
krauss@42058
   316
    return judgement_day('Isabelle/src/HOL/Proofs/Lambda', 'StrongNorm', 'prover_timeout=10', *args)
krauss@42040
   317