Admin/mira.py
author wenzelm
Mon Aug 18 12:15:11 2014 +0200 (2014-08-18)
changeset 57977 113b43b84412
parent 57559 841f41710066
child 59993 8f6cacc87f42
permissions -rw-r--r--
updated to jdk-7u67;
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
krauss@42392
     9
from datetime import datetime
haftmann@41542
    10
import re
haftmann@41542
    11
haftmann@41542
    12
import util
haftmann@41542
    13
krauss@42823
    14
from mira import schedule, misc
krauss@42192
    15
from mira.environment import scheduler
haftmann@46931
    16
from mira import repositories
krauss@42192
    17
haftmann@41542
    18
# build and evaluation tools
haftmann@41542
    19
krauss@50599
    20
DEFAULT_TIMEOUT = 2 * 60 * 60
krauss@50599
    21
SMLNJ_TIMEOUT = 72 * 60 * 60
krauss@50599
    22
krauss@50598
    23
def prepare_isabelle_repository(loc_isabelle, loc_dependency_heaps, more_settings=''):
krauss@42821
    24
krauss@42821
    25
    # patch settings
haftmann@41542
    26
    extra_settings = '''
krauss@42109
    27
Z3_NON_COMMERCIAL="yes"
krauss@48785
    28
krauss@50596
    29
init_components "/home/isabelle/contrib" "$ISABELLE_HOME/Admin/components/main"
krauss@50596
    30
init_components "/home/isabelle/contrib" "$ISABELLE_HOME/Admin/components/optional"
krauss@50596
    31
init_components "/home/isabelle/contrib" "$ISABELLE_HOME/Admin/components/nonfree"
haftmann@48182
    32
krauss@48783
    33
''' + more_settings
haftmann@41542
    34
haftmann@41542
    35
    writer = open(path.join(loc_isabelle, 'etc', 'settings'), 'a')
haftmann@41542
    36
    writer.write(extra_settings)
haftmann@41542
    37
    writer.close()
haftmann@41542
    38
haftmann@41542
    39
krauss@45164
    40
def isabelle_getenv(isabelle_home, var):
krauss@45164
    41
krauss@45164
    42
    _, out = env.run_process('%s/bin/isabelle' % isabelle_home, 'getenv', var)
krauss@45164
    43
    return out.split('=', 1)[1].strip()
krauss@45164
    44
krauss@45164
    45
haftmann@41542
    46
def extract_isabelle_run_timing(logdata):
haftmann@41542
    47
haftmann@41542
    48
    def to_secs(h, m, s):
haftmann@41542
    49
        return (int(h) * 60 + int(m)) * 60 + int(s)
haftmann@41542
    50
    pat = r'Finished (\S+) \((\d+):(\d+):(\d+) elapsed time, (\d+):(\d+):(\d+) cpu time'
krauss@42186
    51
    pat2 = r'Timing (\S+) \((\d+) threads, (\d+\.\d+)s elapsed time, (\d+\.\d+)s cpu time, (\d+\.\d+)s GC time, factor (\d+\.\d+)\)'
haftmann@41542
    52
    t = dict((name, {'elapsed': to_secs(eh,em,es), 'cpu': to_secs(ch,cm,cs)})
haftmann@41542
    53
             for name, eh, em, es, ch, cm, cs in re.findall(pat, logdata))
krauss@42186
    54
    for name, threads, elapsed, cpu, gc, factor in re.findall(pat2, logdata):
haftmann@41542
    55
haftmann@41542
    56
        if name not in t:
haftmann@41542
    57
            t[name] = {}
haftmann@41542
    58
haftmann@41542
    59
        t[name]['threads'] = int(threads)
haftmann@41542
    60
        t[name]['elapsed_inner'] = elapsed
haftmann@41542
    61
        t[name]['cpu_inner'] = cpu
haftmann@41542
    62
        t[name]['gc'] = gc
krauss@42186
    63
        t[name]['factor'] = factor
haftmann@41542
    64
haftmann@41542
    65
    return t
haftmann@41542
    66
haftmann@41542
    67
haftmann@41542
    68
def extract_isabelle_run_summary(logdata):
haftmann@41542
    69
krauss@41894
    70
    re_error = re.compile(r'^(?:make: )?\*\*\* (.*)$', re.MULTILINE)
