Admin/mira.py
author bulwahn
Wed May 09 11:24:38 2012 +0200 (2012-05-09)
changeset 47897 9d978604aee4
parent 47896 92b35ed6c396
child 48149 9cb0abdf7c07
permissions -rw-r--r--
build Pure_64 with new settings
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
krauss@42392
    13
from util import Lazy
haftmann@41542
    14
krauss@42392
    15
from mira.report import Report, Report_Content
krauss@42392
    16
from mira.case import Case
krauss@42392
    17
from mira.tools import tool
krauss@42823
    18
from mira import schedule, misc
krauss@42192
    19
from mira.environment import scheduler
haftmann@46931
    20
from mira import repositories
krauss@42192
    21
haftmann@41542
    22
# build and evaluation tools
haftmann@41542
    23
krauss@42821
    24
default_usedir_options = "$ISABELLE_USEDIR_OPTIONS -d pdf -g true -i true -t true"
haftmann@41542
    25
krauss@42821
    26
def prepare_isabelle_repository(loc_isabelle, loc_contrib, loc_dependency_heaps,
krauss@42821
    27
  usedir_options=default_usedir_options, more_settings=''):
krauss@42821
    28
krauss@42821
    29
    # prepare components
haftmann@41542
    30
    loc_contrib = path.expanduser(loc_contrib)
haftmann@41542
    31
    if not path.exists(loc_contrib):
haftmann@41542
    32
        raise IOError('Bad file: %s' % loc_contrib)
haftmann@41542
    33
    subprocess.check_call(['ln', '-s', loc_contrib, '%s/contrib' % loc_isabelle])
haftmann@41542
    34
haftmann@41542
    35
    contributed_components = path.join(loc_isabelle, 'Admin', 'contributed_components')
haftmann@41542
    36
    if path.exists(contributed_components):
haftmann@41542
    37
        components = []
haftmann@41542
    38
        for component in util.readfile_lines(contributed_components):
haftmann@41542
    39
            loc_component = path.join(loc_isabelle, component)
haftmann@41542
    40
            if path.exists(loc_component):
haftmann@41542
    41
                components.append(loc_component)
haftmann@41542
    42
        writer = open(path.join(loc_isabelle, 'etc', 'components'), 'a')
haftmann@41542
    43
        for component in components:
haftmann@41542
    44
            writer.write(component + '\n')
haftmann@41542
    45
        writer.close()
haftmann@41542
    46
krauss@42821
    47
    # provide existing dependencies
haftmann@41542
    48
    if loc_dependency_heaps:
haftmann@41542
    49
        isabelle_path = loc_dependency_heaps + '/$ISABELLE_IDENTIFIER:$ISABELLE_OUTPUT'
haftmann@41542
    50
    else:
haftmann@41542
    51
        isabelle_path = '$ISABELLE_OUTPUT'
haftmann@41542
    52
krauss@42821
    53
    # patch settings
haftmann@41542
    54
    extra_settings = '''
haftmann@41542
    55
ISABELLE_HOME_USER="$ISABELLE_HOME/home_user"
haftmann@41542
    56
ISABELLE_OUTPUT="$ISABELLE_HOME/heaps"
haftmann@41542
    57
ISABELLE_BROWSER_INFO="$ISABELLE_HOME/browser_info"
haftmann@41542
    58
ISABELLE_PATH="%s"
haftmann@41542
    59
krauss@42821
    60
ISABELLE_USEDIR_OPTIONS="%s"
haftmann@47190
    61
krauss@42109
    62
Z3_NON_COMMERCIAL="yes"
haftmann@47190
    63
krauss@42113
    64
%s
krauss@42821
    65
''' % (isabelle_path, usedir_options, more_settings)
haftmann@41542
    66
haftmann@41542
    67
    writer = open(path.join(loc_isabelle, 'etc', 'settings'), 'a')
haftmann@41542
    68
    writer.write(extra_settings)
haftmann@41542
    69
    writer.close()
haftmann@41542
    70
haftmann@41542
    71
krauss@45164
    72
def isabelle_getenv(isabelle_home, var):
krauss@45164
    73
krauss@45164
    74
    _, out = env.run_process('%s/bin/isabelle' % isabelle_home, 'getenv', var)
krauss@45164
    75
    return out.split('=', 1)[1].strip()
krauss@45164
    76
krauss@45164
    77
haftmann@41542
    78
def extract_isabelle_run_timing(logdata):
haftmann@41542
    79
