Admin/mira.py
author krauss
Mon Apr 18 12:12:42 2011 +0200 (2011-04-18)
changeset 42393 c9bf3f8a8930
parent 42392 0045b85101c9
child 42472 8a33a5596ba8
permissions -rw-r--r--
scheduler for Mutabelle regression
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@42192
    18
from mira import schedule
krauss@42192
    19
from mira.environment import scheduler
krauss@42192
    20
haftmann@41542
    21
haftmann@41542
    22
# build and evaluation tools
haftmann@41542
    23
krauss@42113
    24
def prepare_isabelle_repository(loc_isabelle, loc_contrib, loc_dependency_heaps, parallelism = True, more_settings=''):
haftmann@41542
    25
haftmann@41542
    26
    loc_contrib = path.expanduser(loc_contrib)
haftmann@41542
    27
    if not path.exists(loc_contrib):
haftmann@41542
    28
        raise IOError('Bad file: %s' % loc_contrib)
haftmann@41542
    29
    subprocess.check_call(['ln', '-s', loc_contrib, '%s/contrib' % loc_isabelle])
haftmann@41542
    30
haftmann@41542
    31
    contributed_components = path.join(loc_isabelle, 'Admin', 'contributed_components')
haftmann@41542
    32
    if path.exists(contributed_components):
haftmann@41542
    33
        components = []
haftmann@41542
    34
        for component in util.readfile_lines(contributed_components):
haftmann@41542
    35
            loc_component = path.join(loc_isabelle, component)
haftmann@41542
    36
            if path.exists(loc_component):
haftmann@41542
    37
                components.append(loc_component)
haftmann@41542
    38
        writer = open(path.join(loc_isabelle, 'etc', 'components'), 'a')
haftmann@41542
    39
        for component in components:
haftmann@41542
    40
            writer.write(component + '\n')
haftmann@41542
    41
        writer.close()
haftmann@41542
    42
haftmann@41542
    43
    if loc_dependency_heaps:
haftmann@41542
    44
        isabelle_path = loc_dependency_heaps + '/$ISABELLE_IDENTIFIER:$ISABELLE_OUTPUT'
haftmann@41542
    45
    else:
haftmann@41542
    46
        isabelle_path = '$ISABELLE_OUTPUT'
haftmann@41542
    47
haftmann@41542
    48
    if parallelism:
haftmann@41542
    49
        parallelism_options = '-M max'
haftmann@41542
    50
    else:
haftmann@41542
    51
        parallelism_options = '-M 1 -q 0'
haftmann@41542
    52
haftmann@41542
    53
    extra_settings = '''
haftmann@41542
    54
ISABELLE_HOME_USER="$ISABELLE_HOME/home_user"
haftmann@41542
    55
ISABELLE_OUTPUT="$ISABELLE_HOME/heaps"
haftmann@41542
    56
ISABELLE_BROWSER_INFO="$ISABELLE_HOME/browser_info"
haftmann@41542
    57
ISABELLE_PATH="%s"
haftmann@41542
    58
haftmann@41542
    59
ISABELLE_USEDIR_OPTIONS="$ISABELLE_USEDIR_OPTIONS %s -t true -v true -d pdf -g true -i true"
krauss@42109
    60
Z3_NON_COMMERCIAL="yes"
krauss@42113
    61
%s
krauss@42113
    62
''' % (isabelle_path, parallelism_options, more_settings)
haftmann@41542
    63
haftmann@41542
    64
    writer = open(path.join(loc_isabelle, 'etc', 'settings'), 'a')
haftmann@41542
    65
    writer.write(extra_settings)
haftmann@41542
    66
    writer.close()
haftmann@41542
    67
haftmann@41542
    68
haftmann@41542
    69
def extract_isabelle_run_timing(logdata):
haftmann@41542
    70
haftmann@41542
    71
    def to_secs(h, m, s):
haftmann@41542
    72
        return (int(h) * 60 + int(m)) * 60 + int(s)
haftmann@41542
    73
    pat = r'Finished (\S+) \((\d+):(\d+):(\d+) elapsed time, (\d+):(\d+):(\d+) cpu time'
