2 Test configuration descriptions for mira.
9 from datetime import datetime
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 from mira import repositories
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=''):
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):
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')
47 # provide existing dependencies
48 if loc_dependency_heaps:
49 isabelle_path = loc_dependency_heaps + '/$ISABELLE_IDENTIFIER:$ISABELLE_OUTPUT'
51 isabelle_path = '$ISABELLE_OUTPUT'
55 ISABELLE_HOME_USER="$ISABELLE_HOME/home_user"
56 ISABELLE_OUTPUT="$ISABELLE_HOME/heaps"
57 ISABELLE_BROWSER_INFO="$ISABELLE_HOME/browser_info"
60 ISABELLE_USEDIR_OPTIONS="%s"
61 Z3_NON_COMMERCIAL="yes"
63 ''' % (isabelle_path, usedir_options, more_settings)
65 writer = open(path.join(loc_isabelle, 'etc', 'settings'), 'a')
66 writer.write(extra_settings)
70 def isabelle_getenv(isabelle_home, var):
72 _, out = env.run_process('%s/bin/isabelle' % isabelle_home, 'getenv', var)
73 return out.split('=', 1)[1].strip()
76 def extract_isabelle_run_timing(logdata):
79 return (int(h) * 60 + int(m)) * 60 + int(s)
80 pat = r'Finished (\S+) \((\d+):(\d+):(\d+) elapsed time, (\d+):(\d+):(\d+) cpu time'
81 pat2 = r'Timing (\S+) \((\d+) threads, (\d+\.\d+)s elapsed time, (\d+\.\d+)s cpu time, (\d+\.\d+)s GC time, factor (\d+\.\d+)\)'
82 t = dict((name, {'elapsed': to_secs(eh,em,es), 'cpu': to_secs(ch,cm,cs)})
83 for name, eh, em, es, ch, cm, cs in re.findall(pat, logdata))
84 for name, threads, elapsed, cpu, gc, factor in re.findall(pat2, logdata):
89 t[name]['threads'] = int(threads)
90 t[name]['elapsed_inner'] = elapsed
91 t[name]['cpu_inner'] = cpu
93 t[name]['factor'] = factor
98 def extract_isabelle_run_summary(logdata):
100 re_error = re.compile(r'^(?:make: )?\*\*\* (.*)$', re.MULTILINE)
101 summary = '\n'.join(re_error.findall(logdata))
108 def extract_image_size(isabelle_home):
110 isabelle_output = isabelle_getenv(isabelle_home, 'ISABELLE_OUTPUT')
111 return dict((p, path.getsize(path.join(isabelle_output, p))) for p in os.listdir(isabelle_output) if p != "log")
113 def extract_report_data(isabelle_home, logdata):
116 'timing': extract_isabelle_run_timing(logdata),
117 'image_size': extract_image_size(isabelle_home) }
121 def import_isatest_log(env, conf, logfile):
123 """Imports isatest log file as a report."""
125 def the_match(pat, text, name):
126 match = re.search(pat, text)
127 if not match: raise Exception('No match found for ' + name)
128 return match.groups()
131 return datetime.strptime(d, '%a %b %d %H:%M:%S %Z %Y')
133 log = util.readfile(logfile)
135 (begin_date, host) = the_match(r'-+ starting test -+ ([^-]*) -+ (\S*)', log, 'start tag')
136 (isabelle_version,) = the_match(r'Isabelle version: ([a-f0-9]{12})', log, 'Isabelle version')
137 (success, end_date) = the_match(r'-+ test (successful|FAILED) -+ ([^-]*) -', log, 'end tag')
138 summary = extract_isabelle_run_summary(log)
139 data = {'timing': extract_isabelle_run_timing(log)}
140 atts = {'log': Lazy.simple(log)}
142 content = Report_Content(summary, host, parse_date(begin_date),
143 parse_date(end_date), Lazy.simple(data), atts)
144 revision = ('Isabelle', env.repositories.get('Isabelle')[isabelle_version].hex())
145 case = Case(conf, [revision])
147 env.report_db.put(case, (success == 'successful'), content)
151 def isabelle_usedir(env, isa_path, isabelle_usedir_opts, base_image, dir_name):
153 return env.run_process('%s/bin/isabelle' % isa_path, 'usedir',
154 isabelle_usedir_opts, base_image, dir_name)
157 def isabelle_dependency_only(env, case, paths, dep_paths, playground):
159 isabelle_home = paths[0]
160 result = path.join(isabelle_home, 'heaps')
162 for dep_path in dep_paths:
163 subprocess.check_call(['cp', '-R'] + glob(dep_path + '/*') + [result])
165 return (True, 'ok', {}, {}, result)
168 def build_isabelle_image(subdir, base, img, env, case, paths, dep_paths, playground,
169 usedir_options=default_usedir_options, more_settings=''):
171 isabelle_home = paths[0]
172 dep_path = dep_paths[0]
173 prepare_isabelle_repository(isabelle_home, env.settings.contrib, dep_path,
174 usedir_options=usedir_options, more_settings=more_settings)
175 os.chdir(path.join(isabelle_home, 'src', subdir))
177 (return_code, log) = isabelle_usedir(env, isabelle_home, '-b', base, img)
179 result = path.join(isabelle_home, 'heaps')
181 return (return_code == 0, extract_isabelle_run_summary(log),
182 extract_report_data(isabelle_home, log), {'log': log}, result)
185 def isabelle_make(subdir, env, case, paths, dep_paths, playground, usedir_options=default_usedir_options,
186 more_settings='', target='all', keep_results=False):
188 isabelle_home = paths[0]
189 dep_path = dep_paths[0] if dep_paths else None
190 prepare_isabelle_repository(isabelle_home, env.settings.contrib, dep_path,
191 usedir_options=usedir_options, more_settings=more_settings)
192 os.chdir(path.join(isabelle_home, subdir))
194 (return_code, log) = env.run_process('%s/bin/isabelle' % isabelle_home, 'make', '-k', target)
196 result = path.join(isabelle_home, 'heaps') if keep_results else None
198 return (return_code == 0, extract_isabelle_run_summary(log),
199 extract_report_data(isabelle_home, log), {'log': log}, result)
202 def isabelle_makeall(env, case, paths, dep_paths, playground, usedir_options=default_usedir_options,
203 more_settings='', target='all', make_options=()):
205 if 'lxbroy10' in misc.hostnames():
206 make_options += ('-j', '8')
207 usedir_options += " -M 4 -q 2 -i false -d false"
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 4000 --gcthreads 4"
214 ISABELLE_GHC="/usr/bin/ghc"
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)
223 (return_code, log) = env.run_process('%s/bin/isabelle' % isabelle_home, 'makeall', '-k', *(make_options + (target,)))
225 return (return_code == 0, extract_isabelle_run_summary(log),
226 extract_report_data(isabelle_home, log), {'log': log}, None)
229 def make_pure(env, case, paths, dep_paths, playground, more_settings=''):
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'))
236 (return_code, log) = env.run_process('%s/bin/isabelle' % isabelle_home, 'make', 'Pure')
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)
243 # Isabelle configurations
245 @configuration(repos = [Isabelle], deps = [])
248 return make_pure(*args)
250 @configuration(repos = [Isabelle], deps = [])
252 """Pure image (64 bit)"""
253 return make_pure(*args, more_settings='ML_PLATFORM=x86_64-linux')
255 @configuration(repos = [Isabelle], deps = [(Pure, [0])])
258 return build_isabelle_image('HOL', 'Pure', 'HOL', *args)
260 @configuration(repos = [Isabelle], deps = [(HOL, [0])])
261 def HOL_Library(*args):
262 """HOL-Library image"""
263 return build_isabelle_image('HOL', 'HOL', 'HOL-Library', *args)
265 @configuration(repos = [Isabelle], deps = [(Pure, [0])])
268 return build_isabelle_image('ZF', 'Pure', 'ZF', *args)
270 @configuration(repos = [Isabelle], deps = [(HOL, [0])])
271 def HOL_HOLCF(*args):
273 return build_isabelle_image('HOL/HOLCF', 'HOL', 'HOLCF', *args)
275 @configuration(repos = [Isabelle], deps = [(Pure_64, [0])])
277 """HOL image (64 bit)"""
278 return build_isabelle_image('HOL', 'Pure', 'HOL', *args, more_settings='ML_PLATFORM=x86_64-linux')
280 @configuration(repos = [Isabelle], deps = [(HOL_64, [0])])
281 def HOL_HOLCF_64(*args):
282 """HOL-HOLCF image (64 bit)"""
283 return build_isabelle_image('HOL/HOLCF', 'HOL', 'HOLCF', *args, more_settings='ML_PLATFORM=x86_64-linux')
285 @configuration(repos = [Isabelle], deps = [(HOL_64, [0])])
286 def HOL_Nominal_64(*args):
287 """HOL-Nominal image (64 bit)"""
288 return build_isabelle_image('HOL/Nominal', 'HOL', 'HOL-Nominal', *args, more_settings='ML_PLATFORM=x86_64-linux')
290 @configuration(repos = [Isabelle], deps = [(HOL_64, [0])])
291 def HOL_Word_64(*args):
292 """HOL-Word image (64 bit)"""
293 return build_isabelle_image('HOL/Word', 'HOL', 'HOL-Word', *args, more_settings='ML_PLATFORM=x86_64-linux')
295 @configuration(repos = [Isabelle], deps = [
298 (HOL_Nominal_64, [0]),
301 def AFP_images(*args):
302 """Isabelle images needed for the AFP (64 bit)"""
303 return isabelle_dependency_only(*args)
305 @configuration(repos = [Isabelle], deps = [])
306 def Isabelle_makeall(*args):
307 """Isabelle makeall"""
308 return isabelle_makeall(*args)
311 # distribution and documentation Build
313 @configuration(repos = [Isabelle], deps = [])
314 def Distribution(env, case, paths, dep_paths, playground):
315 """Build of distribution"""
316 ## FIXME This is rudimentary; study Admin/CHECKLIST to complete this configuration accordingly
317 isabelle_home = paths[0]
318 (return_code, log) = env.run_process(path.join(isabelle_home, 'Admin', 'makedist'),
319 REPOS = repositories.get(Isabelle).local_path, DISTPREFIX = os.getcwd())
320 return (return_code == 0, '', ## FIXME might add summary here
321 {}, {'log': log}, None) ## FIXME might add proper result here
323 @configuration(repos = [Isabelle], deps = [
329 def Documentation_images(*args):
330 """Isabelle images needed to build the documentation"""
331 return isabelle_dependency_only(*args)
333 @configuration(repos = [Isabelle], deps = [(Documentation_images, [0])])
334 def Documentation(env, case, paths, dep_paths, playground):
335 """Build of documentation"""
336 isabelle_home = paths[0]
337 dep_path = dep_paths[0]
338 prepare_isabelle_repository(isabelle_home, env.settings.contrib, dep_path,
339 usedir_options = default_usedir_options)
340 (return_code, log) = env.run_process(path.join(isabelle_home, 'Admin', 'build', 'doc-src'))
341 return (return_code == 0, extract_isabelle_run_summary(log),
342 extract_report_data(isabelle_home, log), {'log': log}, None)
345 # Mutabelle configurations
347 def invoke_mutabelle(theory, env, case, paths, dep_paths, playground):
349 """Mutant testing for counterexample generators in Isabelle"""
351 (loc_isabelle,) = paths
352 (dep_isabelle,) = dep_paths
354 ISABELLE_GHC="/usr/bin/ghc"
356 prepare_isabelle_repository(loc_isabelle, env.settings.contrib, dep_isabelle,
357 more_settings = more_settings)
358 os.chdir(loc_isabelle)
360 (return_code, log) = env.run_process('bin/isabelle',
361 'mutabelle', '-O', playground, theory)
364 mutabelle_log = util.readfile(path.join(playground, 'log'))
368 mutabelle_data = dict(
369 (tool, {'counterexample': c, 'no_counterexample': n, 'timeout': t, 'error': e})
370 for tool, c, n, t, e in re.findall(r'(\S+)\s+: C: (\d+) N: (\d+) T: (\d+) E: (\d+)', log))
372 return (return_code == 0 and mutabelle_log != '', extract_isabelle_run_summary(log),
373 {'mutabelle_results': {theory: mutabelle_data}},
374 {'log': log, 'mutabelle_log': mutabelle_log}, None)
376 @configuration(repos = [Isabelle], deps = [(HOL, [0])])
377 def Mutabelle_Relation(*args):
378 """Mutabelle regression suite on Relation theory"""
379 return invoke_mutabelle('Relation', *args)
381 @configuration(repos = [Isabelle], deps = [(HOL, [0])])
382 def Mutabelle_List(*args):
383 """Mutabelle regression suite on List theory"""
384 return invoke_mutabelle('List', *args)
386 @configuration(repos = [Isabelle], deps = [(HOL, [0])])
387 def Mutabelle_Set(*args):
388 """Mutabelle regression suite on Set theory"""
389 return invoke_mutabelle('Set', *args)
391 @configuration(repos = [Isabelle], deps = [(HOL, [0])])
392 def Mutabelle_Map(*args):
393 """Mutabelle regression suite on Map theory"""
394 return invoke_mutabelle('Map', *args)
396 @configuration(repos = [Isabelle], deps = [(HOL, [0])])
397 def Mutabelle_Divides(*args):
398 """Mutabelle regression suite on Divides theory"""
399 return invoke_mutabelle('Divides', *args)
401 @configuration(repos = [Isabelle], deps = [(HOL, [0])])
402 def Mutabelle_MacLaurin(*args):
403 """Mutabelle regression suite on MacLaurin theory"""
404 return invoke_mutabelle('MacLaurin', *args)
406 @configuration(repos = [Isabelle], deps = [(HOL, [0])])
407 def Mutabelle_Fun(*args):
408 """Mutabelle regression suite on Fun theory"""
409 return invoke_mutabelle('Fun', *args)
411 mutabelle_confs = 'Mutabelle_Relation Mutabelle_List Mutabelle_Set Mutabelle_Map Mutabelle_Divides Mutabelle_MacLaurin Mutabelle_Fun'.split(' ')
414 def mutabelle_scheduler(env):
415 """Scheduler for Mutabelle."""
416 return schedule.age_scheduler(env, 'Isabelle', mutabelle_confs)
418 # Judgement Day configurations
420 judgement_day_provers = ('e', 'spass', 'vampire', 'z3', 'cvc3', 'yices')
422 def judgement_day(base_path, theory, opts, env, case, paths, dep_paths, playground):
423 """Judgement Day regression suite"""
426 dep_path = dep_paths[0]
428 os.chdir(path.join(playground, '..', base_path)) # Mirabelle requires specific cwd
429 prepare_isabelle_repository(isa, env.settings.contrib, dep_path)
435 for atp in judgement_day_provers:
437 log_dir = path.join(playground, 'mirabelle_log_' + atp)
440 cmd = ('%s/bin/isabelle mirabelle -q -O %s sledgehammer[prover=%s,%s] %s.thy'
441 % (isa, log_dir, atp, opts, theory))
444 output[atp] = util.readfile(path.join(log_dir, theory + '.log'))
446 percentages = list(re.findall(r'Success rate: (\d+)%', output[atp]))
447 if len(percentages) == 2:
448 success_rates[atp] = {
449 'sledgehammer': int(percentages[0]),
450 'metis': int(percentages[1])}
451 if success_rates[atp]['sledgehammer'] > 0:
454 success_rates[atp] = {}
457 data = {'success_rates': success_rates}
458 raw_attachments = dict((atp + "_output", output[atp]) for atp in judgement_day_provers)
460 return (some_success, '', data, raw_attachments, None)
463 @configuration(repos = [Isabelle], deps = [(HOL, [0])])
465 """Judgement Day regression suite NS"""
466 return judgement_day('Isabelle/src/HOL/Auth', 'NS_Shared', 'prover_timeout=10', *args)
468 @configuration(repos = [Isabelle], deps = [(HOL, [0])])
470 """Judgement Day regression suite FTA"""
471 return judgement_day('Isabelle/src/HOL/Library', 'Fundamental_Theorem_Algebra', 'prover_timeout=10', *args)
473 @configuration(repos = [Isabelle], deps = [(HOL, [0])])
475 """Judgement Day regression suite Hoare"""
476 return judgement_day('Isabelle/src/HOL/IMPP', 'Hoare', 'prover_timeout=10', *args)
478 @configuration(repos = [Isabelle], deps = [(HOL, [0])])
480 """Judgement Day regression suite SN"""
481 return judgement_day('Isabelle/src/HOL/Proofs/Lambda', 'StrongNorm', 'prover_timeout=10', *args)
484 JD_confs = 'JD_NS JD_FTA JD_Hoare JD_SN JD_Arrow JD_FFT JD_Jinja JD_QE JD_S2S'.split(' ')
487 def judgement_day_scheduler(env):
488 """Scheduler for Judgement Day."""
489 return schedule.age_scheduler(env, 'Isabelle', JD_confs)
496 ML_HOME="/home/smlnj/110.72/bin"
497 ML_OPTIONS="@SMLdebug=/dev/null @SMLalloc=256"
498 ML_PLATFORM=$(eval $("$ML_HOME/.arch-n-opsys" 2>/dev/null); echo "$HEAP_SUFFIX")
501 @configuration(repos = [Isabelle], deps = [])
503 """HOL image built with SML/NJ"""
504 return isabelle_make('src/HOL', *args, more_settings=smlnj_settings, target='HOL', keep_results=True)
506 @configuration(repos = [Isabelle], deps = [])
507 def SML_makeall(*args):
508 """Makeall built with SML/NJ"""
509 return isabelle_makeall(*args, more_settings=smlnj_settings, target='smlnj', make_options=('-j', '3'))
515 @configuration(repos = ['Hollight'], deps = [])
516 def Hollight_proof_objects(env, case, paths, dep_paths, playground):
517 """Build proof object bundle from HOL Light"""
519 hollight_home = paths[0]
520 os.chdir(os.path.join(hollight_home, 'Proofrecording', 'hol_light'))
522 subprocess.check_call(['make'])
523 (return_code, _) = util.run_process.run_process(
524 '''echo -e '#use "hol.ml";;\n export_saved_proofs None;;' | ocaml''',
525 environment={'HOLPROOFEXPORTDIR': './proofs_extended', 'HOLPROOFOBJECTS': 'EXTENDED'},
527 subprocess.check_call('tar -czf proofs_extended.tar.gz proofs_extended'.split(' '))
528 subprocess.check_call(['mv', 'proofs_extended.tar.gz', playground])
530 return (return_code == 0, '', {}, {}, playground)
533 @configuration(repos = [Isabelle, 'Hollight'], deps = [(Hollight_proof_objects, [1])])
534 def HOL_Generate_HOLLight(env, case, paths, dep_paths, playground):
535 """Generated theories by HOL Light import"""
538 subprocess.check_call(['tar', '-xzf', path.join(dep_paths[0], 'proofs_extended.tar.gz')])
539 proofs_dir = path.join(playground, 'proofs_extended')
541 return isabelle_make('src/HOL', env, case, paths, dep_paths, playground,
542 more_settings=('HOL4_PROOFS="%s"' % proofs_dir), target='HOL-Generate-HOLLight')