haftmann@41542
    80
    def to_secs(h, m, s):
haftmann@41542
    81
        return (int(h) * 60 + int(m)) * 60 + int(s)
haftmann@41542
    82
    pat = r'Finished (\S+) \((\d+):(\d+):(\d+) elapsed time, (\d+):(\d+):(\d+) cpu time'
krauss@42186
    83
    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
    84
    t = dict((name, {'elapsed': to_secs(eh,em,es), 'cpu': to_secs(ch,cm,cs)})
haftmann@41542
    85
             for name, eh, em, es, ch, cm, cs in re.findall(pat, logdata))
krauss@42186
    86
    for name, threads, elapsed, cpu, gc, factor in re.findall(pat2, logdata):
haftmann@41542
    87
haftmann@41542
    88
        if name not in t:
haftmann@41542
    89
            t[name] = {}
haftmann@41542
    90
haftmann@41542
    91
        t[name]['threads'] = int(threads)
haftmann@41542
    92
        t[name]['elapsed_inner'] = elapsed
haftmann@41542
    93
        t[name]['cpu_inner'] = cpu
haftmann@41542
    94
        t[name]['gc'] = gc
krauss@42186
    95
        t[name]['factor'] = factor
haftmann@41542
    96
haftmann@41542
    97
    return t
haftmann@41542
    98
haftmann@41542
    99
haftmann@41542
   100
def extract_isabelle_run_summary(logdata):
haftmann@41542
   101
krauss@41894
   102
    re_error = re.compile(r'^(?:make: )?\*\*\* (.*)$', re.MULTILINE)
haftmann@41542
   103
    summary = '\n'.join(re_error.findall(logdata))
haftmann@41542
   104
    if summary == '':
haftmann@41542
   105
        summary = 'ok'
haftmann@41542
   106
haftmann@41542
   107
    return summary
haftmann@41542
   108
haftmann@41542
   109
krauss@45164
   110
def extract_image_size(isabelle_home):
krauss@45164
   111
    
krauss@45164
   112
    isabelle_output = isabelle_getenv(isabelle_home, 'ISABELLE_OUTPUT')
krauss@45164
   113
    return dict((p, path.getsize(path.join(isabelle_output, p))) for p in os.listdir(isabelle_output) if p != "log")
krauss@45164
   114
krauss@45164
   115
def extract_report_data(isabelle_home, logdata):
krauss@45164
   116
krauss@45164
   117
    return {
krauss@45164
   118
        'timing': extract_isabelle_run_timing(logdata),
krauss@45164
   119
        'image_size': extract_image_size(isabelle_home) }
krauss@45164
   120
krauss@45164
   121
krauss@42392
   122
@tool
krauss@42392
   123
def import_isatest_log(env, conf, logfile):
krauss@42392
   124
krauss@42392
   125
    """Imports isatest log file as a report."""
krauss@42392
   126
krauss@42392
   127
    def the_match(pat, text, name):
krauss@42392
   128
        match = re.search(pat, text)
krauss@42392
   129
        if not match: raise Exception('No match found for ' + name)
krauss@42392
   130
        return match.groups()
krauss@42392
   131
krauss@42392
   132
    def parse_date(d):
krauss@42392
   133
        return datetime.strptime(d, '%a %b %d %H:%M:%S %Z %Y')
krauss@42392
   134
krauss@42392
   135
    log = util.readfile(logfile)
krauss@42392
   136
krauss@42392
   137
    (begin_date, host) = the_match(r'-+ starting test -+ ([^-]*) -+ (\S*)', log, 'start tag')
krauss@42392
   138
    (isabelle_version,) = the_match(r'Isabelle version: ([a-f0-9]{12})', log, 'Isabelle version')
krauss@42392
   139
    (success, end_date) = the_match(r'-+ test (successful|FAILED) -+ ([^-]*) -', log, 'end tag')
krauss@42392
   140
    summary = extract_isabelle_run_summary(log)
krauss@42392
   141
    data = {'timing': extract_isabelle_run_timing(log)}
krauss@42392
   142
    atts = {'log': Lazy.simple(log)}
krauss@42392
   143
krauss@42392
   144
    content = Report_Content(summary, host, parse_date(begin_date),
krauss@42392
   145
      parse_date(end_date), Lazy.simple(data), atts)
krauss@42392
   146
    revision = ('Isabelle', env.repositories.get('Isabelle')[isabelle_version].hex())
krauss@42392
   147
    case = Case(conf, [revision])