krauss@42186
    74
    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
    75
    t = dict((name, {'elapsed': to_secs(eh,em,es), 'cpu': to_secs(ch,cm,cs)})
haftmann@41542
    76
             for name, eh, em, es, ch, cm, cs in re.findall(pat, logdata))
krauss@42186
    77
    for name, threads, elapsed, cpu, gc, factor in re.findall(pat2, logdata):
haftmann@41542
    78
haftmann@41542
    79
        if name not in t:
haftmann@41542
    80
            t[name] = {}
haftmann@41542
    81
haftmann@41542
    82
        t[name]['threads'] = int(threads)
haftmann@41542
    83
        t[name]['elapsed_inner'] = elapsed
haftmann@41542
    84
        t[name]['cpu_inner'] = cpu
haftmann@41542
    85
        t[name]['gc'] = gc
krauss@42186
    86
        t[name]['factor'] = factor
haftmann@41542
    87
haftmann@41542
    88
    return t
haftmann@41542
    89
haftmann@41542
    90
haftmann@41542
    91
def extract_isabelle_run_summary(logdata):
haftmann@41542
    92
krauss@41894
    93
    re_error = re.compile(r'^(?:make: )?\*\*\* (.*)$', re.MULTILINE)
haftmann@41542
    94
    summary = '\n'.join(re_error.findall(logdata))
haftmann@41542
    95
    if summary == '':
haftmann@41542
    96
        summary = 'ok'
haftmann@41542
    97
haftmann@41542
    98
    return summary
haftmann@41542
    99
haftmann@41542
   100
krauss@42392
   101
@tool
krauss@42392
   102
def import_isatest_log(env, conf, logfile):
krauss@42392
   103
krauss@42392
   104
    """Imports isatest log file as a report."""
krauss@42392
   105
krauss@42392
   106
    def the_match(pat, text, name):
krauss@42392
   107
        match = re.search(pat, text)
krauss@42392
   108
        if not match: raise Exception('No match found for ' + name)
krauss@42392
   109
        return match.groups()
krauss@42392
   110
krauss@42392
   111
    def parse_date(d):
krauss@42392
   112
        return datetime.strptime(d, '%a %b %d %H:%M:%S %Z %Y')
krauss@42392
   113
krauss@42392
   114
    log = util.readfile(logfile)
krauss@42392
   115
krauss@42392
   116
    (begin_date, host) = the_match(r'-+ starting test -+ ([^-]*) -+ (\S*)', log, 'start tag')
krauss@42392
   117
    (isabelle_version,) = the_match(r'Isabelle version: ([a-f0-9]{12})', log, 'Isabelle version')
krauss@42392
   118
    (success, end_date) = the_match(r'-+ test (successful|FAILED) -+ ([^-]*) -', log, 'end tag')
krauss@42392
   119
    summary = extract_isabelle_run_summary(log)
krauss@42392
   120
    data = {'timing': extract_isabelle_run_timing(log)}
krauss@42392
   121
    atts = {'log': Lazy.simple(log)}
krauss@42392
   122
krauss@42392
   123
    content = Report_Content(summary, host, parse_date(begin_date),
krauss@42392
   124
      parse_date(end_date), Lazy.simple(data), atts)
krauss@42392
   125
    revision = ('Isabelle', env.repositories.get('Isabelle')[isabelle_version].hex())
krauss@42392
   126
    case = Case(conf, [revision])
krauss@42392
   127
krauss@42392
   128
    env.report_db.put(case, (success == 'successful'), content)
krauss@42392
   129
krauss@42392
   130
krauss@42392
   131
haftmann@41542
   132
def isabelle_usedir(env, isa_path, isabelle_usedir_opts, base_image, dir_name):
haftmann@41542
   133
haftmann@41542
   134
    return env.run_process('%s/bin/isabelle' % isa_path, 'usedir',
haftmann@41542
   135
        isabelle_usedir_opts, base_image, dir_name)
haftmann@41542
   136
haftmann@41542
   137
haftmann@41542
   138
def isabelle_dependency_only(env, case, paths, dep_paths, playground):
haftmann@41542
   139
krauss@42114
   140
    isabelle_home = paths[0]
krauss@42114
   141
    result = path.join(isabelle_home, 'heaps')
haftmann@41542
   142
    os.makedirs(result)
haftmann@41542
   143
    for dep_path in dep_paths:
