authd/utils/parse-me.cr

require "phreak"

opt_help = -> (root : Phreak::RootParser) {
	root.bind(short_flag: 'h', long_flag: "help", description: "Get some help.") do |sub|
		puts root
		exit 0
	end
}

opt_help_sub = -> (root : Phreak::Subparser) {
	root.bind(short_flag: 'h', long_flag: "help", description: "Get some help.") do |sub|
		puts root
		exit 0
	end
}

opt_verbosity = -> (root : Phreak::RootParser) {
	root.bind(short_flag: 'v', long_flag: "verbosity", description: "Verbosity.") do |sub|
		next_token      = root.next_token
		Baguette::Context.verbosity = next_token.to_i
		Baguette::Log.info "Verbosity: #{Baguette::Context.verbosity}."
	end
}

class Blah
	class_property next_token = "bla"
end

# frequently used functions
opt_authd_login = -> (root : Phreak::Subparser) {
	root.bind(short_flag: 'l', long_flag: "login", description: "Authd user login.") do |sub|
		sub.grab do |sub, name|
			Blah.next_token = name
		end
		Context.authd_login = Blah.next_token
		Baguette::Log.info "User login for authd: #{Context.authd_login}."
	end
	root.bind(short_flag: 'p', long_flag: "password", description: "Authd user password.") do |sub|
		sub.grab do |sub, name|
			Blah.next_token = name
		end
		Context.authd_pass  = Blah.next_token
		Baguette::Log.info "User password for authd: #{Context.authd_pass}."
	end
}

opt_authd_admin = -> (root : Phreak::Subparser) {
	root.bind(short_flag: 'k', long_flag: "key-file", description: "Read the authd shared key from a file.") do |sub|
		puts "Reading the next token !!"
		sub.grab do |sub, name|
			puts "here reading the next token: #{name}"
			Blah.next_token = name
			key_file = Blah.next_token
			Context.shared_key  = File.read(key_file).chomp
			Baguette::Log.info "Key for admin operations: #{Context.shared_key}."
		end
	end
}

# frequently used functions
opt_profile = -> (root : Phreak::Subparser) {
	root.bind(short_flag: 'P', long_flag: "profile", description: "Read the user profile from a file.") do |sub|
		sub.grab do |sub, name|
			Blah.next_token = name
		end
		file = Blah.next_token
		Context.user_profile = JSON.parse(File.read file).as_h
		Baguette::Log.info "Reading the user profile: #{Context.user_profile}."
	end
}

opt_simulation = -> (root : Phreak::RootParser) {
	root.bind(short_flag: 's', long_flag: "simulation", description: "Don't do anything.") do |sub|
		Baguette::Log.info "This is a simulation."
		Context.simulation = true
	end
}

opt_args = -> (root : Phreak::RootParser) {
	# With the right args, these will be interpreted as serialized data.
	# See "deal-add" for example.
	root.unrecognized_args do |arg|
		Baguette::Log.debug "Unrecognized argument: #{arg} (adding to Context.args)"
		if Context.args.nil?
			Context.args = Array(String).new
		end
		Context.args.not_nil! << arg
	end
}

parser_user_add = -> (root : Phreak::Subparser) {
	root.missing_args do |apex|
		Baguette::Log.info "Missing an argument after #{apex}"
	end

	# TODO?
	root.unrecognized_args do |arg|
		Baguette::Log.warning "Unrecognized argument: #{arg}"
		Baguette::Log.warning "#{root.banner}"
	end

	# opt_args.call root
	root.banner = "Usage: user-add user-id email phone [opt]"
	opt_help_sub.call root
}

class Phreak::Subparser
	property parent : Phreak::Subparser?
end

# Parsing arguments is reading and understanding the intent, not doing anything.
Phreak.parse! do |root|

	# Admin section.
	root.bind(word: "user-add", description: "user-add") do |sub|
		Baguette::Log.info "user-add"
		Context.command = "user-add"
		parser_user_add.call sub
		opt_profile.call sub
		opt_authd_admin.call sub
	end

	root.bind(word: "user-mod", description: "user-mod") do |sub|
		Baguette::Log.info "user-mod"
		Context.command = "user-mod"
		opt_profile.call sub
		opt_authd_admin.call sub
	end

	root.bind(word: "delete", description: "Remove user.") do |sub|
		Baguette::Log.info "Remove user."
		Context.command = "delete"
		opt_authd_admin.call sub
	end

	root.bind(word: "set-permissions", description: "Set permissions.") do |sub|
		Baguette::Log.info "Set permissions."
		Context.command = "set-permissions"
		opt_authd_admin.call sub
	end

	root.bind(word: "check-permissions", description: "Check permissions.") do |sub|
		Baguette::Log.info "Check permissions."
		Context.command = "check-permissions"
		opt_authd_admin.call sub
	end

	# Do not require to be admin.
	root.bind(word: "registration", description: "Register a user.") do |sub|
		Baguette::Log.info "Register a user."
		Context.command = "registration"
		opt_profile.call sub
		opt_authd_login.call sub
	end


	root.default do
		Baguette::Log.info "No arguments provided"
	end

	root.missing_args do |apex|
		Baguette::Log.info "Missing an argument after #{apex}"
	end

	opt_args.call root

	root.banner = "Usage: #{PROGRAM_NAME} [opts] command [other options]"
	opt_help.call         root
	opt_verbosity.call    root
	opt_simulation.call   root

	root.bind(word: "help", description: "Get some help.") do |sub|
		Baguette::Log.info "Help"
		Baguette::Log.info root
		exit 0
	end
end