From 0ff09a37a5cbb984c850f5899c93abe07ca85ff4 Mon Sep 17 00:00:00 2001 From: Sadeep Madurange Date: Fri, 13 Mar 2026 21:53:29 +0800 Subject: Init command. --- vcx | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 vcx diff --git a/vcx b/vcx new file mode 100644 index 0000000..aeb62c6 --- /dev/null +++ b/vcx @@ -0,0 +1,33 @@ +#!/usr/bin/perl + +use strict; +use warnings; +use File::Path qw(make_path); + +my $cmd = $ARGV[0] // ''; + +if ($cmd eq 'init') { + init_repo(); +} else { + print "Usage: $0 [command]\n"; + exit 1; +} + +sub init_repo { + my @dirs = ( + '.vcx/obj', + '.vcx/bse', + '.vcx/tmp' + ); + + foreach my $dir (@dirs) { + if (!-d $dir) { + make_path($dir); + print "Created: $dir\n"; + } + } + + print "Repository ready\n"; +} + + -- cgit v1.2.3