New options: --check-permissions and --add-parameter

* NEWS: Update.
* doc/eclat-stop.1: Update.
* doc/eclat.1man: Update.
* etc/default.fln: Special handling for DryRunOperation
and UnauthorizedOperation codes.
* lib/paramlist.c: New file.
* lib/Makefile.am (libeclat_a_SOURCES): Add paramlist.c
* lib/forlan.c: New function dequote.
* lib/libeclat.h (eclat_request_add_param0)
(ec2_param_free, ec2_param_list_create)
(ec2_param_list_append)
(eclat_request_add_param_list): New protos.
* lib/reqcreat.c (ec2_param_free): Remove static qualifier.
* src/stop-cl.opt: New file.
* src/Makefile.am (OPTFILES): Add stop-cl.opt
* src/cmdline.opt: New options: --check-permissions and --add-parameter.
* src/eclat.c (extra_param): New global.
(find_format): print error message if no such format is found.
* src/startstop.c (eclat_stop_instance): Use parse_stop_options

14 files changed, 194 insertions, 15 deletions

diff --git a/NEWS b/NEWS
index 781203c..ed97650 100644
--- a/NEWS
+++ b/NEWS
@@ -1,4 +1,4 @@
-Eclat NEWS -- history of user-visible changes. 2015-01-23
+Eclat NEWS -- history of user-visible changes. 2015-02-02
 Copyright (C) 2012-2015 Sergey Poznyakoff
 See the end of file for copying conditions.
 
@@ -12,6 +12,24 @@ Version 1.0.92, (Git)
  lsaattr   describe-image-attribute
  setaattr  modify-image-attribute
 
+* New options:
+
+ -A, --add-parameter=NAME=VALUE
+
+Adds parameter NAME with the given VALUE to the generated AWS request.
+This option is intended for testing new AWS functionality for which
+eclat does not yet provide native support.
+
+  -p, --check-permissions
+  
+Checks if you have the required permissions for the action, without
+actually making the request.
+
+* forcibly stop the instance
+
+eclat stop now supports -f (--force) option, which stops the instance
+forcibly.
+
 * Implement signature version 4 signing
 
 The signature version 4 signing process is now the default.  Version
diff --git a/doc/eclat-stop.1 b/doc/eclat-stop.1
index 5adbe61..a8f61a8 100644
--- a/doc/eclat-stop.1
+++ b/doc/eclat-stop.1
@@ -13,17 +13,21 @@
 .\"
 .\" You should have received a copy of the GNU General Public License
 .\" along with Eclat.  If not, see <http://www.gnu.org/licenses/>.
-.TH ECLAT-STOP 1 "January 26, 2015" "ECLAT" "Eclat User Reference"
+.TH ECLAT-STOP 1 "February 2, 2015" "ECLAT" "Eclat User Reference"
 .SH NAME
 eclat-stop, eclat-stop-instances \- stop EC2 instances
 .SH SYNOPSIS
-\fBeclat stop\fR \fIID\fR [\fIID\fR...]
+\fBeclat stop\fR [\fB\-f\fR] [\fB\-\-force\fR] \fIID\fR [\fIID\fR...]
 .PP
 \fBeclat stop\fR \fB\-\-help\fR
 .SH DESCRIPTION
 The command
 .B stop
 stops running Amazon EBS-backed instances.
+.SH OPTIONS
+.TP
+\fB\-f\fR, \fB\-\-force\fR
+Forcibly stop the instance.
 .SH OUTPUT
 The default output format lists on each line the instance ID, its
 previous and current states, separated by single horizontal tab
diff --git a/doc/eclat.1man b/doc/eclat.1man
index 50cc3e2..829bec6 100644
--- a/doc/eclat.1man
+++ b/doc/eclat.1man
@@ -13,7 +13,7 @@
 .\"
 .\" You should have received a copy of the GNU General Public License
 .\" along with Eclat.  If not, see <http://www.gnu.org/licenses/>.
-.TH ECLAT 1 "January 21, 2015" "ECLAT" "Eclat User Reference"
+.TH ECLAT 1 "February 2, 2015" "ECLAT" "Eclat User Reference"
 .SH NAME
 eclat \- EC2 Command Line Administrator Tool
 .SH SYNOPSIS
@@ -466,6 +466,14 @@ Dump configuration grammar traces.
 .TP
 \fB\-\-dump\-lex\-trace\fR
 Dump lexical analyzer traces.
+.TP
+\fB\-p\fR, \fB\-\-check\-permissions\fR
+Check if you have the required permissions for the action, without
+actually making the request.  This is equivalent to
+\fB\-\-add\-parameter=DryRun=true\fR.
+.TP
+\fB\-A\fR, \fB\-\-add\-parameter=\fINAME\fB=\fIVALUE\fR
+Add parameter to the AWS request.
 .SS Help and additional information
 .TP
 \fB\-\-config\-help
