Started new boolean options.

Author: matejak

src/collectors.m4

@@ -1,6 +1,30 @@
 m4_define([_COLLECTOR_FEEDBACK], [m4_fatal($@)])
 
 
+dnl
+dnl $1: The key
+m4_define([_FORMAT_MISSING_PREFIX], [m4_do(
+	[[The prefix for option '$1' has not been found]],
+)])
+
+dnl
+dnl $1: The argname(i.e. storage key)
+dnl $2: The prefix
+m4_define([STORE_NEGATION_PREFIX], [m4_do(
+	[m4_define([_NEG_PREFIX_FOR_$1], [[$2]])],
+)])
+
+
+dnl
+dnl $1: The argname(i.e. storage key)
+dnl $2: Error-handling callback that is given the error message as the first argument.
+m4_define([GET_NEGATION_PREFIX], [m4_do(
+	[m4_ifndef([_NEG_PREFIX_FOR_$1],
+		[m4_default([$2], [m4_fatal])([_FORMAT_MISSING_PREFIX([$1])])],
+		[m4_quote(m4_indir([_NEG_PREFIX_FOR_$1]))])],
+)])
+
+
 dnl
 dnl $1: The argument name
 dnl $2: The help message
@@ -324,13 +348,49 @@ dnl $3: help
 dnl $4: default (=off)
 argbash_api([ARG_OPTIONAL_BOOLEAN], _CHECK_PASSED_ARGS_COUNT(1, 4)[m4_do(
 	[[$0($@)]],
-	[m4_ifnblank([$4], [m4_case([$4], [on], , [off], ,
+	[m4_ifnblank([$4], [m4_case([$4],
+		[on], [_ARG_OPTIONAL_SWITCH_ON([$1], [$2], [$3])],
+		[off], [_ARG_OPTIONAL_SWITCH_OFF([$1], [$2], [$3])],
 		[_COLLECTOR_FEEDBACK([Problem with argument '$1': Only 'on' or 'off' are allowed as boolean defaults, you have specified '$4'.])])])],
 	[_ADD_OPTIONAL_ARGUMENT_IF_POSSIBLE([$1], [$2], [$3],
 		m4_default_quoted([$4], [off]), [bool])],
 )])
 
 
+dnl $1: long name, var suffix (translit of [-] -> _)
+dnl $2: short name (opt)
+dnl $3: help
+argbash_api([ARG_OPTIONAL_SWITCH_ON], _CHECK_PASSED_ARGS_COUNT(1, 3)[m4_do(
+	[[$0($@)]],
+	[_ARG_OPTIONAL_SWITCH_ON($@)],
+)])
+
+
+m4_define([_ARG_OPTIONAL_SWITCH_ON], _CHECK_PASSED_ARGS_COUNT(1, 3)[m4_do(
+	[_ADD_OPTIONAL_ARGUMENT_IF_POSSIBLE([$1], [$2], [$3], [off], [bool])],
+)])
+
+
+m4_define([_DEFAULT_NEGATION_PREFIX], [[no-]])
+
+m4_define([ARG_SET_DEFAULT_NEGATION_PREFIX], [m4_define([_DEFAULT_NEGATION_PREFIX], [[$1]])])
+
+dnl $1: long name, var suffix (translit of [-] -> _)
+dnl $2: short name (opt)
+dnl $3: help
+dnl $4: the negation prefix (=no-, resulting in i.e. --no-video)
+argbash_api([ARG_OPTIONAL_SWITCH_OFF], _CHECK_PASSED_ARGS_COUNT(1, 4)[m4_do(
+	[[$0($@)]],
+	[_ARG_OPTIONAL_SWITCH_OFF($@)],
+)])
+
+
+m4_define([_ARG_OPTIONAL_SWITCH_OFF], _CHECK_PASSED_ARGS_COUNT(1, 4)[m4_do(
+	[STORE_NEGATION_PREFIX([$1], m4_default_quoted([$4], _DEFAULT_NEGATION_PREFIX))],
+	[_ADD_OPTIONAL_ARGUMENT_IF_POSSIBLE([$1], [$2], [$3], [on], [bool])],
+)])
+
+
 m4_define([_ARG_OPTIONAL_ACTION],
 	[_ADD_OPTIONAL_ARGUMENT_IF_POSSIBLE([$1], [$2], [$3], [$4], [action])])
 

start_tmux.sh

@@ -4,6 +4,6 @@ tmux send-keys 'vim stuff.m4' C-m
 tmux new-window -c resources
 tmux send-keys -l 'make unittests'
 tmux new-window -c tests/unittests
-tmux send-keys -l 'vim '
+tmux send-keys -l 'vim -p test-support.m4 '
 tmux select-window -t argbash:0
 tmux -2 attach-session -t argbash

tests/unittests/check-arguments.m4

@@ -44,6 +44,9 @@ assert_equals([not single], _CATH_IS_SINGLE_VALUED(m4_list_nth([_ARGS_CATH], 4),
 
 _DISCARD_VALUES_FOR_ALL_ARGUMENTS()
 
+assert_equals(m4_list_len([_ARGS_LONG]), 0)
+
+
 ARG_OPTIONAL_SINGLE([foo], [f], [Help,BOMB], [Default])
 ARG_POSITIONAL_SINGLE([defaultless], [xhelp])
 ARG_POSITIONAL_MULTI([multi-BOMB], [help-BOMB], 3, [one], [two])
@@ -103,3 +106,23 @@ ARG_OPTIONAL_SINGLE([bar], [f])
 assert_equals(m4_list_len([_ERRORS_]), 1)
 m4_bmatch(m4_list_nth([_ERRORS_], 1), ['f'.*already used], [], [m4_fatal([Expected error reflecting duplicate short option, got] 'm4_list_nth([_ERRORS_], 1)' instead.)])
 m4_popdef([_COLLECTOR_FEEDBACK])
+
+_DISCARD_VALUES_FOR_ALL_ARGUMENTS()
+
+ARG_OPTIONAL_SWITCH_ON([foo], [f])
+assert_equals_list_element([_ARGS_LONG], 1, [foo])
+assert_equals_list_element([_ARGS_DEFAULT], 1, [off])
+
+ARG_OPTIONAL_SWITCH_OFF([bar], [b], , [BOMB])
+assert_equals_list_element([_ARGS_LONG], 2, [bar])
+assert_equals_list_element([_ARGS_DEFAULT], 2, [on])
+assert_equals(GET_NEGATION_PREFIX([bar]), [BOMB])
+
+ARG_OPTIONAL_SWITCH_OFF([BOMB])
+assert_equals_list_element([_ARGS_LONG], 3, [BOMB])
+assert_equals_list_element([_ARGS_DEFAULT], 2, [on])
+assert_equals(GET_NEGATION_PREFIX([BOMB]), [no-])
+
+ARG_SET_DEFAULT_NEGATION_PREFIX([BOMB])
+ARG_OPTIONAL_SWITCH_OFF([xx])
+assert_equals(GET_NEGATION_PREFIX([xx]), [BOMB])

tests/unittests/check-collectors.m4

@@ -0,0 +1,12 @@
+m4_include([collectors.m4])
+
+m4_include([test-support.m4])
+
+
+m4_define([SAVE], [m4_define([SAVED], [$1])])
+
+GET_NEGATION_PREFIX([BOMB], [SAVE])
+assert_equals(SAVED, _FORMAT_MISSING_PREFIX([BOMB]))
+
+STORE_NEGATION_PREFIX([lol], [BOMB])
+assert_equals(GET_NEGATION_PREFIX([lol]), [BOMB])