haftmann@41542
    71
    summary = '\n'.join(re_error.findall(logdata))
haftmann@41542
    72
    if summary == '':
haftmann@41542
    73
        summary = 'ok'
haftmann@41542
    74
haftmann@41542
    75
    return summary
haftmann@41542
    76
haftmann@41542
    77
krauss@45164
    78
def extract_image_size(isabelle_home):
krauss@45164
    79
    
krauss@45164
    80
    isabelle_output = isabelle_getenv(isabelle_home, 'ISABELLE_OUTPUT')
krauss@50595
    81
    if not path.exists(isabelle_output):
krauss@50595
    82
        return {}
krauss@50595
    83
krauss@45164
    84
    return dict((p, path.getsize(path.join(isabelle_output, p))) for p in os.listdir(isabelle_output) if p != "log")
krauss@45164
    85
krauss@45164
    86
def extract_report_data(isabelle_home, logdata):
krauss@45164
    87
krauss@45164
    88
    return {
krauss@45164
    89
        'timing': extract_isabelle_run_timing(logdata),
krauss@45164
    90
        'image_size': extract_image_size(isabelle_home) }
krauss@45164
    91
krauss@45164
    92
krauss@48686
    93
def isabelle_build(env, case, paths, dep_paths, playground, *cmdargs, **kwargs):
haftmann@41542
    94
krauss@50599
    95
    more_settings = kwargs.get('more_settings', '')
krauss@50599
    96
    keep_results = kwargs.get('keep_results', True)
krauss@50599
    97
    timeout = kwargs.get('timeout', DEFAULT_TIMEOUT)
haftmann@41542
    98
krauss@42114
    99
    isabelle_home = paths[0]
haftmann@41542
   100
noschinl@57179
   101
    home_user_dir = path.join(isabelle_home, 'home_user')
noschinl@57179
   102
    os.makedirs(home_user_dir)
noschinl@57179
   103
krauss@48686
   104
    # copy over build results from dependencies
krauss@48686
   105
    heap_dir = path.join(isabelle_home, 'heaps')
krauss@48686
   106
    classes_dir = path.join(heap_dir, 'classes')
krauss@48686
   107
    os.makedirs(classes_dir)
krauss@42115
   108
krauss@48686
   109
    for dep_path in dep_paths:
krauss@48686
   110
        subprocess.check_call(['cp', '-a'] + glob(dep_path + '/*') + [heap_dir])
krauss@45164
   111
krauss@48686
   112
    subprocess.check_call(['ln', '-s', classes_dir, path.join(isabelle_home, 'lib', 'classes')])
krauss@48686
   113
    jars = glob(path.join(classes_dir, 'ext', '*.jar'))
krauss@48686
   114
    if jars:
krauss@48686
   115
        subprocess.check_call(['touch'] + jars)
krauss@42115
   116
krauss@48686
   117
    # misc preparations
krauss@48686
   118
    if 'lxbroy10' in misc.hostnames():  # special settings for lxbroy10
krauss@42823
   119
        more_settings += '''
bulwahn@43334
   120
ISABELLE_GHC="/usr/bin/ghc"
krauss@42823
   121
'''
krauss@42823
   122
krauss@50598
   123
    prepare_isabelle_repository(isabelle_home, None, more_settings=more_settings)
krauss@42114
   124
    os.chdir(isabelle_home)
haftmann@41542
   125
noschinl@50600
   126
    args = (['-o', 'timeout=%s' % timeout] if timeout is not None else []) + list(cmdargs)
krauss@50599
   127
krauss@48686
   128
    # invoke build tool
noschinl@57559
   129
    (return_code, log1) = env.run_process('%s/bin/isabelle' % isabelle_home, 'jedit', '-bf',
noschinl@57172
   130
            USER_HOME=home_user_dir)
noschinl@57559
   131
    (return_code, log2) = env.run_process('%s/bin/isabelle' % isabelle_home, 'build', '-s', '-v', *args,
noschinl@57559
   132
            USER_HOME=home_user_dir)
noschinl@57559
   133
    log = log1 + log2
haftmann@41542
   134
krauss@48686
   135
    # collect report
krauss@48686
   136
    return (return_code == 0, extract_isabelle_run_summary(log),
krauss@49175
   137
      extract_report_data(isabelle_home, log), {'log': log}, heap_dir if keep_results else None)
