patch 8.0.1727: qf_get_properties() function is too long

Problem:    qf_get_properties() function is too long.
Solution:   Refactor the code. (Yegappan Lakshmanan, closes #2807)

src/quickfix.c

@@ -1183,7 +1183,8 @@ qf_init_ext(
     fields.errmsglen = CMDBUFFSIZE + 1;
     fields.errmsg = alloc_id(fields.errmsglen, aid_qf_errmsg);
     fields.pattern = alloc_id(CMDBUFFSIZE + 1, aid_qf_pattern);
-    if (fields.namebuf == NULL || fields.errmsg == NULL || fields.pattern == NULL)
+    if (fields.namebuf == NULL || fields.errmsg == NULL
+		|| fields.pattern == NULL)
 	goto qf_init_end;
 
     if (efile != NULL && (state.fd = mch_fopen((char *)efile, "r")) == NULL)
@@ -1817,7 +1818,6 @@ qf_push_dir(char_u *dirbuf, struct dir_stack_T **stackptr, int is_file_stack)
     }
 }
 
-
 /*
  * pop dirbuf from the directory stack and return previous directory or NULL if
  * stack is empty
@@ -4948,7 +4948,8 @@ enum {
 };
 
 /*
- * Parse text from 'di' and return the quickfix list items
+ * Parse text from 'di' and return the quickfix list items.
+ * Existing quickfix lists are not modified.
  */
     static int
 qf_get_list_from_lines(dict_T *what, dictitem_T *di, dict_T *retdict)
@@ -5017,25 +5018,13 @@ qf_winid(qf_info_T *qi)
 }
 
 /*
- * Return quickfix/location list details (title) as a
+ * Convert the keys in 'what' to quickfix list property flags.
- * dictionary. 'what' contains the details to return. If 'list_idx' is -1,
- * then current list is used. Otherwise the specified list is used.
  */
-    int
+    static int
-qf_get_properties(win_T *wp, dict_T *what, dict_T *retdict)
+qf_getprop_keys2flags(dict_T *what)
 {
-    qf_info_T	*qi = &ql_info;
-    int		status = OK;
-    int		qf_idx;
-    dictitem_T	*di;
     int		flags = QF_GETLIST_NONE;
 
-    if ((di = dict_find(what, (char_u *)"lines", -1)) != NULL)
-	return qf_get_list_from_lines(what, di, retdict);
-
-    if (wp != NULL)
-	qi = GET_LOC_LIST(wp);
-
     if (dict_find(what, (char_u *)"all", -1) != NULL)
 	flags |= QF_GETLIST_ALL;
 
@@ -5066,8 +5055,25 @@ qf_get_properties(win_T *wp, dict_T *what, dict_T *retdict)
     if (dict_find(what, (char_u *)"changedtick", -1) != NULL)
 	flags |= QF_GETLIST_TICK;
 
-    if (qi != NULL && qi->qf_listcount != 0)
+    return flags;
-    {
+}
+
+/*
+ * Return the quickfix list index based on 'nr' or 'id' in 'what'.
+ * If 'nr' and 'id' are not present in 'what' then return the current
+ * quickfix list index.
+ * If 'nr' is zero then return the current quickfix list index.
+ * If 'nr' is '$' then return the last quickfix list index.
+ * If 'id' is present then return the index of the quickfix list with that id.
+ * If 'id' is zero then return the quickfix list index specified by 'nr'.
+ * Return -1, if quickfix list is not present or if the stack is empty.
+ */
+    static int
+qf_getprop_qfidx(qf_info_T *qi, dict_T *what)
+{
+    int		qf_idx;
+    dictitem_T	*di;
+
     qf_idx = qi->qf_curlist;	/* default is the current list */
     if ((di = dict_find(what, (char_u *)"nr", -1)) != NULL)
     {
@@ -5089,7 +5095,6 @@ qf_get_properties(win_T *wp, dict_T *what, dict_T *retdict)
 	    qf_idx = qi->qf_listcount - 1;
 	else
 	    qf_idx = -1;
-	    flags |= QF_GETLIST_NR;
     }
 
     if ((di = dict_find(what, (char_u *)"id", -1)) != NULL)
@@ -5098,20 +5103,26 @@ qf_get_properties(win_T *wp, dict_T *what, dict_T *retdict)
 	if (di->di_tv.v_type == VAR_NUMBER)
 	{
 	    /*
-		 * For zero, use the current list or the list specifed by 'nr'
+	     * For zero, use the current list or the list specified by 'nr'
 	     */
 	    if (di->di_tv.vval.v_number != 0)
 		qf_idx = qf_id2nr(qi, di->di_tv.vval.v_number);
-		flags |= QF_GETLIST_ID;
 	}
 	else
 	    qf_idx = -1;
     }
-    }
 
