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