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