File: function_object.cpp

package info (click to toggle)
kdelibs 4:2.2.2-13.woody.14
  • links: PTS
  • area: main
  • in suites: woody
  • size: 36,832 kB
  • ctags: 40,077
  • sloc: cpp: 313,284; ansic: 20,558; xml: 11,448; sh: 11,318; makefile: 2,426; perl: 2,084; yacc: 1,663; java: 1,538; lex: 629; python: 300
file content (121 lines) | stat: -rw-r--r-- 3,477 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
/*
 *  This file is part of the KDE libraries
 *  Copyright (C) 1999-2000 Harri Porten (porten@kde.org)
 *
 *  This library is free software; you can redistribute it and/or
 *  modify it under the terms of the GNU Lesser General Public
 *  License as published by the Free Software Foundation; either
 *  version 2 of the License, or (at your option) any later version.
 *
 *  This library 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
 *  Lesser General Public License for more details.
 *
 *  You should have received a copy of the GNU Lesser General Public
 *  License along with this library; if not, write to the Free Software
 *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */

#include "function_object.h"

#include "lexer.h"
#include "nodes.h"
#include "error_object.h"

extern int kjsyyparse();

using namespace KJS;

FunctionObject::FunctionObject(const Object& funcProto)
  : ConstructorImp(funcProto, 1)
{
  // ECMA 15.3.3.1 Function.prototype
  setPrototypeProperty(funcProto);
}

// ECMA 15.3.1 The Function Constructor Called as a Function
Completion FunctionObject::execute(const List &args)
{
  return Completion(ReturnValue, construct(args));
}

// ECMA 15.3.2 The Function Constructor
Object FunctionObject::construct(const List &args)
{
  UString p("");
  UString body;
  int argsSize = args.size();
  if (argsSize == 0) {
    body = "";
  } else if (argsSize == 1) {
    body = args[0].toString().value();
  } else {
    p = args[0].toString().value();
    for (int k = 1; k < argsSize - 1; k++)
      p += "," + args[k].toString().value();
    body = args[argsSize-1].toString().value();
  }

  Lexer::curr()->setCode(body.data(), body.size());

  KJScriptImp::current()->pushStack();
  int yp = kjsyyparse();
  ProgramNode *progNode = KJScriptImp::current()->progNode();
  KJScriptImp::current()->popStack();
  if (yp) {
    /* TODO: free nodes */
    return ErrorObject::create(SyntaxError,
			       I18N_NOOP("Syntax error in function body"), -1);
  }

  List scopeChain;
  scopeChain.append(Global::current());
  FunctionBodyNode *bodyNode = progNode;
  FunctionImp *fimp = new DeclaredFunctionImp(UString::null, bodyNode,
					      &scopeChain);
  Object ret(fimp); // protect from GC

  // parse parameter list. throw syntax error on illegal identifiers
  int len = p.size();
  const UChar *c = p.data();
  int i = 0, params = 0;
  UString param;
  while (i < len) {
      while (*c == ' ' && i < len)
	  c++, i++;
      if (Lexer::isIdentLetter(c->unicode())) {  // else error
	  param = UString(c, 1);
	  c++, i++;
	  while (i < len && (Lexer::isIdentLetter(c->unicode()) ||
			     Lexer::isDecimalDigit(c->unicode()))) {
	      param += UString(c, 1);
	      c++, i++;
	  }
	  while (i < len && *c == ' ')
	      c++, i++;
	  if (i == len) {
	      fimp->addParameter(param);
	      params++;
	      break;
	  } else if (*c == ',') {
	      fimp->addParameter(param);
	      params++;
	      c++, i++;
	      continue;
	  } // else error
      }
      return ErrorObject::create(SyntaxError,
				 I18N_NOOP("Syntax error in parameter list"),
				 -1);
  }

  fimp->setLength(params);
  fimp->setPrototypeProperty(Global::current().functionPrototype());
  return ret;
}

FunctionPrototype::FunctionPrototype(const Object &p)
    : ObjectImp(FunctionClass, Null(), p)
{
}