modules/keywords.js

   1 /**
   2  * (C) Copyright 2007-2008 Jeremy Maitin-Shepard
   3  *
   4  * Use, modification, and distribution are subject to the terms specified in the
   5  * COPYING file.
   6  **/
   7
   8 {
   9     let _keyword_argument_list = [];
  10     let _get_keyword_argument_setter = function _get_keyword_argument_setter(name) {
  11         return function (value) { _keyword_argument_list[_keyword_argument_list.length] = name; return value; }
  12     }
  13
  14     let _get_keyword_argument_getter = function _get_keyword_argument_getter(name) {
  15         return function () { _keyword_argument_list[_keyword_argument_list.length] = name; return true; }
  16     }
  17
  18     // This function must be called with all string arguments, all of
  19     // which must begin with "$".
  20     function define_keywords()
  21     {
  22         for (var i = 0; i < arguments.length; ++i)
  23         {
  24             var name = arguments[i];
  25             this.__defineSetter__(name, _get_keyword_argument_setter(name));
  26             this.__defineGetter__(name, _get_keyword_argument_getter(name));
  27         }
  28     }
  29
  30     var define_keyword = define_keywords;
  31
  32     let write_keywords = function write_keywords(output, input) {
  33         let first_index = input.callee.length;
  34         let max_index = input.length;
  35         let count = max_index - first_index;
  36         if (count > 0) {
  37             let offset = _keyword_argument_list.length - 1;
  38             for (let i = max_index - 1; i >= first_index; --i) {
  39                 let value = input[i];
  40                 if (value instanceof keyword_argument_forwarder) {
  41                     for (let x in value)
  42                         output[x] = value[x];
  43                     --count;
  44                 } else {
  45                     let name = _keyword_argument_list[offset--];
  46                     output[name] = value;
  47                 }
  48             }
  49             _keyword_argument_list.length -= count;
  50         }
  51     }
  52
  53     let keyword_argument_forwarder = function keyword_argument_forwarder(args) {
  54         if ("_processed_keywords" in args) {
  55             for (let x in args) {
  56                 if (x[0] == "$") {
  57                     this[x] = args[x];
  58                 }
  59             }
  60         } else
  61             write_keywords(this, args);
  62     }
  63
  64     function keywords(args) {
  65         write_keywords(args, arguments);
  66         write_keywords(args, args);
  67         args._processed_keywords = true;
  68     }
  69
  70     function forward_keywords(args) {
  71         return new keyword_argument_forwarder(args);
  72     }
  73
  74     function protect_keywords() {
  75         return new keyword_argument_forwarder(arguments);
  76     }
  77 }