Lines Matching refs:instructions
69 my ($from, $instructions) = @_;
75 # $instructions contains information about the flags etc.
76 if ($instructions) {
77 $instructions = "\n$instructions";
78 $instructions =~ s/^(?: )?/ * /mg;
86 $from$instructions */
305 # information and instructions on the tests
309 my $instructions = ""; # test instructions from the input comments
329 # Parse the comments for instructions on the tests, which look like this:
332 if (!$instructions) {
334 my @instructions = $in =~
342 if (@instructions) {
343 $instructions[0] = "Test types:\n$instructions[0]";
344 if (@instructions > 1) {
345 $instructions[1] = "Flag characters:\n$instructions[1]";
347 $instructions = join "\n", @instructions;
348 $instructions =~ s/^#([^\t]?)/ $1/mg;
374 begin_output $from, $instructions;