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