#!/usr/bin/env perl6

use Text::CodeProcessing;

#| Evaluate code chunks in a Markdown, org-mode, or Pod6 file.
sub MAIN(
        Str $inputFileName where *.IO.f,   #= Input file name.
        :o(:$output) = Whatever,           #= Output file; if not given the output file name is the input file name concatenated with "_woven".
        Str :$evalOutputPrompt = 'AUTO',   #= Evaluation results prompt.
        Str :$evalErrorPrompt = 'AUTO',    #= Evaluation errors prompt.
        Bool :$promptPerLine = True        #= Should prompts be printed per line or not?
         ) {
    return FileCodeChunksEvaluation($inputFileName, outputFileName => $output, :$evalOutputPrompt, :$evalErrorPrompt, :noteOutputFileName, :$promptPerLine)
}