haftmann@41542
   138
haftmann@41542
   139
krauss@43689
   140
krauss@43689
   141
# Isabelle configurations
krauss@43689
   142
krauss@43689
   143
@configuration(repos = [Isabelle], deps = [])
krauss@43689
   144
def Pure(*args):
krauss@48686
   145
    """Pure Image"""
krauss@48686
   146
    return isabelle_build(*(args + ("-b", "Pure")))
krauss@43689
   147
haftmann@41542
   148
@configuration(repos = [Isabelle], deps = [(Pure, [0])])
haftmann@41542
   149
def HOL(*args):
krauss@48686
   150
    """HOL Image"""
krauss@48686
   151
    return isabelle_build(*(args + ("-b", "HOL")))
haftmann@41542
   152
haftmann@46934
   153
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@46934
   154
def HOL_Library(*args):
krauss@48686
   155
    """HOL Library"""
krauss@48686
   156
    return isabelle_build(*(args + ("-b", "HOL-Library")))
krauss@48686
   157
krauss@48686
   158
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
krauss@48688
   159
def HOLCF(*args):
krauss@48686
   160
    """HOLCF"""
krauss@48688
   161
    return isabelle_build(*(args + ("-b", "HOLCF")))
haftmann@46934
   162
haftmann@46934
   163
@configuration(repos = [Isabelle], deps = [(Pure, [0])])
haftmann@46934
   164
def ZF(*args):
krauss@48686
   165
    """HOLCF"""
krauss@48686
   166
    return isabelle_build(*(args + ("-b", "ZF")))
haftmann@46934
   167
haftmann@46934
   168
bulwahn@47895
   169
settings64='''
krauss@50593
   170
# enforce 64 bit, overriding smart detection
krauss@50593
   171
ML_PLATFORM="$ISABELLE_PLATFORM64"
krauss@50593
   172
ML_HOME="$(dirname $ML_HOME)/$ML_PLATFORM"
bulwahn@47895
   173
'''
bulwahn@47895
   174
bulwahn@47897
   175
@configuration(repos = [Isabelle], deps = [])
haftmann@41542
   176
def Isabelle_makeall(*args):
krauss@48686
   177
    """Build all sessions"""
krauss@49175
   178
    return isabelle_build(*(args + ("-j", "6", "-o", "threads=4", "-a")), more_settings=settings64, keep_results=False)
haftmann@46934
   179
haftmann@46931
   180
haftmann@41542
   181
# Mutabelle configurations
haftmann@41542
   182
haftmann@41542
   183
def invoke_mutabelle(theory, env, case, paths, dep_paths, playground):
haftmann@41542
   184
haftmann@41542
   185
    """Mutant testing for counterexample generators in Isabelle"""
haftmann@41542
   186
haftmann@41542
   187
    (loc_isabelle,) = paths
haftmann@41542
   188
    (dep_isabelle,) = dep_paths
bulwahn@43152
   189
    more_settings = '''
bulwahn@43153
   190
ISABELLE_GHC="/usr/bin/ghc"
bulwahn@43152
   191
'''
krauss@50598
   192
    prepare_isabelle_repository(loc_isabelle, dep_isabelle, more_settings = more_settings)
haftmann@41542
   193
    os.chdir(loc_isabelle)
haftmann@41542
   194
    
haftmann@41542
   195
    (return_code, log) = env.run_process('bin/isabelle',
haftmann@41542
   196
      'mutabelle', '-O', playground, theory)
haftmann@41542
   197
    
haftmann@41542
   198
    try:
haftmann@41542
   199
        mutabelle_log = util.readfile(path.join(playground, 'log'))
haftmann@41542
   200
    except IOError:
haftmann@41542
   201
        mutabelle_log = ''
haftmann@41542
   202
krauss@42472
   203
    mutabelle_data = dict(
krauss@42472
   204
        (tool, {'counterexample': c, 'no_counterexample': n, 'timeout': t, 'error': e})
krauss@42472
   205
        for tool, c, n, t, e in re.findall(r'(\S+)\s+: C: (\d+) N: (\d+) T: (\d+) E: (\d+)', log))
krauss@42472
   206
haftmann@41542
   207
    return (return_code == 0 and mutabelle_log != '', extract_isabelle_run_summary(log),
krauss@42472
   208
      {'mutabelle_results': {theory: mutabelle_data}},
haftmann@41652
   209
      {'log': log, 'mutabelle_log': mutabelle_log}, None)