haftmann@41542
   144
        subprocess.check_call(['cp', '-R'] + glob(dep_path + '/*') + [result])
haftmann@41542
   145
haftmann@41542
   146
    return (True, 'ok', {}, {}, result)
haftmann@41542
   147
haftmann@41542
   148
krauss@42113
   149
def build_isabelle_image(subdir, base, img, env, case, paths, dep_paths, playground, more_settings=''):
haftmann@41542
   150
krauss@42114
   151
    isabelle_home = paths[0]
haftmann@41542
   152
    dep_path = dep_paths[0]
krauss@42120
   153
    prepare_isabelle_repository(isabelle_home, env.settings.contrib, dep_path, more_settings=more_settings)
krauss@42114
   154
    os.chdir(path.join(isabelle_home, 'src', subdir))
haftmann@41542
   155
krauss@42114
   156
    (return_code, log) = isabelle_usedir(env, isabelle_home, '-b', base, img)
haftmann@41542
   157
krauss@42114
   158
    result = path.join(isabelle_home, 'heaps')
haftmann@41542
   159
    return (return_code == 0, extract_isabelle_run_summary(log),
haftmann@41542
   160
      {'timing': extract_isabelle_run_timing(log)}, {'log': log}, result)
haftmann@41542
   161
haftmann@41542
   162
krauss@42140
   163
def isabelle_make(subdir, env, case, paths, dep_paths, playground, more_settings='', target='all', keep_results=False):
krauss@42115
   164
krauss@42115
   165
    isabelle_home = paths[0]
krauss@42115
   166
    dep_path = dep_paths[0] if dep_paths else None
krauss@42115
   167
    prepare_isabelle_repository(isabelle_home, env.settings.contrib, dep_path, more_settings=more_settings)
krauss@42115
   168
    os.chdir(path.join(isabelle_home, subdir))
krauss@42115
   169
krauss@42115
   170
    (return_code, log) = env.run_process('%s/bin/isabelle' % isabelle_home, 'make', '-k', target)
krauss@42115
   171
krauss@42140
   172
    result = path.join(isabelle_home, 'heaps') if keep_results else None
krauss@42115
   173
    return (return_code == 0, extract_isabelle_run_summary(log),
krauss@42140
   174
      {'timing': extract_isabelle_run_timing(log)}, {'log': log}, result)
krauss@42115
   175
krauss@42115
   176
krauss@42121
   177
def isabelle_makeall(env, case, paths, dep_paths, playground, more_settings='', target='all', make_options=()):
haftmann@41542
   178
krauss@42114
   179
    isabelle_home = paths[0]
krauss@42115
   180
    dep_path = dep_paths[0] if dep_paths else None
krauss@42114
   181
    prepare_isabelle_repository(isabelle_home, env.settings.contrib, dep_path, more_settings=more_settings)
krauss@42114
   182
    os.chdir(isabelle_home)
haftmann@41542
   183
krauss@42121
   184
    (return_code, log) = env.run_process('%s/bin/isabelle' % isabelle_home, 'makeall', '-k', *(make_options + (target,)))
haftmann@41542
   185
haftmann@41542
   186
    return (return_code == 0, extract_isabelle_run_summary(log),
haftmann@41542
   187
      {'timing': extract_isabelle_run_timing(log)}, {'log': log}, None)
haftmann@41542
   188
haftmann@41542
   189
haftmann@41542
   190
# Isabelle configurations
haftmann@41542
   191
haftmann@41542
   192
@configuration(repos = [Isabelle], deps = [])
haftmann@41542
   193
def Pure(env, case, paths, dep_paths, playground):
haftmann@41542
   194
    """Pure image"""
haftmann@41542
   195
krauss@42114
   196
    isabelle_home = paths[0]
krauss@42114
   197
    prepare_isabelle_repository(isabelle_home, env.settings.contrib, '')
krauss@42114
   198
    os.chdir(path.join(isabelle_home, 'src', 'Pure'))
haftmann@41542
   199
krauss@42114
   200
    (return_code, log) = env.run_process('%s/bin/isabelle' % isabelle_home, 'make', 'Pure')
haftmann@41542
   201
krauss@42114
   202
    result = path.join(isabelle_home, 'heaps')