-    /* List is not present or is empty */
+    return qf_idx;
-    if (qi == NULL || qi->qf_listcount == 0 || qf_idx == -1)
+}
-    {
+
+/*
+ * Return default values for quickfix list properties in retdict.
+ */
+    static int
+qf_getprop_defaults(qf_info_T *qi, int flags, dict_T *retdict)
+{
+    int		status = OK;
+
     if (flags & QF_GETLIST_TITLE)
 	status = dict_add_nr_str(retdict, "title", 0L, (char_u *)"");
     if ((status == OK) && (flags & QF_GETLIST_ITEMS))
@@ -5138,22 +5149,29 @@ qf_get_properties(win_T *wp, dict_T *what, dict_T *retdict)
 	status = dict_add_nr_str(retdict, "changedtick", 0L, NULL);
 
     return status;
-    }
+}
 
-    if (flags & QF_GETLIST_TITLE)
+/*
-    {
+ * Return the quickfix list title as 'title' in retdict
+ */
+    static int
+qf_getprop_title(qf_info_T *qi, int qf_idx, dict_T *retdict)
+{
     char_u	*t;
+
     t = qi->qf_lists[qf_idx].qf_title;
     if (t == NULL)
 	t = (char_u *)"";
-	status = dict_add_nr_str(retdict, "title", 0L, t);
+    return dict_add_nr_str(retdict, "title", 0L, t);
-    }
+}
-    if ((status == OK) && (flags & QF_GETLIST_NR))
+
-	status = dict_add_nr_str(retdict, "nr", qf_idx + 1, NULL);
+/*
-    if ((status == OK) && (flags & QF_GETLIST_WINID))
+ * Return the quickfix list items/entries as 'items' in retdict
-	status = dict_add_nr_str(retdict, "winid", qf_winid(qi), NULL);
+ */
-    if ((status == OK) && (flags & QF_GETLIST_ITEMS))
+    static int
-    {
+qf_getprop_items(qf_info_T *qi, int qf_idx, dict_T *retdict)
+{
+    int		status = OK;
     list_T	*l = list_alloc();
     if (l != NULL)
     {
@@ -5162,10 +5180,19 @@ qf_get_properties(win_T *wp, dict_T *what, dict_T *retdict)
     }
     else
 	status = FAIL;
-    }
 
-    if ((status == OK) && (flags & QF_GETLIST_CONTEXT))
+    return status;
-    {
+}
+
+/*
+ * Return the quickfix list context (if any) as 'context' in retdict.
+ */
+    static int
+qf_getprop_ctx(qf_info_T *qi, int qf_idx, dict_T *retdict)
+{
+    int		status;
+    dictitem_T	*di;
+
     if (qi->qf_lists[qf_idx].qf_ctx != NULL)
     {
 	di = dictitem_alloc((char_u *)"context");
@@ -5181,25 +5208,70 @@ qf_get_properties(win_T *wp, dict_T *what, dict_T *retdict)
     }
     else
 	status = dict_add_nr_str(retdict, "context", 0L, (char_u *)"");
-    }
 
-    if ((status == OK) && (flags & QF_GETLIST_ID))
+    return status;
-	status = dict_add_nr_str(retdict, "id", qi->qf_lists[qf_idx].qf_id,
+}
-									 NULL);
 
