# Crown Copyright (c) 1997 # # This TenDRA(r) Computer Program is subject to Copyright # owned by the United Kingdom Secretary of State for Defence # acting through the Defence Evaluation and Research Agency # (DERA). It is made available to Recipients with a # royalty-free licence for its use, reproduction, transfer # to other parties and amendment for any purpose not excluding # product development provided that any such use et cetera # shall be deemed to be acceptance of the following conditions:- # # (1) Its Recipients shall ensure that this Notice is # reproduced upon any copies or amended versions of it; # # (2) Any amended version of it shall be clearly marked to # show both the nature of and the organisation responsible # for the relevant amendment or amendments; # # (3) Its onward transfer from a recipient to another # party shall be deemed to be that party's acceptance of # these conditions; # # (4) DERA gives no warranty or assurance as to its # quality or suitability for any purpose and DERA accepts # no liability whatsoever in relation to any use to which # it may be put. # header $[ #include "arg-parse.h" ]$; fatal "arg parse unknown option" { "unknown option '${option}'\n\ ${usage}", { "option" : "CStringP" $[ write_cstring(ostream, closure->option); ]$ }, { "usage" : "ArgUsageP" $[ write_arg_usage(ostream, closure->usage); ]$ } }; fatal "arg parse unknown short opt" { "unknown short option '${option}' at '${option location}'\n\ ${usage}", { "option" : "CStringP" $[ write_cstring(ostream, closure->option); ]$ }, { "option location" : "CStringP" $[ write_cstring(ostream, closure->option_location); ]$ }, { "usage" : "ArgUsageP" $[ write_arg_usage(ostream, closure->usage); ]$ } }; fatal "arg parse ambiguous option" { "ambiguous option '${option}'\n\ ${usage}", { "option" : "CStringP" $[ write_cstring(ostream, closure->option); ]$ }, { "usage" : "ArgUsageP" $[ write_arg_usage(ostream, closure->usage); ]$ } }; fatal "arg parse missing argument" { "missing argument for option '${option}'\n\ ${usage}", { "option" : "CStringP" $[ write_cstring(ostream, closure->option); ]$ }, { "usage" : "ArgUsageP" $[ write_arg_usage(ostream, closure->usage); ]$ } }; fatal "arg parse missing short arg" { "missing argument for option '${option}' at '${option location}'\n\ ${usage}", { "option" : "CStringP" $[ write_cstring(ostream, closure->option); ]$ }, { "option location" : "CStringP" $[ write_cstring(ostream, closure->option_location); ]$ }, { "usage" : "ArgUsageP" $[ write_arg_usage(ostream, closure->usage); ]$ } };