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