haftmann@41542
   210
krauss@42948
   211
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   212
def Mutabelle_Relation(*args):
haftmann@41542
   213
    """Mutabelle regression suite on Relation theory"""
haftmann@41542
   214
    return invoke_mutabelle('Relation', *args)
haftmann@41542
   215
krauss@42948
   216
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   217
def Mutabelle_List(*args):
haftmann@41542
   218
    """Mutabelle regression suite on List theory"""
haftmann@41542
   219
    return invoke_mutabelle('List', *args)
haftmann@41542
   220
krauss@42948
   221
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   222
def Mutabelle_Set(*args):
haftmann@41542
   223
    """Mutabelle regression suite on Set theory"""
haftmann@41542
   224
    return invoke_mutabelle('Set', *args)
haftmann@41542
   225
krauss@42948
   226
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   227
def Mutabelle_Map(*args):
haftmann@41542
   228
    """Mutabelle regression suite on Map theory"""
haftmann@41542
   229
    return invoke_mutabelle('Map', *args)
haftmann@41542
   230
krauss@42948
   231
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   232
def Mutabelle_Divides(*args):
haftmann@41542
   233
    """Mutabelle regression suite on Divides theory"""
haftmann@41542
   234
    return invoke_mutabelle('Divides', *args)
haftmann@41542
   235
krauss@42948
   236
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   237
def Mutabelle_MacLaurin(*args):
haftmann@41542
   238
    """Mutabelle regression suite on MacLaurin theory"""
haftmann@41542
   239
    return invoke_mutabelle('MacLaurin', *args)
haftmann@41542
   240
krauss@42948
   241
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   242
def Mutabelle_Fun(*args):
haftmann@41542
   243
    """Mutabelle regression suite on Fun theory"""
haftmann@41542
   244
    return invoke_mutabelle('Fun', *args)
krauss@42040
   245
krauss@42393
   246
mutabelle_confs = 'Mutabelle_Relation Mutabelle_List Mutabelle_Set Mutabelle_Map Mutabelle_Divides Mutabelle_MacLaurin Mutabelle_Fun'.split(' ')
krauss@42393
   247
krauss@42393
   248
@scheduler()
krauss@42393
   249
def mutabelle_scheduler(env):
krauss@42393
   250
    """Scheduler for Mutabelle."""
krauss@42393
   251
    return schedule.age_scheduler(env, 'Isabelle', mutabelle_confs)
krauss@42040
   252
bulwahn@47896
   253
krauss@42040
   254
# Judgement Day configurations
krauss@42040
   255
krauss@42095
   256
judgement_day_provers = ('e', 'spass', 'vampire', 'z3', 'cvc3', 'yices')
krauss@42040
   257
krauss@42040
   258
def judgement_day(base_path, theory, opts, env, case, paths, dep_paths, playground):
krauss@42040
   259
    """Judgement Day regression suite"""
krauss@42040
   260
krauss@42040
   261
    isa = paths[0]
krauss@42040
   262
    dep_path = dep_paths[0]
krauss@42040
   263
krauss@42040
   264
    os.chdir(path.join(playground, '..', base_path)) # Mirabelle requires specific cwd
krauss@50594
   265
    prepare_isabelle_repository(isa, dep_path)
krauss@42040
   266
krauss@42040
   267
    output = {}
krauss@42040
   268
    success_rates = {}
krauss@42040
   269
    some_success = False
krauss@42040
   270
krauss@42040
   271
    for atp in judgement_day_provers:
krauss@42040
   272
krauss@42040
   273
        log_dir = path.join(playground, 'mirabelle_log_' + atp)
krauss@42040
   274
        os.makedirs(log_dir)
krauss@42040
   275
krauss@42040
   276
        cmd = ('%s/bin/isabelle mirabelle -q -O %s sledgehammer[prover=%s,%s] %s.thy'
krauss@42040
   277
               % (isa, log_dir, atp, opts, theory))
krauss@42040
   278
krauss@42040
   279
        os.system(cmd)
krauss@42040
   280
        output[atp] = util.readfile(path.join(log_dir, theory + '.log'))
krauss@42040
   281
krauss@42040
   282
        percentages = list(re.findall(r'Success rate: (\d+)%', output[atp]))
