mirror of
https://github.com/RubyMetric/chsrc
synced 2025-07-25 17:59:32 +08:00
65 lines
1.7 KiB
Raku
65 lines
1.7 KiB
Raku
#!/usr/bin/env raku
|
|
# ---------------------------------------------------------------
|
|
# Copyright © 2025-2025 Aoran Zeng
|
|
# SPDX-License-Identifier: GPL-3.0-or-later
|
|
# ---------------------------------------------------------------
|
|
# File Name : rawstr4c.raku
|
|
# File Authors : Aoran Zeng <ccmywish@qq.com>
|
|
# Contributors : Nul None <nul@none.org>
|
|
# Created On : <2025-07-12>
|
|
# Last Modified : <2025-07-16>
|
|
#
|
|
# rawstr4c:
|
|
#
|
|
# Raw strings for C programming language
|
|
#
|
|
# ---------------------------------------------------------------
|
|
|
|
use lib 'lib';
|
|
use Parser;
|
|
use Generator;
|
|
|
|
sub MAIN(
|
|
# 必须声明为可选，否则一直报奇怪的错
|
|
Str $input-path?,
|
|
Bool :$debug = False, #= --debug
|
|
Bool :$help #= --help
|
|
)
|
|
{
|
|
if $help || !$input-path {
|
|
print q:to/END/;
|
|
Usage: rawstr4c <FILE.md|DIR> [--debug]
|
|
|
|
Arguments:
|
|
FILE.md Process a specific markdown file
|
|
DIR Process rawstr4c.md file in the given directory
|
|
|
|
Options:
|
|
--debug Show debug information during processing
|
|
--help Show this help message
|
|
END
|
|
# exit($help ?? 0 !! 1);
|
|
exit(0);
|
|
}
|
|
|
|
my $markdown-file;
|
|
|
|
if $input-path.IO.d {
|
|
$markdown-file = $input-path.IO.add("rawstr4c.md");
|
|
unless $markdown-file.e {
|
|
die "Error: No 'rawstr4c.md' file found in directory '$input-path'";
|
|
}
|
|
}
|
|
elsif $input-path.IO.f {
|
|
$markdown-file = $input-path.IO;
|
|
} else {
|
|
die "Error: '$input-path' is neither a file nor a directory";
|
|
}
|
|
|
|
my $parser = Parser::Parser.new($markdown-file.Str);
|
|
$parser.parse;
|
|
$parser.debug-print-summary if $debug;
|
|
|
|
Generator::Generator.new($parser).generate;
|
|
}
|