haftmann@41542
   203
    return (return_code == 0, extract_isabelle_run_summary(log),
haftmann@41542
   204
      {'timing': extract_isabelle_run_timing(log)}, {'log': log}, result)
haftmann@41542
   205
haftmann@41542
   206
@configuration(repos = [Isabelle], deps = [(Pure, [0])])
haftmann@41542
   207
def FOL(*args):
haftmann@41542
   208
    """FOL image"""
haftmann@41542
   209
    return build_isabelle_image('FOL', 'Pure', 'FOL', *args)
haftmann@41542
   210
haftmann@41542
   211
@configuration(repos = [Isabelle], deps = [(Pure, [0])])
haftmann@41542
   212
def HOL(*args):
haftmann@41542
   213
    """HOL image"""
haftmann@41542
   214
    return build_isabelle_image('HOL', 'Pure', 'HOL', *args)
haftmann@41542
   215
haftmann@41542
   216
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   217
def HOL_HOLCF(*args):
haftmann@41542
   218
    """HOL-HOLCF image"""
haftmann@41542
   219
    return build_isabelle_image('HOL/HOLCF', 'HOL', 'HOLCF', *args)
haftmann@41542
   220
haftmann@41542
   221
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   222
def HOL_Nominal(*args):
haftmann@41542
   223
    """HOL-Nominal image"""
haftmann@41542
   224
    return build_isabelle_image('HOL/Nominal', 'HOL', 'HOL-Nominal', *args)
haftmann@41542
   225
haftmann@41542
   226
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   227
def HOL_Word(*args):
haftmann@41542
   228
    """HOL-Word image"""
haftmann@41542
   229
    return build_isabelle_image('HOL/Word', 'HOL', 'HOL-Word', *args)
haftmann@41542
   230
haftmann@41542
   231
@configuration(repos = [Isabelle], deps = [
haftmann@41542
   232
    (HOL, [0]),
haftmann@41542
   233
    (HOL_HOLCF, [0]),
haftmann@41542
   234
    (HOL_Nominal, [0]),
haftmann@41542
   235
    (HOL_Word, [0])
haftmann@41542
   236
  ])
haftmann@41542
   237
def AFP_images(*args):
haftmann@41542
   238
    """Isabelle images needed for the AFP"""
haftmann@41542
   239
    return isabelle_dependency_only(*args)
haftmann@41542
   240
haftmann@41542
   241
@configuration(repos = [Isabelle], deps = [
haftmann@41542
   242
    (AFP_images, [0])
haftmann@41542
   243
  ])
haftmann@41542
   244
def Isabelle_makeall(*args):
haftmann@41542
   245
    """Isabelle makeall"""
haftmann@41542
   246
    return isabelle_makeall(*args)
haftmann@41542
   247
haftmann@41542
   248
haftmann@41542
   249
# Mutabelle configurations
haftmann@41542
   250
haftmann@41542
   251
def invoke_mutabelle(theory, env, case, paths, dep_paths, playground):
haftmann@41542
   252
haftmann@41542
   253
    """Mutant testing for counterexample generators in Isabelle"""
haftmann@41542
   254
haftmann@41542
   255
    (loc_isabelle,) = paths
haftmann@41542
   256
    (dep_isabelle,) = dep_paths
haftmann@41542
   257
    prepare_isabelle_repository(loc_isabelle, env.settings.contrib, dep_isabelle)
haftmann@41542
   258
    os.chdir(loc_isabelle)
haftmann@41542
   259
    
haftmann@41542
   260
    (return_code, log) = env.run_process('bin/isabelle',
haftmann@41542
   261
      'mutabelle', '-O', playground, theory)
haftmann@41542
   262
    
haftmann@41542
   263
    try:
haftmann@41542
   264
        mutabelle_log = util.readfile(path.join(playground, 'log'))
haftmann@41542
   265
    except IOError:
haftmann@41542
   266
        mutabelle_log = ''
haftmann@41542
   267
haftmann@41542
   268
    return (return_code == 0 and mutabelle_log != '', extract_isabelle_run_summary(log),
haftmann@41652
   269
      {'timing': extract_isabelle_run_timing(log)},
haftmann@41652
   270
      {'log': log, 'mutabelle_log': mutabelle_log}, None)
