Init command.

1 files changed, 33 insertions, 0 deletions

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";
+}
+
+