diff --git a/etc/default.fln b/etc/default.fln
index 178af18..d3da5eb 100644
--- a/etc/default.fln
+++ b/etc/default.fln
@@ -15,8 +15,15 @@
    along with Eclat.  If not, see <http://www.gnu.org/licenses/>. */
    
 if (.Response.Errors) {
-  error("Error: ",.Response.Errors.Error.Message,"\n");
-  exit(1);
+  if (.Response.Errors.Error.Code[DryRunOperation]) {
+    print(dequote(.Response.Errors.Error.Message),"\n");
+  } else if (.Response.Errors.Error.Code[UnauthorizedOperation]) {
+    error(dequote(.Response.Errors.Error.Message),"\n");
+    exit(1);
+  } else {
+    error("Error: ",dequote(.Response.Errors.Error.Message),"\n");
+    exit(1);
+  }
 } else {
   error("Unrecognized response:\n");
   dump(.);
diff --git a/lib/Makefile.am b/lib/Makefile.am
index 5cfa67a..711bc98 100644
--- a/lib/Makefile.am
+++ b/lib/Makefile.am
@@ -53,6 +53,7 @@ libeclat_a_SOURCES=\
  hmac_sha256.c\
  libeclat.h\
  map.c\
+ paramlist.c\
  path.c\
  req2url.c\
  reqaddparm.c\
diff --git a/lib/forlan.c b/lib/forlan.c
index 2275bc7..977271d 100644
--- a/lib/forlan.c
+++ b/lib/forlan.c
@@ -1049,6 +1049,22 @@ func_decode(forlan_eval_env_t env, struct grecs_list *list)
 }
 
 static void
+func_dequote(forlan_eval_env_t env, struct grecs_list *list)
+{
+        struct forlan_value *val = list->head->data;
+        char *s = val->v.string;
+        size_t l = strlen(s);
+        
+        if (l >= 2 && s[0] == '"' && s[l-1] == '"') {
+                s++;
+                l -= 2;
+        }
+        env->retval.v.string = grecs_malloc(l + 1);
+        memcpy(env->retval.v.string, s, l);
+        env->retval.v.string[l] = 0;
+}
+
+static void
 func_exit(forlan_eval_env_t env, struct grecs_list *list)
 {
         struct forlan_value *val = list->head->data;
@@ -1127,6 +1143,7 @@ static struct forlan_function functab[] = {
         { "parent", forlan_value_node, "n", 1, 1, func_parent },
         { "sort",   forlan_value_void, "nss", 1, 3, func_sort },
         { "decode", forlan_value_literal, "s", 1, 1, func_decode },
+        { "dequote", forlan_value_literal, "s", 1, 1, func_dequote },
         { "exit",   forlan_value_void, "s", 1, 1, func_exit },
         { "empty",  forlan_value_boolean, "n", 1, 1, func_empty },
         { "timestamp", forlan_value_literal, "s", 1, 1, func_timestamp },
diff --git a/lib/libeclat.h b/lib/libeclat.h
index b33f0a2..770fb7d 100644
--- a/lib/libeclat.h
+++ b/lib/libeclat.h
@@ -105,6 +105,8 @@ struct ec2_request *eclat_request_create(int flags, const char *endpoint,
                                      const char *uri, char const *region,
                                      char const *access_key, char const *token);
 void eclat_request_free(struct ec2_request *);
+void eclat_request_add_param0(struct ec2_request *req, const char *name,
+                              const char *value, int encoded);
 void eclat_request_add_param(struct ec2_request *req, const char *name,
                            const char *value);
 void eclat_request_add_param_encoded(struct ec2_request *req, const char *name,
@@ -119,6 +121,13 @@ char *eclat_request_to_url(struct ec2_request *req);
 void eclat_request_encode(struct ec2_request *req);
 void eclat_request_finalize(struct ec2_request *req);
 
+void ec2_param_free(void *ptr);
+
+struct grecs_list *ec2_param_list_create(void);
+void ec2_param_list_append(struct grecs_list **lp, char const *name,
+                           char const *val);
+void eclat_request_add_param_list(struct ec2_request *req,
+                                  struct grecs_list *lp);
 
 typedef struct eclat_partial_tree *eclat_partial_tree_t;
 
diff --git a/lib/paramlist.c b/lib/paramlist.c
new file mode 100644
index 0000000..6d6c40a
--- /dev/null
+++ b/lib/paramlist.c
@@ -0,0 +1,57 @@
+/* This file is part of Eclat.
+   Copyright (C) 2012-2015 Sergey Poznyakoff.
+ 
+   Eclat is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3, or (at your option)
+   any later version.
+ 
+   Eclat is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+ 
+   You should have received a copy of the GNU General P