@@ -372,100 +372,6 @@ def _compile(
372372 compilation_outputs ,
373373 )
374374
375- def _compile_old (
376- actions ,
377- defines ,
378- deps ,
379- feature_configuration ,
380- fopts ,
381- fortran_toolchain ,
382- includes ,
383- srcs ,
384- modules_dir ):
385- (compiler , compile_flags ) = _get_compiler (fortran_toolchain , feature_configuration , fopts )
386- objects = [
387- actions .declare_file (paths .replace_extension (src .path , ".o" ))
388- for src in srcs
389- ]
390- if len (objects ) == 0 :
391- return []
392- deps_compilation_contexts = [
393- dep [CcInfo ].compilation_context
394- for dep in deps
395- if CcInfo in dep
396- ]
397- deps_compilation_context = cc_common .merge_compilation_contexts (
398- compilation_contexts = deps_compilation_contexts ,
399- )
400- deps_flags = [
401- "-I{}" .format (include )
402- for include in deps_compilation_context .includes .to_list ()
403- ] + [
404- "-iquote {}" .format (include )
405- for include in deps_compilation_context .quote_includes .to_list ()
406- ] + [
407- "-I{}" .format (include )
408- for include in deps_compilation_context .system_includes .to_list ()
409- ] + [
410- "-F{}" .format (include )
411- for include in deps_compilation_context .framework_includes .to_list ()
412- ] + [
413- "-D{}" .format (define )
414- for define in deps_compilation_context .defines .to_list ()
415- ]
416- defines_flags = ["-D{}" .format (define ) for define in defines ]
417- deps_headers = depset (
418- transitive = [
419- dep [CcInfo ].compilation_context .headers
420- for dep in deps
421- if CcInfo in dep
422- ],
423- )
424- input_modules_flags = [
425- "-I{}" .format (dep [FortranInfo ].modules_dir .path )
426- for dep in deps
427- if FortranInfo in dep
428- ]
429- input_modules = depset ([
430- dep [FortranInfo ].modules_dir
431- for dep in deps
432- if FortranInfo in dep
433- ])
434- output_modules_flags = ["-J{}" .format (modules_dir .path )]
435- modules_flags = input_modules_flags + output_modules_flags
436- flags = defines_flags + compile_flags + fopts + deps_flags + modules_flags
437- command = """\
438- set -o errexit -o nounset -o pipefail
439-
440- {compiler} {flags} -c {srcs}
441-
442- {move_outputs}
443- """ .format (
444- compiler = compiler ,
445- flags = " " .join (flags ),
446- move_outputs = "\n " .join ([
447- "mv '{src}' '{dst}'" .format (
448- src = paths .basename (object .path ),
449- dst = object .path ,
450- )
451- for object in objects
452- ]),
453- srcs = " " .join ([src .path for src in srcs ]),
454- )
455- actions .run_shell (
456- command = command ,
457- inputs = depset (
458- direct = srcs + includes ,
459- transitive = [
460- deps_headers ,
461- input_modules ,
462- ],
463- ),
464- outputs = objects + [modules_dir ],
465- tools = fortran_toolchain .all_files ,
466- )
467- return objects
468-
469375def _get_compiler (fortran_toolchain , feature_configuration , fopts = []):
470376 compile_variables = cc_common .create_compile_variables (
471377 feature_configuration = feature_configuration ,
0 commit comments