haftmann@41542
   271
haftmann@41542
   272
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   273
def Mutabelle_Relation(*args):
haftmann@41542
   274
    """Mutabelle regression suite on Relation theory"""
haftmann@41542
   275
    return invoke_mutabelle('Relation', *args)
haftmann@41542
   276
haftmann@41542
   277
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   278
def Mutabelle_List(*args):
haftmann@41542
   279
    """Mutabelle regression suite on List theory"""
haftmann@41542
   280
    return invoke_mutabelle('List', *args)
haftmann@41542
   281
haftmann@41542
   282
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   283
def Mutabelle_Set(*args):
haftmann@41542
   284
    """Mutabelle regression suite on Set theory"""
haftmann@41542
   285
    return invoke_mutabelle('Set', *args)
haftmann@41542
   286
haftmann@41542
   287
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   288
def Mutabelle_Map(*args):
haftmann@41542
   289
    """Mutabelle regression suite on Map theory"""
haftmann@41542
   290
    return invoke_mutabelle('Map', *args)
haftmann@41542
   291
haftmann@41542
   292
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   293
def Mutabelle_Divides(*args):
haftmann@41542
   294
    """Mutabelle regression suite on Divides theory"""
haftmann@41542
   295
    return invoke_mutabelle('Divides', *args)
haftmann@41542
   296
haftmann@41542
   297
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   298
def Mutabelle_MacLaurin(*args):
haftmann@41542
   299
    """Mutabelle regression suite on MacLaurin theory"""
haftmann@41542
   300
    return invoke_mutabelle('MacLaurin', *args)
haftmann@41542
   301
haftmann@41542
   302
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
haftmann@41542
   303
def Mutabelle_Fun(*args):
haftmann@41542
   304
    """Mutabelle regression suite on Fun theory"""
haftmann@41542
   305
    return invoke_mutabelle('Fun', *args)
krauss@42040
   306
krauss@42393
   307
mutabelle_confs = 'Mutabelle_Relation Mutabelle_List Mutabelle_Set Mutabelle_Map Mutabelle_Divides Mutabelle_MacLaurin Mutabelle_Fun'.split(' ')
krauss@42393
   308
krauss@42393
   309
@scheduler()
krauss@42393
   310
def mutabelle_scheduler(env):
krauss@42393
   311
    """Scheduler for Mutabelle."""
krauss@42393
   312
    return schedule.age_scheduler(env, 'Isabelle', mutabelle_confs)
krauss@42040
   313
krauss@42040
   314
# Judgement Day configurations
krauss@42040
   315
krauss@42095
   316
judgement_day_provers = ('e', 'spass', 'vampire', 'z3', 'cvc3', 'yices')
krauss@42040
   317
krauss@42040
   318
def judgement_day(base_path, theory, opts, env, case, paths, dep_paths, playground):
krauss@42040
   319
    """Judgement Day regression suite"""
krauss@42040
   320
krauss@42040
   321
    isa = paths[0]
krauss@42040
   322
    dep_path = dep_paths[0]
krauss@42040
   323
krauss@42040
   324
    os.chdir(path.join(playground, '..', base_path)) # Mirabelle requires specific cwd
krauss@42040
   325
    prepare_isabelle_repository(isa, env.settings.contrib, dep_path)
krauss@42040
   326
krauss@42040
   327
    output = {}
krauss@42040
   328
    success_rates = {}
krauss@42040
   329
    some_success = False
krauss@42040
   330
krauss@42040
   331
    for atp in judgement_day_provers:
krauss@42040
   332
krauss@42040
   333
        log_dir = path.join(playground, 'mirabelle_log_' + atp)
krauss@42040
   334
        os.makedirs(log_dir)
krauss@42040
   335
krauss@42040
   336
        cmd = ('%s/bin/isabelle mirabelle -q -O %s sledgehammer[prover=%s,%s] %s.thy'
krauss@42040
   337
               % (isa, log_dir, atp, opts, theory))
krauss@42040
   338
krauss@42040
   339
        os.system(cmd)
krauss@42040
   340
        output[atp] = util.readfile(path.join(log_dir, theory + '.log'))
krauss@42040
   341
krauss@42040
   342
        percentages = list(re.findall(r'Success rate: (\d+)%', output[atp]))
