Re: tests: ok(0,"foo") prints a '\n'!

[Glen]

Francois Gouget wrote:
> So if noone objects I'll send a patch that stops 'ok' from appending
> this '\n', and adds a '\n' to all calls to ok. Actually, I would be
> pretty happy if someone could come up with a perl script doing the
> latter...

I came up with a perl script that does what you want.  It may not be 
perfect though so use it with caution.

Enjoy,
Glen Kaukola

#!/usr/bin/perl
sub fix_oks
{
  my $c_file = $_[0];
 
  open(FILE_HANDLE, "<$c_file") or die("Error opening file $c_file\n");
  my @contents = <FILE_HANDLE>;
  close(FILE_HANDLE);

  #add a new line to the end of any ok calls we find
  s/(.*)(\bok\(.*)([^\"])(^\"*)(\")(.*)/$1$2$3$4\\n$5$6/g for @contents;

  open(FILE_HANDLE, ">$c_file");
  print(FILE_HANDLE @contents);
  close(FILE_HANDLE);
}

sub do_current_dir
{
  my $i = 0;

  #get the current directory's listing
  opendir(DIR_HANDLE, ".") or die("Error opening $directory\n");
  my @dir_listing = grep { !/^\.\.?/ } readdir(DIR_HANDLE);
  closedir(DIR_HANDLE);

  #for each file in the directory
  while($dir_listing[$i])
  {
    #if a directory is found then do that one too
    if(-d $dir_listing[$i])
    {
      chdir $dir_listing[$i];
      do_current_dir();
      chdir "..";
    }

    #if it's a c file then fix the calls to ok
    if($dir_listing[$i] =~ /\.c$/)
    {
      fix_oks($dir_listing[$i]);
    }
 
    $i++;
  }
}

do_current_dir();