carbon2-commit: Support up to nine keywords in the PARSE_KEYWORDS() macro.

changeset: 5380:df125a42c50c user: Aidan Kehoe <kehoea(a)parhasard.net&gt; date: Thu Dec 30 01:04:38 2010 +0000 files: src/ChangeLog src/lisp.h description: Support up to nine keywords in the PARSE_KEYWORDS() macro. 2010-12-30 Aidan Kehoe <kehoea(a)parhasard.net&gt; * lisp.h (DECLARE_N_KEYWORDS_8, DECLARE_N_KEYWORDS_9) (CHECK_N_KEYWORDS_8, CHECK_N_KEYWORDS_9): Support up to nine keywords in the PARSE_KEYWORDS() macro. diff -r 57a64ab2ae45 -r df125a42c50c src/ChangeLog --- a/src/ChangeLog Thu Dec 30 01:00:40 2010 +0000 +++ b/src/ChangeLog Thu Dec 30 01:04:38 2010 +0000 ＠＠ -1,3 +1,9 ＠＠ +2010-12-30 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * lisp.h (DECLARE_N_KEYWORDS_8, DECLARE_N_KEYWORDS_9) + (CHECK_N_KEYWORDS_8, CHECK_N_KEYWORDS_9): + Support up to nine keywords in the PARSE_KEYWORDS() macro. + 2010-12-30 Aidan Kehoe <kehoea(a)parhasard.net&gt; * elhash.c (syms_of_elhash): diff -r 57a64ab2ae45 -r df125a42c50c src/lisp.h --- a/src/lisp.h Thu Dec 30 01:00:40 2010 +0000 +++ b/src/lisp.h Thu Dec 30 01:04:38 2010 +0000 ＠＠ -3641,6 +3641,10 ＠＠ DECLARE_N_KEYWORDS_5(a,b,c,d,e), f = Qnil #define DECLARE_N_KEYWORDS_7(a,b,c,d,e,f,g) \ DECLARE_N_KEYWORDS_6(a,b,c,d,e,f), g = Qnil +#define DECLARE_N_KEYWORDS_8(a,b,c,d,e,f,g,h) \ + DECLARE_N_KEYWORDS_7(a,b,c,d,e,f,g), h = Qnil +#define DECLARE_N_KEYWORDS_9(a,b,c,d,e,f,g,h,i) \ + DECLARE_N_KEYWORDS_8(a,b,c,d,e,f,g,h), i = Qnil #define CHECK_N_KEYWORDS_1(a) \ else if (EQ (pk_key, Q_##a)) { a = pk_value; } ＠＠ -3656,6 +3660,12 ＠＠ else if (EQ (pk_key, Q_##f)) { f = pk_value; } #define CHECK_N_KEYWORDS_7(a,b,c,d,e,f,g) CHECK_N_KEYWORDS_6(a,b,c,d,e,f) \ else if (EQ (pk_key, Q_##g)) { g = pk_value; } +#define CHECK_N_KEYWORDS_8(a,b,c,d,e,f,g,h) \ + CHECK_N_KEYWORDS_7(a,b,c,d,e,f,g) \ + else if (EQ (pk_key, Q_##h)) { h = pk_value; } +#define CHECK_N_KEYWORDS_9(a,b,c,d,e,f,g,h,i) \ + CHECK_N_KEYWORDS_8(a,b,c,d,e,f,g,h) \ + else if (EQ (pk_key, Q_##i)) { i = pk_value; } Boolint non_nil_allow_other_keys_p (Elemcount offset, int nargs, Lisp_Object *args); _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches