implement $-vars substitution.

[apps/madmutt.git] / rcparser.y

diff --git a/rcparser.y b/rcparser.y
index 4f5c572..c2f1567 100644 (file)
--- a/rcparser.y
+++ b/rcparser.y
@@ -80,6 +80,23 @@
         buffer_add(buf, s, len);
         return buf;
     }
+
+    static void substvar(buffer_t *buf, const segment seg) {
+        const char *res;
+        char tmp[STRING];
+        char var[STRING];
+
+        if (m_strncpy(var, sizeof(var), seg.s, seg.len) <= 0)
+            return;
+
+        if ((res = getenv(var))) {
+            buffer_addstr(buf, res);
+            return;
+        }
+        if (mutt_option_value(var, tmp, sizeof(tmp))) {
+            buffer_addstr(buf, tmp);
+        }
+    }
 }
 
 %name rcparse
@@ -111,6 +128,10 @@ to_eol ::= sp to_eol_aux .
 /* Our macro tokens                                                         */
 /****************************************************************************/
 
+%type svar { segment }
+svar(Z) ::= DOLLAR ATOM(B) .               { Z = B; }
+svar(Z) ::= DOLLAR LBRACE ATOM(B) RBRACE . { Z = B; }
+
 /* '-quoted tokens */
 %type sqtok { buffer_t* }
 %destructor sqtok  { buffer_delete(&$$); }
@@ -134,16 +155,7 @@ dqtok(Z) ::= dqtok(A) BSLASH non_nl(B) .   { Z = buffer_escape(A, B.s, B.len); }
 dqtok(Z) ::= dqtok(A) ATOM|SPACE|SHARP|EQUAL|LBRACE|RBRACE(B)  . {
     buffer_add(Z = A, B.s, B.len);
 }
-dqtok(Z) ::= dqtok(A) DOLLAR ATOM(B) . {
-    // FIXME
-    B = B;
-    Z = A;
-}
-dqtok(Z) ::= dqtok(A) DOLLAR LBRACE ATOM(B) RBRACE . {
-    // FIXME
-    B = B;
-    Z = A;
-}
+dqtok(Z) ::= dqtok(A) svar(B) .            { substvar(Z = A, B); }
 
 /* unquoted tokens */
 %type uqtok { buffer_t* }
@@ -152,6 +164,7 @@ uqtok(Z) ::= ATOM|EQUAL|LBRACE|RBRACE(A) . { buffer_add(Z = buffer_new(), A.s, A
 uqtok(Z) ::= BSLASH non_nl(A) .            { buffer_add(Z = buffer_new(), A.s, A.len); }
 uqtok(Z) ::= QUOTE  sqtok(A) QUOTE .       { Z = A; }
 uqtok(Z) ::= DQUOTE dqtok(A) DQUOTE .      { Z = A; }
+uqtok(Z) ::= svar(B) .                     { substvar(Z = buffer_new(), B); }
 
 /* token accumulator */
 %type token { buffer_t* }
@@ -183,7 +196,12 @@ rclines ::= .
 rclines ::= rclines rcline .
 
 rcline ::= ALTERNATIVE_ORDER simple_list(L) to_eol . {
+    string_list_t *l;
     string_list_append(&AlternativeOrderList, string_list_rev(L));
+    printf("toto\n");
+    for (l = AlternativeOrderList; l; l = l->next) {
+        printf("%s\n", l->data);
+    }
 }
 rcline ::= AUTO_VIEW         simple_list(L) to_eol . {
     string_list_append(&AutoViewList, string_list_rev(L));