-    if ((status == OK) && (flags & QF_GETLIST_IDX))
+/*
-    {
+ * Return the quickfix list index as 'idx' in retdict
+ */
+    static int
+qf_getprop_idx(qf_info_T *qi, int qf_idx, dict_T *retdict)
+{
     int idx = qi->qf_lists[qf_idx].qf_index;
     if (qi->qf_lists[qf_idx].qf_count == 0)
 	/* For empty lists, qf_index is set to 1 */
 	idx = 0;
-	status = dict_add_nr_str(retdict, "idx", idx, NULL);
+    return dict_add_nr_str(retdict, "idx", idx, NULL);
-    }
+}
 
+/*
+ * Return quickfix/location list details (title) as a
+ * dictionary. 'what' contains the details to return. If 'list_idx' is -1,
+ * then current list is used. Otherwise the specified list is used.
+ */
+    int
+qf_get_properties(win_T *wp, dict_T *what, dict_T *retdict)
+{
+    qf_info_T	*qi = &ql_info;
+    int		status = OK;
+    int		qf_idx;
+    dictitem_T	*di;
+    int		flags = QF_GETLIST_NONE;
+
+    if ((di = dict_find(what, (char_u *)"lines", -1)) != NULL)
+	return qf_get_list_from_lines(what, di, retdict);
+
+    if (wp != NULL)
+	qi = GET_LOC_LIST(wp);
+
+    flags = qf_getprop_keys2flags(what);
+
+    if (qi != NULL && qi->qf_listcount != 0)
+	qf_idx = qf_getprop_qfidx(qi, what);
+
+    /* List is not present or is empty */
+    if (qi == NULL || qi->qf_listcount == 0 || qf_idx == -1)
+	return qf_getprop_defaults(qi, flags, retdict);
+
+    if (flags & QF_GETLIST_TITLE)
+	status = qf_getprop_title(qi, qf_idx, retdict);
+    if ((status == OK) && (flags & QF_GETLIST_NR))
+	status = dict_add_nr_str(retdict, "nr", qf_idx + 1, NULL);
+    if ((status == OK) && (flags & QF_GETLIST_WINID))
+	status = dict_add_nr_str(retdict, "winid", qf_winid(qi), NULL);
+    if ((status == OK) && (flags & QF_GETLIST_ITEMS))
+	status = qf_getprop_items(qi, qf_idx, retdict);
+    if ((status == OK) && (flags & QF_GETLIST_CONTEXT))
+	status = qf_getprop_ctx(qi, qf_idx, retdict);
+    if ((status == OK) && (flags & QF_GETLIST_ID))
+	status = dict_add_nr_str(retdict, "id", qi->qf_lists[qf_idx].qf_id,
+									 NULL);
+    if ((status == OK) && (flags & QF_GETLIST_IDX))
+	status = qf_getprop_idx(qi, qf_idx, retdict);
     if ((status == OK) && (flags & QF_GETLIST_SIZE))
 	status = dict_add_nr_str(retdict, "size",
 					qi->qf_lists[qf_idx].qf_count, NULL);
-
     if ((status == OK) && (flags & QF_GETLIST_TICK))
 	status = dict_add_nr_str(retdict, "changedtick",
 				qi->qf_lists[qf_idx].qf_changedtick, NULL);
@@ -5609,7 +5681,7 @@ mark_quickfix_ctx(qf_info_T *qi, int copyID)
 
 /*
  * Mark the context of the quickfix list and the location lists (if present) as
- * "in use". So that garabage collection doesn't free the context.
+ * "in use". So that garbage collection doesn't free the context.
  */
     int
 set_ref_in_quickfix(int copyID)

src/version.c

@@ -762,6 +762,8 @@ static char *(features[]) =
 
 static int included_patches[] =
 {   /* Add new patch number below this line */
+/**/
+    1727,
 /**/
     1726,
 /**/