<commit_before>#!/usr/bin/perl

@files = (
    'piclib/built-in.scm',
    'piclib/srfi/1.scm',
    'piclib/srfi/26.scm',
    'piclib/srfi/95.scm'
    );

print <<EOL;
#include "picrin.h"
#include "picrin/error.h"

EOL

foreach my $file (@files) {
    my $var = &escape_v($file);
    print "const char *$var =\n";

    open IN, $file;
    while (<IN>) {
        chomp;
        s/\\/\\\\/g;
        s/"/\\"/g;
        print "\"$_\\n\"\n";
    }
    print ";\n\n";
}<commit_msg>strict mode on<commit_after>#!/usr/bin/perl

use strict;

my @files = (
    'piclib/built-in.scm',
    'piclib/srfi/1.scm',
    'piclib/srfi/26.scm',
    'piclib/srfi/95.scm'
    );

print <<EOL;
#include "picrin.h"
#include "picrin/error.h"

EOL

foreach my $file (@files) {
    my $var = &escape_v($file);
    print "const char *$var =\n";

    open IN, $file;
    while (<IN>) {
        chomp;
        s/\\/\\\\/g;
        s/"/\\"/g;
        print "\"$_\\n\"\n";
    }
    print ";\n\n";
}
{'fraction_non_alphanumeric': 0.23474663908996898, 'fraction_numerical': 0.010341261633919338, 'mean_word_length': 1.8724035608308605, 'pattern_counts': {'":': 0, '<': 9, '<?xml version=': 0, '>': 5, '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': '4281674', 'n_tokens_mistral': 445, 'n_tokens_neox': 429, 'n_words': 79}