wneuper/isa: Admin/mira.py@598b2c6ce13f

     1 """

     2     Test configuration descriptions for mira.

     3 """

     5 import os

     6 from os import path

     7 from glob import glob

     8 import subprocess

     9 from datetime import datetime

    10 import re

    12 import util

    13 from util import Lazy

    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

    22 # build and evaluation tools

    24 default_usedir_options = "$ISABELLE_USEDIR_OPTIONS -d pdf -g true -i true -t true"

    26 def prepare_isabelle_repository(loc_isabelle, loc_contrib, loc_dependency_heaps,

    27   usedir_options=default_usedir_options, more_settings=''):

    29     # prepare components

    30     loc_contrib = path.expanduser(loc_contrib)

    31     if not path.exists(loc_contrib):

    32         raise IOError('Bad file: %s' % loc_contrib)

    33     subprocess.check_call(['ln', '-s', loc_contrib, '%s/contrib' % loc_isabelle])

    35     contributed_components = path.join(loc_isabelle, 'Admin', 'contributed_components')

    36     if path.exists(contributed_components):

    37         components = []

    38         for component in util.readfile_lines(contributed_components):

    39             loc_component = path.join(loc_isabelle, component)

    40             if path.exists(loc_component):

    41                 components.append(loc_component)

    42         writer = open(path.join(loc_isabelle, 'etc', 'components'), 'a')

    43         for component in components:

    44             writer.write(component + '\n')

    45         writer.close()

    47     # provide existing dependencies

    48     if loc_dependency_heaps:

    49         isabelle_path = loc_dependency_heaps + '/$ISABELLE_IDENTIFIER:$ISABELLE_OUTPUT'

    50     else:

    51         isabelle_path = '$ISABELLE_OUTPUT'

    53     # patch settings

    54     extra_settings = '''

    55 ISABELLE_HOME_USER="$ISABELLE_HOME/home_user"

    56 ISABELLE_OUTPUT="$ISABELLE_HOME/heaps"

    57 ISABELLE_BROWSER_INFO="$ISABELLE_HOME/browser_info"

    58 ISABELLE_PATH="%s"

    60 ISABELLE_USEDIR_OPTIONS="%s"

    61 Z3_NON_COMMERCIAL="yes"

    62 %s

    63 ''' % (isabelle_path, usedir_options, more_settings)

    65     writer = open(path.join(loc_isabelle, 'etc', 'settings'), 'a')

    66     writer.write(extra_settings)

    67     writer.close()

    70 def extract_isabelle_run_timing(logdata):

    72     def to_secs(h, m, s):

    73         return (int(h) * 60 + int(m)) * 60 + int(s)

    74     pat = r'Finished (\S+) \((\d+):(\d+):(\d+) elapsed time, (\d+):(\d+):(\d+) cpu time'

    75     pat2 = r'Timing (\S+) \((\d+) threads, (\d+\.\d+)s elapsed time, (\d+\.\d+)s cpu time, (\d+\.\d+)s GC time, factor (\d+\.\d+)\)'

    76     t = dict((name, {'elapsed': to_secs(eh,em,es), 'cpu': to_secs(ch,cm,cs)})

    77              for name, eh, em, es, ch, cm, cs in re.findall(pat, logdata))

    78     for name, threads, elapsed, cpu, gc, factor in re.findall(pat2, logdata):

    80         if name not in t:

    81             t[name] = {}

    83         t[name]['threads'] = int(threads)

    84         t[name]['elapsed_inner'] = elapsed

    85         t[name]['cpu_inner'] = cpu

    86         t[name]['gc'] = gc

    87         t[name]['factor'] = factor

    89     return t

    92 def extract_isabelle_run_summary(logdata):

    94     re_error = re.compile(r'^(?:make: )?\*\*\* (.*)$', re.MULTILINE)

    95     summary = '\n'.join(re_error.findall(logdata))

    96     if summary == '':

    97         summary = 'ok'

    99     return summary

   102 @tool

   103 def import_isatest_log(env, conf, logfile):

   105     """Imports isatest log file as a report."""

   107     def the_match(pat, text, name):

   108         match = re.search(pat, text)

   109         if not match: raise Exception('No match found for ' + name)

   110         return match.groups()

   112     def parse_date(d):

   113         return datetime.strptime(d, '%a %b %d %H:%M:%S %Z %Y')

   115     log = util.readfile(logfile)

   117     (begin_date, host) = the_match(r'-+ starting test -+ ([^-]*) -+ (\S*)', log, 'start tag')

   118     (isabelle_version,) = the_match(r'Isabelle version: ([a-f0-9]{12})', log, 'Isabelle version')

   119     (success, end_date) = the_match(r'-+ test (successful|FAILED) -+ ([^-]*) -', log, 'end tag')

   120     summary = extract_isabelle_run_summary(log)

   121     data = {'timing': extract_isabelle_run_timing(log)}

   122     atts = {'log': Lazy.simple(log)}

   124     content = Report_Content(summary, host, parse_date(begin_date),

   125       parse_date(end_date), Lazy.simple(data), atts)

   126     revision = ('Isabelle', env.repositories.get('Isabelle')[isabelle_version].hex())

   127     case = Case(conf, [revision])

   129     env.report_db.put(case, (success == 'successful'), content)

   133 def isabelle_usedir(env, isa_path, isabelle_usedir_opts, base_image, dir_name):

   135     return env.run_process('%s/bin/isabelle' % isa_path, 'usedir',

   136         isabelle_usedir_opts, base_image, dir_name)

   139 def isabelle_dependency_only(env, case, paths, dep_paths, playground):

   141     isabelle_home = paths[0]

   142     result = path.join(isabelle_home, 'heaps')

   143     os.makedirs(result)

   144     for dep_path in dep_paths:

   145         subprocess.check_call(['cp', '-R'] + glob(dep_path + '/*') + [result])

   147     return (True, 'ok', {}, {}, result)

   150 def build_isabelle_image(subdir, base, img, env, case, paths, dep_paths, playground,

   151   usedir_options=default_usedir_options, more_settings=''):

   153     isabelle_home = paths[0]

   154     dep_path = dep_paths[0]

   155     prepare_isabelle_repository(isabelle_home, env.settings.contrib, dep_path,

   156       usedir_options=usedir_options, more_settings=more_settings)

   157     os.chdir(path.join(isabelle_home, 'src', subdir))

   159     (return_code, log) = isabelle_usedir(env, isabelle_home, '-b', base, img)

   161     result = path.join(isabelle_home, 'heaps')

   162     return (return_code == 0, extract_isabelle_run_summary(log),

   163       {'timing': extract_isabelle_run_timing(log)}, {'log': log}, result)

   166 def isabelle_make(subdir, env, case, paths, dep_paths, playground, usedir_options=default_usedir_options,

   167   more_settings='', target='all', keep_results=False):

   169     isabelle_home = paths[0]

   170     dep_path = dep_paths[0] if dep_paths else None

   171     prepare_isabelle_repository(isabelle_home, env.settings.contrib, dep_path,

   172       usedir_options=usedir_options, more_settings=more_settings)

   173     os.chdir(path.join(isabelle_home, subdir))

   175     (return_code, log) = env.run_process('%s/bin/isabelle' % isabelle_home, 'make', '-k', target)

   177     result = path.join(isabelle_home, 'heaps') if keep_results else None

   178     return (return_code == 0, extract_isabelle_run_summary(log),

   179       {'timing': extract_isabelle_run_timing(log)}, {'log': log}, result)

   182 def isabelle_makeall(env, case, paths, dep_paths, playground, usedir_options=default_usedir_options,

   183   more_settings='', target='all', make_options=()):

   185     # FIXME!?

   186     if 'lxbroy10' in misc.hostnames():

   187         make_options += ('-j', '8')

   188         usedir_options += " -M 6 -q 2 -i false -d false"

   189         more_settings += '''

   190 ML_PLATFORM="x86_64-linux"

   191 ML_HOME="/home/polyml/polyml-svn/x86_64-linux"

   192 ML_SYSTEM="polyml-5.4.1"

   193 ML_OPTIONS="-H 8000 --gcthreads 6"

   195 ISABELLE_GHC="/usr/bin/ghc"

   196 '''

   198     isabelle_home = paths[0]

   199     dep_path = dep_paths[0] if dep_paths else None

   200     prepare_isabelle_repository(isabelle_home, env.settings.contrib, dep_path,

   201       usedir_options=usedir_options, more_settings=more_settings)

   202     os.chdir(isabelle_home)

   204     (return_code, log) = env.run_process('%s/bin/isabelle' % isabelle_home, 'makeall', '-k', *(make_options + (target,)))

   206     return (return_code == 0, extract_isabelle_run_summary(log),

   207       {'timing': extract_isabelle_run_timing(log)}, {'log': log}, None)

   210 # Isabelle configurations

   212 @configuration(repos = [Isabelle], deps = [])

   213 def Pure(env, case, paths, dep_paths, playground):

   214     """Pure image"""

   216     isabelle_home = paths[0]

   217     prepare_isabelle_repository(isabelle_home, env.settings.contrib, '')

   218     os.chdir(path.join(isabelle_home, 'src', 'Pure'))

   220     (return_code, log) = env.run_process('%s/bin/isabelle' % isabelle_home, 'make', 'Pure')

   222     result = path.join(isabelle_home, 'heaps')

   223     return (return_code == 0, extract_isabelle_run_summary(log),

   224       {'timing': extract_isabelle_run_timing(log)}, {'log': log}, result)

   226 @configuration(repos = [Isabelle], deps = [(Pure, [0])])

   227 def FOL(*args):

   228     """FOL image"""

   229     return build_isabelle_image('FOL', 'Pure', 'FOL', *args)

   231 @configuration(repos = [Isabelle], deps = [(Pure, [0])])

   232 def HOL(*args):

   233     """HOL image"""

   234     return build_isabelle_image('HOL', 'Pure', 'HOL', *args)

   236 @configuration(repos = [Isabelle], deps = [(HOL, [0])])

   237 def HOL_HOLCF(*args):

   238     """HOL-HOLCF image"""

   239     return build_isabelle_image('HOL/HOLCF', 'HOL', 'HOLCF', *args)

   241 @configuration(repos = [Isabelle], deps = [(HOL, [0])])

   242 def HOL_Nominal(*args):

   243     """HOL-Nominal image"""

   244     return build_isabelle_image('HOL/Nominal', 'HOL', 'HOL-Nominal', *args)

   246 @configuration(repos = [Isabelle], deps = [(HOL, [0])])

   247 def HOL_Word(*args):

   248     """HOL-Word image"""

   249     return build_isabelle_image('HOL/Word', 'HOL', 'HOL-Word', *args)

   251 @configuration(repos = [Isabelle], deps = [

   252     (HOL, [0]),

   253     (HOL_HOLCF, [0]),

   254     (HOL_Nominal, [0]),

   255     (HOL_Word, [0])

   256   ])

   257 def AFP_images(*args):

   258     """Isabelle images needed for the AFP"""

   259     return isabelle_dependency_only(*args)

   261 @configuration(repos = [Isabelle], deps = [])

   262 def Isabelle_makeall(*args):

   263     """Isabelle makeall"""

   264     return isabelle_makeall(*args)

   267 # Mutabelle configurations

   269 def invoke_mutabelle(theory, env, case, paths, dep_paths, playground):

   271     """Mutant testing for counterexample generators in Isabelle"""

   273     (loc_isabelle,) = paths

   274     (dep_isabelle,) = dep_paths

   275     more_settings = '''

   276 ISABELLE_GHC="/usr/bin/ghc"

   277 '''

   278     prepare_isabelle_repository(loc_isabelle, env.settings.contrib, dep_isabelle,

   279       more_settings = more_settings)

   280     os.chdir(loc_isabelle)

   282     (return_code, log) = env.run_process('bin/isabelle',

   283       'mutabelle', '-O', playground, theory)

   285     try:

   286         mutabelle_log = util.readfile(path.join(playground, 'log'))

   287     except IOError:

   288         mutabelle_log = ''

   290     mutabelle_data = dict(

   291         (tool, {'counterexample': c, 'no_counterexample': n, 'timeout': t, 'error': e})

   292         for tool, c, n, t, e in re.findall(r'(\S+)\s+: C: (\d+) N: (\d+) T: (\d+) E: (\d+)', log))

   294     return (return_code == 0 and mutabelle_log != '', extract_isabelle_run_summary(log),

   295       {'mutabelle_results': {theory: mutabelle_data}},

   296       {'log': log, 'mutabelle_log': mutabelle_log}, None)

   298 @configuration(repos = [Isabelle], deps = [(HOL, [0])])

   299 def Mutabelle_Relation(*args):

   300     """Mutabelle regression suite on Relation theory"""

   301     return invoke_mutabelle('Relation', *args)

   303 @configuration(repos = [Isabelle], deps = [(HOL, [0])])

   304 def Mutabelle_List(*args):

   305     """Mutabelle regression suite on List theory"""

   306     return invoke_mutabelle('List', *args)

   308 @configuration(repos = [Isabelle], deps = [(HOL, [0])])

   309 def Mutabelle_Set(*args):

   310     """Mutabelle regression suite on Set theory"""

   311     return invoke_mutabelle('Set', *args)

   313 @configuration(repos = [Isabelle], deps = [(HOL, [0])])

   314 def Mutabelle_Map(*args):

   315     """Mutabelle regression suite on Map theory"""

   316     return invoke_mutabelle('Map', *args)

   318 @configuration(repos = [Isabelle], deps = [(HOL, [0])])

   319 def Mutabelle_Divides(*args):

   320     """Mutabelle regression suite on Divides theory"""

   321     return invoke_mutabelle('Divides', *args)

   323 @configuration(repos = [Isabelle], deps = [(HOL, [0])])

   324 def Mutabelle_MacLaurin(*args):

   325     """Mutabelle regression suite on MacLaurin theory"""

   326     return invoke_mutabelle('MacLaurin', *args)

   328 @configuration(repos = [Isabelle], deps = [(HOL, [0])])

   329 def Mutabelle_Fun(*args):

   330     """Mutabelle regression suite on Fun theory"""

   331     return invoke_mutabelle('Fun', *args)

   333 mutabelle_confs = 'Mutabelle_Relation Mutabelle_List Mutabelle_Set Mutabelle_Map Mutabelle_Divides Mutabelle_MacLaurin Mutabelle_Fun'.split(' ')

   335 @scheduler()

   336 def mutabelle_scheduler(env):

   337     """Scheduler for Mutabelle."""

   338     return schedule.age_scheduler(env, 'Isabelle', mutabelle_confs)

   340 # Judgement Day configurations

   342 judgement_day_provers = ('e', 'spass', 'vampire', 'z3', 'cvc3', 'yices')

   344 def judgement_day(base_path, theory, opts, env, case, paths, dep_paths, playground):

   345     """Judgement Day regression suite"""

   347     isa = paths[0]

   348     dep_path = dep_paths[0]

   350     os.chdir(path.join(playground, '..', base_path)) # Mirabelle requires specific cwd

   351     prepare_isabelle_repository(isa, env.settings.contrib, dep_path)

   353     output = {}

   354     success_rates = {}

   355     some_success = False

   357     for atp in judgement_day_provers:

   359         log_dir = path.join(playground, 'mirabelle_log_' + atp)

   360         os.makedirs(log_dir)

   362         cmd = ('%s/bin/isabelle mirabelle -q -O %s sledgehammer[prover=%s,%s] %s.thy'

   363                % (isa, log_dir, atp, opts, theory))

   365         os.system(cmd)

   366         output[atp] = util.readfile(path.join(log_dir, theory + '.log'))

   368         percentages = list(re.findall(r'Success rate: (\d+)%', output[atp]))

   369         if len(percentages) == 2:

   370             success_rates[atp] = {

   371                 'sledgehammer': int(percentages[0]),

   372                 'metis': int(percentages[1])}

   373             if success_rates[atp]['sledgehammer'] > 0:

   374                 some_success = True

   375         else:

   376             success_rates[atp] = {}

   379     data = {'success_rates': success_rates}

   380     raw_attachments = dict((atp + "_output", output[atp]) for atp in judgement_day_provers)

   381     # FIXME: summary?

   382     return (some_success, '', data, raw_attachments, None)

   385 @configuration(repos = [Isabelle], deps = [(HOL, [0])])

   386 def JD_NS(*args):

   387     """Judgement Day regression suite NS"""

   388     return judgement_day('Isabelle/src/HOL/Auth', 'NS_Shared', 'prover_timeout=10', *args)

   390 @configuration(repos = [Isabelle], deps = [(HOL, [0])])

   391 def JD_FTA(*args):

   392     """Judgement Day regression suite FTA"""

   393     return judgement_day('Isabelle/src/HOL/Library', 'Fundamental_Theorem_Algebra', 'prover_timeout=10', *args)

   395 @configuration(repos = [Isabelle], deps = [(HOL, [0])])

   396 def JD_Hoare(*args):

   397     """Judgement Day regression suite Hoare"""

   398     return judgement_day('Isabelle/src/HOL/IMPP', 'Hoare', 'prover_timeout=10', *args)

   400 @configuration(repos = [Isabelle], deps = [(HOL, [0])])

   401 def JD_SN(*args):

   402     """Judgement Day regression suite SN"""

   403     return judgement_day('Isabelle/src/HOL/Proofs/Lambda', 'StrongNorm', 'prover_timeout=10', *args)

   406 JD_confs = 'JD_NS JD_FTA JD_Hoare JD_SN JD_Arrow JD_FFT JD_Jinja JD_QE JD_S2S'.split(' ')

   408 @scheduler()

   409 def judgement_day_scheduler(env):

   410     """Scheduler for Judgement Day."""

   411     return schedule.age_scheduler(env, 'Isabelle', JD_confs)

   414 # SML/NJ

   416 smlnj_settings = '''

   417 ML_SYSTEM=smlnj

   418 ML_HOME="/home/smlnj/110.72/bin"

   419 ML_OPTIONS="@SMLdebug=/dev/null @SMLalloc=256"

   420 ML_PLATFORM=$(eval $("$ML_HOME/.arch-n-opsys" 2>/dev/null); echo "$HEAP_SUFFIX")

   421 '''

   423 @configuration(repos = [Isabelle], deps = [])

   424 def SML_HOL(*args):

   425     """HOL image built with SML/NJ"""

   426     return isabelle_make('src/HOL', *args, more_settings=smlnj_settings, target='HOL', keep_results=True)

   428 @configuration(repos = [Isabelle], deps = [])

   429 def SML_makeall(*args):

   430     """Makeall built with SML/NJ"""

   431     return isabelle_makeall(*args, more_settings=smlnj_settings, target='smlnj', make_options=('-j', '3'))

author	wenzelm
	Sat, 02 Jul 2011 23:31:07 +0200
changeset 44523	598b2c6ce13f
parent 44191	9970a4580d13
child 44554	08ccba00eb34
permissions	-rw-r--r--