krauss@42392
   148
krauss@42392
   149
    env.report_db.put(case, (success == 'successful'), content)
krauss@42392
   150
krauss@42392
   151
krauss@42392
   152
haftmann@41542
   153
def isabelle_usedir(env, isa_path, isabelle_usedir_opts, base_image, dir_name):
haftmann@41542
   154
haftmann@41542
   155
    return env.run_process('%s/bin/isabelle' % isa_path, 'usedir',
haftmann@41542
   156
        isabelle_usedir_opts, base_image, dir_name)
haftmann@41542
   157
haftmann@41542
   158
haftmann@41542
   159
def isabelle_dependency_only(env, case, paths, dep_paths, playground):
haftmann@41542
   160
krauss@42114
   161
    isabelle_home = paths[0]
krauss@42114
   162
    result = path.join(isabelle_home, 'heaps')
haftmann@41542
   163
    os.makedirs(result)
haftmann@41542
   164
    for dep_path in dep_paths:
haftmann@41542
   165
        subprocess.check_call(['cp', '-R'] + glob(dep_path + '/*') + [result])
haftmann@41542
   166
haftmann@41542
   167
    return (True, 'ok', {}, {}, result)
haftmann@41542
   168
haftmann@41542
   169
krauss@42821
   170
def build_isabelle_image(subdir, base, img, env, case, paths, dep_paths, playground,
krauss@42821
   171
  usedir_options=default_usedir_options, more_settings=''):
haftmann@41542
   172
krauss@42114
   173
    isabelle_home = paths[0]
haftmann@41542
   174
    dep_path = dep_paths[0]
krauss@42821
   175
    prepare_isabelle_repository(isabelle_home, env.settings.contrib, dep_path,
krauss@42821
   176
      usedir_options=usedir_options, more_settings=more_settings)
krauss@42114
   177
    os.chdir(path.join(isabelle_home, 'src', subdir))
haftmann@41542
   178
krauss@42114
   179
    (return_code, log) = isabelle_usedir(env, isabelle_home, '-b', base, img)
haftmann@41542
   180
krauss@42114
   181
    result = path.join(isabelle_home, 'heaps')
krauss@45164
   182
haftmann@41542
   183
    return (return_code == 0, extract_isabelle_run_summary(log),
krauss@45164
   184
      extract_report_data(isabelle_home, log), {'log': log}, result)
haftmann@41542
   185
haftmann@41542
   186
krauss@42821
   187
def isabelle_make(subdir, env, case, paths, dep_paths, playground, usedir_options=default_usedir_options,
krauss@42821
   188
  more_settings='', target='all', keep_results=False):
krauss@42115
   189
krauss@42115
   190
    isabelle_home = paths[0]
krauss@42115
   191
    dep_path = dep_paths[0] if dep_paths else None
krauss@42821
   192
    prepare_isabelle_repository(isabelle_home, env.settings.contrib, dep_path,
krauss@42821
   193
      usedir_options=usedir_options, more_settings=more_settings)
krauss@42115
   194
    os.chdir(path.join(isabelle_home, subdir))
krauss@42115
   195
krauss@42115
   196
    (return_code, log) = env.run_process('%s/bin/isabelle' % isabelle_home, 'make', '-k', target)
krauss@42115
   197
krauss@42140
   198
    result = path.join(isabelle_home, 'heaps') if keep_results else None
krauss@45164
   199
krauss@42115
   200
    return (return_code == 0, extract_isabelle_run_summary(log),
krauss@45164
   201
      extract_report_data(isabelle_home, log), {'log': log}, result)
krauss@42115
   202
krauss@42115
   203
krauss@42821
   204
def isabelle_makeall(env, case, paths, dep_paths, playground, usedir_options=default_usedir_options,
krauss@42821
   205
  more_settings='', target='all', make_options=()):
haftmann@41542
   206
krauss@42823
   207
    if 'lxbroy10' in misc.hostnames():
krauss@42823
   208
        make_options += ('-j', '8')
wenzelm@46200
   209
        usedir_options += " -M 4 -q 2 -i false -d false"
krauss@42823
   210
        more_settings += '''
krauss@42823
   211
ML_PLATFORM="x86_64-linux"
krauss@45157
   212
ML_HOME="/home/polyml/polyml-5.4.1/x86_64-linux"
krauss@42823
   213
ML_SYSTEM="polyml-5.4.1"
wenzelm@46200
   214
ML_OPTIONS="-H 4000 --gcthreads 4"
bulwahn@43334
   215
bulwahn@43334
   216
ISABELLE_GHC="/usr/bin/ghc"
krauss@42823
   217
'''
krauss@42823
   218