krauss@42040
   343
        if len(percentages) == 2:
krauss@42040
   344
            success_rates[atp] = {
krauss@42040
   345
                'sledgehammer': int(percentages[0]),
krauss@42040
   346
                'metis': int(percentages[1])}
krauss@42040
   347
            if success_rates[atp]['sledgehammer'] > 0:
krauss@42040
   348
                some_success = True
krauss@42040
   349
        else:
krauss@42040
   350
            success_rates[atp] = {}
krauss@42040
   351
krauss@42040
   352
krauss@42040
   353
    data = {'success_rates': success_rates}
krauss@42040
   354
    raw_attachments = dict((atp + "_output", output[atp]) for atp in judgement_day_provers)
krauss@42040
   355
    # FIXME: summary?
krauss@42040
   356
    return (some_success, '', data, raw_attachments, None)
krauss@42040
   357
krauss@42040
   358
krauss@42040
   359
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
krauss@42040
   360
def JD_NS(*args):
krauss@42040
   361
    """Judgement Day regression suite NS"""
krauss@42040
   362
    return judgement_day('Isabelle/src/HOL/Auth', 'NS_Shared', 'prover_timeout=10', *args)
krauss@42040
   363
krauss@42040
   364
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
krauss@42040
   365
def JD_FTA(*args):
krauss@42040
   366
    """Judgement Day regression suite FTA"""
krauss@42040
   367
    return judgement_day('Isabelle/src/HOL/Library', 'Fundamental_Theorem_Algebra', 'prover_timeout=10', *args)
krauss@42040
   368
krauss@42040
   369
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
krauss@42040
   370
def JD_Hoare(*args):
krauss@42040
   371
    """Judgement Day regression suite Hoare"""
krauss@42058
   372
    return judgement_day('Isabelle/src/HOL/IMPP', 'Hoare', 'prover_timeout=10', *args)
krauss@42040
   373
krauss@42040
   374
@configuration(repos = [Isabelle], deps = [(HOL, [0])])
krauss@42040
   375
def JD_SN(*args):
krauss@42040
   376
    """Judgement Day regression suite SN"""
krauss@42058
   377
    return judgement_day('Isabelle/src/HOL/Proofs/Lambda', 'StrongNorm', 'prover_timeout=10', *args)
krauss@42040
   378
krauss@42116
   379
krauss@42192
   380
JD_confs = 'JD_NS JD_FTA JD_Hoare JD_SN JD_Arrow JD_FFT JD_Jinja JD_QE JD_S2S'.split(' ')
krauss@42192
   381
krauss@42192
   382
@scheduler()
krauss@42197
   383
def judgement_day_scheduler(env):
krauss@42192
   384
    """Scheduler for Judgement Day."""
krauss@42192
   385
    return schedule.age_scheduler(env, 'Isabelle', JD_confs)
krauss@42192
   386
krauss@42192
   387
krauss@42116
   388
# SML/NJ
krauss@42116
   389
krauss@42116
   390
smlnj_settings = '''
krauss@42116
   391
ML_SYSTEM=smlnj
krauss@42116
   392
ML_HOME="/home/smlnj/110.72/bin"
krauss@42116
   393
ML_OPTIONS="@SMLdebug=/dev/null @SMLalloc=256"
krauss@42116
   394
ML_PLATFORM=$(eval $("$ML_HOME/.arch-n-opsys" 2>/dev/null); echo "$HEAP_SUFFIX")
krauss@42116
   395
'''
krauss@42116
   396
krauss@42116
   397
@configuration(repos = [Isabelle], deps = [])
krauss@42116
   398
def SML_HOL(*args):
krauss@42116
   399
    """HOL image built with SML/NJ"""
krauss@42140
   400
    return isabelle_make('src/HOL', *args, more_settings=smlnj_settings, target='HOL', keep_results=True)
krauss@42116
   401
krauss@42116
   402
@configuration(repos = [Isabelle], deps = [])
krauss@42116
   403
def SML_makeall(*args):
krauss@42116
   404
    """Makeall built with SML/NJ"""
krauss@42138
   405
    return isabelle_makeall(*args, more_settings=smlnj_settings, target='smlnj', make_options=('-j', '3'))