<commit_before>#!/usr/bin/env perl

use strict;
use warnings FATAL => 'all';

use Data::Dumper;
use File::Basename;

$Data::Dumper::Indent   = 1;
$Data::Dumper::Sortkeys = 1;
$Data::Dumper::Terse    = 1;

my $header_path  = $ARGV[0];
my $header_fname = basename($header_path, ".h");

die "header file $header_path already exists" if -f $header_path;

open(my $header_file, ">", $header_path) or die "could not open header file $header_path";

my $macro_name = uc($header_fname);

print $header_file <<EOF;
#ifndef __${macro_name}_H__
#define __${macro_name}_H__



#endif /* __${macro_name}_H__ */
EOF

exit(0);<commit_msg>create-header-file.pl: add PROTOTYPE sections<commit_after>#!/usr/bin/env perl

use strict;
use warnings FATAL => 'all';

use Data::Dumper;
use File::Basename;

$Data::Dumper::Indent   = 1;
$Data::Dumper::Sortkeys = 1;
$Data::Dumper::Terse    = 1;

my $header_path  = $ARGV[0];
my $header_fname = basename($header_path, ".h");

die "header file $header_path already exists" if -f $header_path;

open(my $header_file, ">", $header_path) or die "could not open header file $header_path";

my $macro_name = uc($header_fname);

print $header_file <<EOF;
#ifndef __${macro_name}_H__
#define __${macro_name}_H__


/* BEGIN PROTOTYPES */



/* END PROTOTYPES */

#endif /* __${macro_name}_H__ */
EOF

exit(0);
{'fraction_non_alphanumeric': 0.16754716981132076, 'fraction_numerical': 0.007547169811320755, 'mean_word_length': 5.375, 'pattern_counts': {'":': 0, '<': 7, '<?xml version=': 0, '>': 7, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '4985555', 'n_tokens_mistral': 538, 'n_tokens_neox': 510, 'n_words': 124}