krauss@42114
   219
    isabelle_home = paths[0]
krauss@42115
   220
    dep_path = dep_paths[0] if dep_paths else None
krauss@42821
   221
    prepare_isabelle_repository(isabelle_home, env.settings.contrib, dep_path,
krauss@42821
   222
      usedir_options=usedir_options, more_settings=more_settings)
krauss@42114
   223
    os.chdir(isabelle_home)
haftmann@41542
   224
krauss@42121
   225
    (return_code, log) = env.run_process('%s/bin/isabelle' % isabelle_home, 'makeall', '-k', *(make_options + (target,)))
haftmann@41542
   226
haftmann@41542
   227
    return (return_code == 0, extract_isabelle_run_summary(log),
krauss@45164
   228
      extract_report_data(isabelle_home, log), {'log': log}, None)
haftmann@41542
   229
haftmann@41542
   230
krauss@43689
   231
def make_pure(env, case, paths, dep_paths, playground, more_settings=''):
haftmann@41542
   232
krauss@42114
   233
    isabelle_home = paths[0]
krauss@43689
   234
    prepare_isabelle_repository(isabelle_home, env.settings.contrib, '',
krauss@43689
   235
      more_settings=more_settings)
krauss@42114
   236
    os.chdir(path.join(isabelle_home, 'src', 'Pure'))
haftmann@41542
   237
krauss@42114
   238
    (return_code, log) = env.run_process('%s/bin/isabelle' % isabelle_home, 'make', 'Pure')
haftmann@41542
   239
krauss@42114
   240
    result = path.join(isabelle_home, 'heaps')
haftmann@41542
   241
    return (return_code == 0, extract_isabelle_run_summary(log),
haftmann@41542
   242
      {'timing': extract_isabelle_run_timing(log)}, {'log': log}, result)
haftmann@41542
   243
krauss@43689
   244
krauss@43689
   245
# Isabelle configurations
krauss@43689
   246
krauss@43689
   247
@configuration(repos = [Isabelle], deps = [])
krauss@43689
   248
def Pure(*args):
krauss@43689
   249
    """Pure image"""
krauss@43689
   250
    return make_pure(*args)
krauss@43689
   251
haftmann@41542
   252
@configuration(repos = [Isabelle], deps = [(Pure, [0])])
haftmann@41542
   253
def HOL(*args):
haftmann@41542
   254
    """HOL image"""
haftmann@41542
   255
    return build_isabelle_image('HOL', 'Pure', 'HOL', *args)
haftmann@41542
   256
haftmann@46934
   257
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@46934
   258
def HOL_Library(*args):
haftmann@46934
   259
    """HOL-Library image"""
haftmann@46934
   260
    return build_isabelle_image('HOL', 'HOL', 'HOL-Library', *args)
haftmann@46934
   261
haftmann@46934
   262
@configuration(repos = [Isabelle], deps = [(Pure, [0])])
haftmann@46934
   263
def ZF(*args):
haftmann@46934
   264
    """ZF image"""
haftmann@46934
   265
    return build_isabelle_image('ZF', 'Pure', 'ZF', *args)
haftmann@46934
   266
haftmann@46934
   267
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@46934
   268
def HOL_HOLCF(*args):
haftmann@46934
   269
    """HOLCF image"""
haftmann@46934
   270
    return build_isabelle_image('HOL/HOLCF', 'HOL', 'HOLCF', *args)
haftmann@46934
   271
bulwahn@47895
   272
settings64='''
bulwahn@47895
   273
ML_PLATFORM=x86_64-linux
bulwahn@47895
   274
ML_HOME="/home/polyml/polyml-5.4.1/x86_64-linux"
bulwahn@47895
   275
ML_SYSTEM="polyml-5.4.1"
bulwahn@47895
   276
'''
bulwahn@47895
   277
bulwahn@47897
   278
@configuration(repos = [Isabelle], deps = [])
bulwahn@47897
   279
def Pure_64(*args):
bulwahn@47897
   280
    """Pure image (64 bit)"""
bulwahn@47897
   281
    return make_pure(*args, more_settings=settings64)
bulwahn@47897
   282
krauss@43689
   283
@configuration(repos = [Isabelle], deps = [(Pure_64, [0])])
krauss@43689
   284