krauss@42040
   283
        if len(percentages) == 2:
krauss@42040
   284
            success_rates[atp] = {
krauss@42040
   285
                'sledgehammer': int(percentages[0]),
krauss@42040
   286
                'metis': int(percentages[1])}
krauss@42040
   287
            if success_rates[atp]['sledgehammer'] > 0:
krauss@42040
   288
                some_success = True
krauss@42040
   289
        else:
krauss@42040
   290
            success_rates[atp] = {}
krauss@42040
   291
krauss@42040
   292
krauss@42040
   293
    data = {'success_rates': success_rates}
krauss@42040
   294
    raw_attachments = dict((atp + "_output", output[atp]) for atp in judgement_day_provers)
krauss@42040
   295
    # FIXME: summary?
krauss@42040
   296
    return (some_success, '', data, raw_attachments, None)
krauss@42040
   297
krauss@42040
   298
krauss@42948
   299
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
krauss@42040
   300
def JD_NS(*args):
krauss@42040
   301
    """Judgement Day regression suite NS"""
krauss@42040
   302
    return judgement_day('Isabelle/src/HOL/Auth', 'NS_Shared', 'prover_timeout=10', *args)
krauss@42040
   303
krauss@42948
   304
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
krauss@42040
   305
def JD_FTA(*args):
krauss@42040
   306
    """Judgement Day regression suite FTA"""
krauss@42040
   307
    return judgement_day('Isabelle/src/HOL/Library', 'Fundamental_Theorem_Algebra', 'prover_timeout=10', *args)
krauss@42040
   308
krauss@42948
   309
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
krauss@42040
   310
def JD_Hoare(*args):
krauss@42040
   311
    """Judgement Day regression suite Hoare"""
krauss@42058
   312
    return judgement_day('Isabelle/src/HOL/IMPP', 'Hoare', 'prover_timeout=10', *args)
krauss@42040
   313
krauss@42948
   314
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
krauss@42040
   315
def JD_SN(*args):
krauss@42040
   316
    """Judgement Day regression suite SN"""
krauss@42058
   317
    return judgement_day('Isabelle/src/HOL/Proofs/Lambda', 'StrongNorm', 'prover_timeout=10', *args)
krauss@42040
   318
krauss@42116
   319
krauss@42192
   320
JD_confs = 'JD_NS JD_FTA JD_Hoare JD_SN JD_Arrow JD_FFT JD_Jinja JD_QE JD_S2S'.split(' ')
krauss@42192
   321
krauss@42192
   322
@scheduler()
krauss@42197
   323
def judgement_day_scheduler(env):
krauss@42192
   324
    """Scheduler for Judgement Day."""
krauss@42192
   325
    return schedule.age_scheduler(env, 'Isabelle', JD_confs)
krauss@42192
   326
krauss@42192
   327
krauss@42116
   328
# SML/NJ
krauss@42116
   329
krauss@42116
   330
smlnj_settings = '''
krauss@42116
   331
ML_SYSTEM=smlnj
wenzelm@53658
   332
ML_HOME="/home/smlnj/110.76/bin"
wenzelm@48443
   333
ML_OPTIONS="@SMLdebug=/dev/null @SMLalloc=1024"
krauss@42116
   334
ML_PLATFORM=$(eval $("$ML_HOME/.arch-n-opsys" 2>/dev/null); echo "$HEAP_SUFFIX")
krauss@42116
   335
'''
krauss@42116
   336
krauss@48686
   337
@configuration(repos = [Isabelle], deps = [(Pure, [0])])
krauss@42116
   338
def SML_HOL(*args):
krauss@42116
   339
    """HOL image built with SML/NJ"""
krauss@50599
   340
    return isabelle_build(*(args + ("-b", "HOL")), more_settings=smlnj_settings, timeout=SMLNJ_TIMEOUT)
krauss@42116
   341
krauss@42116
   342
@configuration(repos = [Isabelle], deps = [])
krauss@42116
   343
def SML_makeall(*args):
krauss@48686
   344
    """SML/NJ build of all possible sessions"""
krauss@50599
   345
    return isabelle_build(*(args + ("-j", "3", "-a")), more_settings=smlnj_settings, timeout=SMLNJ_TIMEOUT)
krauss@48686
   346
krauss@48686
   347