def HOL_64(*args):
krauss@43689
   285
    """HOL image (64 bit)"""
bulwahn@47895
   286
    return build_isabelle_image('HOL', 'Pure', 'HOL', *args, more_settings=settings64)
krauss@43689
   287
krauss@43689
   288
@configuration(repos = [Isabelle], deps = [(HOL_64, [0])])
krauss@43689
   289
def HOL_HOLCF_64(*args):
krauss@43689
   290
    """HOL-HOLCF image (64 bit)"""
bulwahn@47895
   291
    return build_isabelle_image('HOL/HOLCF', 'HOL', 'HOLCF', *args, more_settings=settings64)
haftmann@41542
   292
krauss@43689
   293
@configuration(repos = [Isabelle], deps = [(HOL_64, [0])])
krauss@43689
   294
def HOL_Nominal_64(*args):
krauss@43689
   295
    """HOL-Nominal image (64 bit)"""
bulwahn@47895
   296
    return build_isabelle_image('HOL/Nominal', 'HOL', 'HOL-Nominal', *args, more_settings=settings64)
haftmann@41542
   297
krauss@43689
   298
@configuration(repos = [Isabelle], deps = [(HOL_64, [0])])
krauss@43689
   299
def HOL_Word_64(*args):
krauss@43689
   300
    """HOL-Word image (64 bit)"""
bulwahn@47895
   301
    return build_isabelle_image('HOL/Word', 'HOL', 'HOL-Word', *args, more_settings=settings64)
haftmann@41542
   302
haftmann@41542
   303
@configuration(repos = [Isabelle], deps = [
krauss@43689
   304
    (HOL_64, [0]),
krauss@43689
   305
    (HOL_HOLCF_64, [0]),
krauss@43689
   306
    (HOL_Nominal_64, [0]),
krauss@43689
   307
    (HOL_Word_64, [0])
haftmann@41542
   308
  ])
haftmann@41542
   309
def AFP_images(*args):
krauss@43689
   310
    """Isabelle images needed for the AFP (64 bit)"""
haftmann@41542
   311
    return isabelle_dependency_only(*args)
haftmann@41542
   312
krauss@42822
   313
@configuration(repos = [Isabelle], deps = [])
haftmann@41542
   314
def Isabelle_makeall(*args):
haftmann@41542
   315
    """Isabelle makeall"""
haftmann@41542
   316
    return isabelle_makeall(*args)
haftmann@41542
   317
haftmann@41542
   318
haftmann@46934
   319
# distribution and documentation Build
haftmann@46931
   320
haftmann@46931
   321
@configuration(repos = [Isabelle], deps = [])
haftmann@46931
   322
def Distribution(env, case, paths, dep_paths, playground):
haftmann@46934
   323
    """Build of distribution"""
haftmann@46931
   324
    ## FIXME This is rudimentary; study Admin/CHECKLIST to complete this configuration accordingly
haftmann@46931
   325
    isabelle_home = paths[0]
haftmann@46934
   326
    (return_code, log) = env.run_process(path.join(isabelle_home, 'Admin', 'makedist'),
haftmann@46931
   327
      REPOS = repositories.get(Isabelle).local_path, DISTPREFIX = os.getcwd())
haftmann@46931
   328
    return (return_code == 0, '', ## FIXME might add summary here
haftmann@46931
   329
      {}, {'log': log}, None) ## FIXME might add proper result here
haftmann@46931
   330
haftmann@46934
   331
@configuration(repos = [Isabelle], deps = [
haftmann@46934
   332
    (HOL, [0]),
haftmann@46934
   333
    (HOL_HOLCF, [0]),
haftmann@46934
   334
    (ZF, [0]),
haftmann@46934
   335
    (HOL_Library, [0])
haftmann@46934
   336
  ])
haftmann@46934
   337
def Documentation_images(*args):
haftmann@46934
   338
    """Isabelle images needed to build the documentation"""
haftmann@46934
   339
    return isabelle_dependency_only(*args)
haftmann@46934
   340
haftmann@46934
   341
@configuration(repos = [Isabelle], deps = [(Documentation_images, [0])])
haftmann@46934
   342
def Documentation(env, case, paths, dep_paths, playground):
haftmann@46934
   343
    """Build of documentation"""
haftmann@46934
   344
    isabelle_home = paths[0]
haftmann@46934
   345
    dep_path = dep_paths[0]
haftmann@46934
   346
    prepare_isabelle_repository(isabelle_home, env.settings.contrib, dep_path,
haftmann@46934
   347
      usedir_options = default_usedir_options)
haftmann@46934
   348
    (return_code, log) = env.run_process(path.join(isabelle_home, 'Admin', 'build', 'doc-src'))
haftmann@46934
   349
    return (return_code == 0, extract_isabelle_run_summary(log),
haftmann@46934
   350
      extract_report_data(isabelle_home, log), {'log': log}, None)
haftmann@46934
   351
haftmann@46931
   352
haftmann@41542
   353
# Mutabelle configurations
haftmann@41542
   354
haftmann@41542
   355
def invoke_mutabelle(theory, env, case, paths, dep_paths, playground):
haftmann@41542
   356
haftmann@41542
   357
    """Mutant testing for counterexample generators in Isabelle"""
haftmann@41542
   358
haftmann@41542
   359
    (loc_isabelle,) = paths
haftmann@41542
   360
    (dep_isabelle,) = dep_paths
bulwahn@43152
   361
    more_settings = '''
bulwahn@43153
   362
ISABELLE_GHC="/usr/bin/ghc"
bulwahn@43152
   363
'''
bulwahn@43152
   364
    prepare_isabelle_repository(loc_isabelle, env.settings.contrib, dep_isabelle,
bulwahn@43152
   365
      more_settings = more_settings)
haftmann@41542
   366
    os.chdir(loc_isabelle)
haftmann@41542
   367
    
haftmann@41542
   368
    (return_code, log) = env.run_process('bin/isabelle',
haftmann@41542
   369
      'mutabelle', '-O', playground, theory)
haftmann@41542
   370
    
haftmann@41542
   371
    try:
haftmann@41542
   372
        mutabelle_log = util.readfile(path.join(playground, 'log'))
haftmann@41542
   373
    except IOError:
haftmann@41542
   374
        mutabelle_log = ''
haftmann@41542
   375
krauss@42472
   376
    mutabelle_data = dict(
krauss@42472
   377
        (tool, {'counterexample': c, 'no_counterexample': n, 'timeout': t, 'error': e})
krauss@42472
   378
        for tool, c, n, t, e in re.findall(r'(\S+)\s+: C: (\d+) N: (\d+) T: (\d+) E: (\d+)', log))
krauss@42472
   379
haftmann@41542
   380
    return (return_code == 0 and mutabelle_log != '', extract_isabelle_run_summary(log),
krauss@42472
   381
      {'mutabelle_results': {theory: mutabelle_data}},
haftmann@41652
   382
      {'log': log, 'mutabelle_log': mutabelle_log}, None)
haftmann@41542
   383
krauss@42948
   384
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   385
def Mutabelle_Relation(*args):
haftmann@41542
   386
    """Mutabelle regression suite on Relation theory"""
haftmann@41542
   387
    return invoke_mutabelle('Relation', *args)
haftmann@41542
   388
krauss@42948
   389
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   390
def Mutabelle_List(*args):
haftmann@41542
   391
    """Mutabelle regression suite on List theory"""
haftmann@41542
   392
    return invoke_mutabelle('List', *args)
haftmann@41542
   393
krauss@42948
   394
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   395
def Mutabelle_Set(*args):
haftmann@41542
   396
    """Mutabelle regression suite on Set theory"""
haftmann@41542
   397
    return invoke_mutabelle('Set', *args)
haftmann@41542
   398
krauss@42948
   399
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   400
def Mutabelle_Map(*args):
haftmann@41542
   401
    """Mutabelle regression suite on Map theory"""
haftmann@41542
   402
    return invoke_mutabelle('Map', *args)
haftmann@41542
   403
krauss@42948
   404
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   405
def Mutabelle_Divides(*args):
haftmann@41542
   406
    """Mutabelle regression suite on Divides theory"""
haftmann@41542
   407
    return invoke_mutabelle('Divides', *args)
haftmann@41542
   408
krauss@42948
   409
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   410
def Mutabelle_MacLaurin(*args):
haftmann@41542
   411
    """Mutabelle regression suite on MacLaurin theory"""
haftmann@41542
   412
    return invoke_mutabelle('MacLaurin', *args)
haftmann@41542
   413
krauss@42948
   414
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   415
def Mutabelle_Fun(*args):
haftmann@41542
   416
    """Mutabelle regression suite on Fun theory"""
haftmann@41542
   417
    return invoke_mutabelle('Fun', *args)
krauss@42040
   418
krauss@42393
   419
mutabelle_confs = 'Mutabelle_Relation Mutabelle_List Mutabelle_Set Mutabelle_Map Mutabelle_Divides Mutabelle_MacLaurin Mutabelle_Fun'.split(' ')
krauss@42393
   420
krauss@42393
   421
@scheduler()
krauss@42393
   422
def mutabelle_scheduler(env):
krauss@42393
   423
    """Scheduler for Mutabelle."""
krauss@42393
   424
    return schedule.age_scheduler(env, 'Isabelle', mutabelle_confs)
krauss@42040
   425
bulwahn@47896
   426
krauss@42040
   427
# Judgement Day configurations
krauss@42040
   428
krauss@42095
   429
judgement_day_provers = ('e', 'spass', 'vampire', 'z3', 'cvc3', 'yices')
krauss@42040
   430
krauss@42040
   431
def judgement_day(base_path, theory, opts, env, case, paths, dep_paths, playground):
krauss@42040
   432
    """Judgement Day regression suite"""
krauss@42040
   433
krauss@42040
   434
    isa = paths[0]
krauss@42040
   435
    dep_path = dep_paths[0]
krauss@42040
   436
krauss@42040
   437
    os.chdir(path.join(playground, '..', base_path)) # Mirabelle requires specific cwd
krauss@42040
   438
    prepare_isabelle_repository(isa, env.settings.contrib, dep_path)
krauss@42040
   439
krauss@42040
   440
    output = {}
krauss@42040
   441
    success_rates = {}
krauss@42040
   442
    some_success = False
krauss@42040
   443
krauss@42040
   444
    for atp in judgement_day_provers:
krauss@42040
   445
krauss@42040
   446
        log_dir = path.join(playground, 'mirabelle_log_' + atp)
krauss@42040
   447
        os.makedirs(log_dir)
krauss@42040
   448
krauss@42040
   449
        cmd = ('%s/bin/isabelle mirabelle -q -O %s sledgehammer[prover=%s,%s] %s.thy'
krauss@42040
   450
               % (isa, log_dir, atp, opts, theory))
krauss@42040
   451
krauss@42040
   452
        os.system(cmd)
krauss@42040
   453
        output[atp] = util.readfile(path.join(log_dir, theory + '.log'))
krauss@42040
   454
krauss@42040
   455
        percentages = list(re.findall(r'Success rate: (\d+)%', output[atp]))
krauss@42040
   456
        if len(percentages) == 2:
krauss@42040
   457
            success_rates[atp] = {
krauss@42040
   458
                'sledgehammer': int(percentages[0]),
krauss@42040
   459
                'metis': int(percentages[1])}
krauss@42040
   460
            if success_rates[atp]['sledgehammer'] > 0:
krauss@42040
   461
                some_success = True
krauss@42040
   462
        else:
krauss@42040
   463
            success_rates[atp] = {}
krauss@42040
   464
krauss@42040
   465
krauss@42040
   466
    data = {'success_rates': success_rates}
krauss@42040
   467
    raw_attachments = dict((atp + "_output", output[atp]) for atp in judgement_day_provers)
krauss@42040
   468
    # FIXME: summary?
krauss@42040
   469
    return (some_success, '', data, raw_attachments, None)
krauss@42040
   470
krauss@42040
   471
krauss@42948
   472
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
krauss@42040
   473
def JD_NS(*args):
krauss@42040
   474
    """Judgement Day regression suite NS"""
krauss@42040
   475
    return judgement_day('Isabelle/src/HOL/Auth', 'NS_Shared', 'prover_timeout=10', *args)
krauss@42040
   476
krauss@42948
   477
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
krauss@42040
   478
def JD_FTA(*args):
krauss@42040
   479
    """Judgement Day regression suite FTA"""
krauss@42040
   480
    return judgement_day('Isabelle/src/HOL/Library', 'Fundamental_Theorem_Algebra', 'prover_timeout=10', *args)
krauss@42040
   481
krauss@42948
   482
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
krauss@42040
   483
def JD_Hoare(*args):
krauss@42040
   484
    """Judgement Day regression suite Hoare"""
krauss@42058
   485
    return judgement_day('Isabelle/src/HOL/IMPP', 'Hoare', 'prover_timeout=10', *args)
krauss@42040
   486
krauss@42948
   487
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
krauss@42040
   488
def JD_SN(*args):
krauss@42040
   489
    """Judgement Day regression suite SN"""
krauss@42058
   490
    return judgement_day('Isabelle/src/HOL/Proofs/Lambda', 'StrongNorm', 'prover_timeout=10', *args)
krauss@42040
   491
krauss@42116
   492
krauss@42192
   493
JD_confs = 'JD_NS JD_FTA JD_Hoare JD_SN JD_Arrow JD_FFT JD_Jinja JD_QE JD_S2S'.split(' ')
krauss@42192
   494
krauss@42192
   495
@scheduler()
krauss@42197
   496
def judgement_day_scheduler(env):
krauss@42192
   497
    """Scheduler for Judgement Day."""
krauss@42192
   498
    return schedule.age_scheduler(env, 'Isabelle', JD_confs)
krauss@42192
   499
krauss@42192
   500
krauss@42116
   501
# SML/NJ
krauss@42116
   502
krauss@42116
   503
smlnj_settings = '''
krauss@42116
   504
ML_SYSTEM=smlnj
krauss@42116
   505
ML_HOME="/home/smlnj/110.72/bin"
krauss@42116
   506
ML_OPTIONS="@SMLdebug=/dev/null @SMLalloc=256"
krauss@42116
   507
ML_PLATFORM=$(eval $("$ML_HOME/.arch-n-opsys" 2>/dev/null); echo "$HEAP_SUFFIX")
krauss@42116
   508
'''
krauss@42116
   509
krauss@42116
   510
@configuration(repos = [Isabelle], deps = [])
krauss@42116
   511
def SML_HOL(*args):
krauss@42116
   512
    """HOL image built with SML/NJ"""
krauss@42140
   513
    return isabelle_make('src/HOL', *args, more_settings=smlnj_settings, target='HOL', keep_results=True)
krauss@42116
   514
krauss@42116
   515
@configuration(repos = [Isabelle], deps = [])
krauss@42116
   516
def SML_makeall(*args):
krauss@42116
   517
    """Makeall built with SML/NJ"""
krauss@42138
   518
    return isabelle_makeall(*args, more_settings=smlnj_settings, target='smlnj', make_options=('-j', '3'))
krauss@43894
   519
krauss@43894
   520
krauss@43894
   521
krauss@43894
   522
# Importer
krauss@43894
   523
krauss@43894
   524
@configuration(repos = ['Hollight'], deps = [])
krauss@43894
   525
def Hollight_proof_objects(env, case, paths, dep_paths, playground):
krauss@43894
   526
    """Build proof object bundle from HOL Light"""
krauss@43894
   527
krauss@43894
   528
    hollight_home = paths[0]
krauss@43894
   529
    os.chdir(os.path.join(hollight_home, 'Proofrecording', 'hol_light'))
krauss@43894
   530
krauss@43894
   531
    subprocess.check_call(['make'])
krauss@43897
   532
    (return_code, _) = util.run_process.run_process(
krauss@43894
   533
       '''echo -e '#use "hol.ml";;\n export_saved_proofs None;;' | ocaml''',
krauss@43894
   534
       environment={'HOLPROOFEXPORTDIR': './proofs_extended', 'HOLPROOFOBJECTS': 'EXTENDED'},
krauss@43894
   535
       shell=True)
krauss@43894
   536
    subprocess.check_call('tar -czf proofs_extended.tar.gz proofs_extended'.split(' '))
krauss@43894
   537
    subprocess.check_call(['mv', 'proofs_extended.tar.gz', playground])
krauss@43894
   538
krauss@43894
   539
    return (return_code == 0, '', {}, {}, playground)
krauss@43894
   540
krauss@43894
   541
krauss@43894
   542
@configuration(repos = [Isabelle, 'Hollight'], deps = [(Hollight_proof_objects, [1])])
krauss@43894
   543
def HOL_Generate_HOLLight(env, case, paths, dep_paths, playground):
krauss@43894
   544
    """Generated theories by HOL Light import"""
krauss@43894
   545
krauss@43894
   546
    os.chdir(playground)
krauss@43894
   547
    subprocess.check_call(['tar', '-xzf', path.join(dep_paths[0], 'proofs_extended.tar.gz')])
krauss@43894
   548
    proofs_dir = path.join(playground, 'proofs_extended')
krauss@43894
   549
krauss@43894
   550
    return isabelle_make('src/HOL', env, case, paths, dep_paths, playground,
krauss@43903
   551
      more_settings=('HOL4_PROOFS="%s"' % proofs_dir), target='HOL-Generate-HOLLight')