1 
2 /*
3  * Copyright 2006 The Android Open Source Project
4  *
5  * Use of this source code is governed by a BSD-style license that can be
6  * found in the LICENSE file.
7  */
8 
9 
10 #include "SkScript.h"
11 #include "SkMath.h"
12 #include "SkParse.h"
13 #include "SkString.h"
14 #include "SkTypedArray.h"
15 
16 /* things to do
17     ? re-enable support for struct literals (e.g., for initializing points or rects)
18         {x:1, y:2}
19     ? use standard XML / script notation like document.getElementById("canvas");
20     finish support for typed arrays
21         ? allow indexing arrays by string
22             this could map to the 'name' attribute of a given child of an array
23         ? allow multiple types in the array
24     remove SkDisplayType.h  // from SkOperand.h
25     merge type and operand arrays into scriptvalue array
26 */
27 
28 #ifdef SK_DEBUG
29 static const char* errorStrings[] = {
30         "array index of out bounds", // kArrayIndexOutOfBounds
31         "could not find reference id", // kCouldNotFindReferencedID
32         "dot operator expects object", // kDotOperatorExpectsObject
33         "error in array index", // kErrorInArrrayIndex
34         "error in function parameters", // kErrorInFunctionParameters
35         "expected array", // kExpectedArray
36         "expected boolean expression", // kExpectedBooleanExpression
37         "expected field name", // kExpectedFieldName
38         "expected hex", // kExpectedHex
39         "expected int for condition operator", // kExpectedIntForConditionOperator
40         "expected number", // kExpectedNumber
41         "expected number for array index", // kExpectedNumberForArrayIndex
42         "expected operator", // kExpectedOperator
43         "expected token", // kExpectedToken
44         "expected token before dot operator", // kExpectedTokenBeforeDotOperator
45         "expected value", // kExpectedValue
46         "handle member failed", // kHandleMemberFailed
47         "handle member function failed", // kHandleMemberFunctionFailed
48         "handle unbox failed", // kHandleUnboxFailed
49         "index out of range", // kIndexOutOfRange
50         "mismatched array brace", // kMismatchedArrayBrace
51         "mismatched brackets", // kMismatchedBrackets
52         "no function handler found", // kNoFunctionHandlerFound
53         "premature end", // kPrematureEnd
54         "too many parameters", // kTooManyParameters
55         "type conversion failed", // kTypeConversionFailed
56         "unterminated string" // kUnterminatedString
57 };
58 #endif
59 
60 const SkScriptEngine::SkOperatorAttributes SkScriptEngine::gOpAttributes[] = {
61     { kNoType, kNoType, kNoBias }, //   kUnassigned,
62     { SkOpType(kInt | kScalar | kString), SkOpType(kInt | kScalar | kString), kTowardsString }, // kAdd
63     // kAddInt = kAdd,
64     { kNoType, kNoType, kNoBias },  // kAddScalar,
65     { kNoType, kNoType, kNoBias },  // kAddString,
66     { kNoType, kNoType, kNoBias },  // kArrayOp,
67     { kInt, kInt, kNoBias }, // kBitAnd
68     { kNoType, kInt, kNoBias }, // kBitNot
69     { kInt, kInt, kNoBias }, // kBitOr
70     { SkOpType(kInt | kScalar), SkOpType(kInt | kScalar), kNoBias }, // kDivide
71     // kDivideInt = kDivide
72     { kNoType, kNoType, kNoBias },  // kDivideScalar
73     { kNoType, kNoType, kNoBias },  // kElse
74     { SkOpType(kInt | kScalar | kString), SkOpType(kInt | kScalar | kString), kTowardsNumber }, // kEqual
75     // kEqualInt = kEqual
76     { kNoType, kNoType, kNoBias },  // kEqualScalar
77     { kNoType, kNoType, kNoBias },  // kEqualString
78     { kInt, kNoType, kNoBias },     // kFlipOps
79     { SkOpType(kInt | kScalar | kString), SkOpType(kInt | kScalar | kString), kTowardsNumber }, // kGreaterEqual
80     // kGreaterEqualInt = kGreaterEqual
81     { kNoType, kNoType, kNoBias },  // kGreaterEqualScalar
82     { kNoType, kNoType, kNoBias },  // kGreaterEqualString
83     { kNoType, kNoType, kNoBias },  // kIf
84     { kNoType, kInt, kNoBias }, // kLogicalAnd  (really, ToBool)
85     { kNoType, kInt, kNoBias }, // kLogicalNot
86     { kInt, kInt, kNoBias }, // kLogicalOr
87     { kNoType, SkOpType(kInt | kScalar), kNoBias }, // kMinus
88     // kMinusInt = kMinus
89     { kNoType, kNoType, kNoBias },  // kMinusScalar
90     { SkOpType(kInt | kScalar), SkOpType(kInt | kScalar), kNoBias }, // kModulo
91     // kModuloInt = kModulo
92     { kNoType, kNoType, kNoBias },  // kModuloScalar
93     { SkOpType(kInt | kScalar), SkOpType(kInt | kScalar), kNoBias }, // kMultiply
94     // kMultiplyInt = kMultiply
95     { kNoType, kNoType, kNoBias },  // kMultiplyScalar
96     { kNoType, kNoType, kNoBias },  // kParen
97     { kInt, kInt, kNoBias }, // kShiftLeft
98     { kInt, kInt, kNoBias }, // kShiftRight
99     { SkOpType(kInt | kScalar), SkOpType(kInt | kScalar), kNoBias }, // kSubtract
100     // kSubtractInt = kSubtract
101     { kNoType, kNoType, kNoBias },  // kSubtractScalar
102     { kInt, kInt, kNoBias } // kXor
103 };
104 
105 // Note that the real precedence for () [] is '2'
106 // but here, precedence means 'while an equal or smaller precedence than the current operator
107 // is on the stack, process it. This allows 3+5*2 to defer the add until after the multiply
108 // is preformed, since the add precedence is not smaller than multiply.
109 // But, (3*4 does not process the '(', since brackets are greater than all other precedences
110 #define kBracketPrecedence 16
111 #define kIfElsePrecedence 15
112 
113 const signed char SkScriptEngine::gPrecedence[] = {
114         -1, //  kUnassigned,
115         6, // kAdd,
116         // kAddInt = kAdd,
117         6, // kAddScalar,
118         6, // kAddString,   // string concat
119         kBracketPrecedence, // kArrayOp,
120         10, // kBitAnd,
121         4, // kBitNot,
122         12, // kBitOr,
123         5, // kDivide,
124         // kDivideInt = kDivide,
125         5, // kDivideScalar,
126         kIfElsePrecedence, // kElse,
127         9, // kEqual,
128         // kEqualInt = kEqual,
129         9, // kEqualScalar,
130         9, // kEqualString,
131         -1, // kFlipOps,
132         8, // kGreaterEqual,
133         // kGreaterEqualInt = kGreaterEqual,
134         8, // kGreaterEqualScalar,
135         8, // kGreaterEqualString,
136         kIfElsePrecedence, // kIf,
137         13, // kLogicalAnd,
138         4, // kLogicalNot,
139         14, // kLogicalOr,
140         4, // kMinus,
141         // kMinusInt = kMinus,
142         4, // kMinusScalar,
143         5, // kModulo,
144         // kModuloInt = kModulo,
145         5, // kModuloScalar,
146         5, // kMultiply,
147         // kMultiplyInt = kMultiply,
148         5, // kMultiplyScalar,
149         kBracketPrecedence, // kParen,
150         7, // kShiftLeft,
151         7, // kShiftRight,  // signed
152         6, // kSubtract,
153         // kSubtractInt = kSubtract,
154         6, // kSubtractScalar,
155         11, // kXor
156 };
157 
is_between(int c,int min,int max)158 static inline bool is_between(int c, int min, int max)
159 {
160     return (unsigned)(c - min) <= (unsigned)(max - min);
161 }
162 
is_ws(int c)163 static inline bool is_ws(int c)
164 {
165     return is_between(c, 1, 32);
166 }
167 
token_length(const char * start)168 static int token_length(const char* start) {
169     char ch = start[0];
170     if (! is_between(ch, 'a' , 'z') &&  ! is_between(ch, 'A', 'Z') && ch != '_' && ch != '$')
171         return -1;
172     int length = 0;
173     do
174         ch = start[++length];
175     while (is_between(ch, 'a' , 'z') || is_between(ch, 'A', 'Z') || is_between(ch, '0', '9') ||
176         ch == '_' || ch == '$');
177     return length;
178 }
179 
SkScriptEngine(SkOpType returnType)180 SkScriptEngine::SkScriptEngine(SkOpType returnType) :
181     fTokenLength(0), fReturnType(returnType), fError(kNoError)
182 {
183     SkSuppress noInitialSuppress;
184     noInitialSuppress.fOperator = kUnassigned;
185     noInitialSuppress.fOpStackDepth = 0;
186     noInitialSuppress.fSuppress = false;
187     noInitialSuppress.fElse = 0;
188     fSuppressStack.push(noInitialSuppress);
189     *fOpStack.push() = kParen;
190     fTrackArray.appendClear();
191     fTrackString.appendClear();
192 }
193 
~SkScriptEngine()194 SkScriptEngine::~SkScriptEngine() {
195     for (SkString** stringPtr = fTrackString.begin(); stringPtr < fTrackString.end(); stringPtr++)
196         delete *stringPtr;
197     for (SkTypedArray** arrayPtr = fTrackArray.begin(); arrayPtr < fTrackArray.end(); arrayPtr++)
198         delete *arrayPtr;
199 }
200 
arithmeticOp(char ch,char nextChar,bool lastPush)201 int SkScriptEngine::arithmeticOp(char ch, char nextChar, bool lastPush) {
202     SkOp op = kUnassigned;
203     bool reverseOperands = false;
204     bool negateResult = false;
205     int advance = 1;
206     switch (ch) {
207         case '+':
208             // !!! ignoring unary plus as implemented here has the side effect of
209             // suppressing errors like +"hi"
210             if (lastPush == false)  // unary plus, don't push an operator
211                 goto returnAdv;
212             op = kAdd;
213             break;
214         case '-':
215             op = lastPush ? kSubtract : kMinus;
216             break;
217         case '*':
218             op = kMultiply;
219             break;
220         case '/':
221             op = kDivide;
222             break;
223         case '>':
224             if (nextChar == '>') {
225                 op = kShiftRight;
226                 goto twoChar;
227             }
228             op = kGreaterEqual;
229             if (nextChar == '=')
230                 goto twoChar;
231             reverseOperands = negateResult = true;
232             break;
233         case '<':
234             if (nextChar == '<') {
235                 op = kShiftLeft;
236                 goto twoChar;
237             }
238             op = kGreaterEqual;
239             reverseOperands = nextChar == '=';
240             negateResult = ! reverseOperands;
241             advance += reverseOperands;
242             break;
243         case '=':
244             if (nextChar == '=') {
245                 op = kEqual;
246                 goto twoChar;
247             }
248             break;
249         case '!':
250             if (nextChar == '=') {
251                 op = kEqual;
252                 negateResult = true;
253 twoChar:
254                 advance++;
255                 break;
256             }
257             op = kLogicalNot;
258             break;
259         case '?':
260             op = kIf;
261             break;
262         case ':':
263             op = kElse;
264             break;
265         case '^':
266             op = kXor;
267             break;
268         case '(':
269             *fOpStack.push() = kParen;  // push even if eval is suppressed
270             goto returnAdv;
271         case '&':
272             SkASSERT(nextChar != '&');
273             op = kBitAnd;
274             break;
275         case '|':
276             SkASSERT(nextChar != '|');
277             op = kBitOr;
278             break;
279         case '%':
280             op = kModulo;
281             break;
282         case '~':
283             op = kBitNot;
284             break;
285     }
286     if (op == kUnassigned)
287         return 0;
288     if (fSuppressStack.top().fSuppress == false) {
289         signed char precedence = gPrecedence[op];
290         do {
291             int idx = 0;
292             SkOp compare;
293             do {
294                 compare = fOpStack.index(idx);
295                 if ((compare & kArtificialOp) == 0)
296                     break;
297                 idx++;
298             } while (true);
299             signed char topPrecedence = gPrecedence[compare];
300             SkASSERT(topPrecedence != -1);
301             if (topPrecedence > precedence || (topPrecedence == precedence &&
302                     gOpAttributes[op].fLeftType == kNoType)) {
303                 break;
304             }
305             if (processOp() == false)
306                 return 0;   // error
307         } while (true);
308         if (negateResult)
309             *fOpStack.push() = (SkOp) (kLogicalNot | kArtificialOp);
310         fOpStack.push(op);
311         if (reverseOperands)
312             *fOpStack.push() = (SkOp) (kFlipOps | kArtificialOp);
313     }
314 returnAdv:
315     return advance;
316 }
317 
boxCallBack(_boxCallBack func,void * userStorage)318 void SkScriptEngine::boxCallBack(_boxCallBack func, void* userStorage) {
319     UserCallBack callBack;
320     callBack.fBoxCallBack = func;
321     commonCallBack(kBox, callBack, userStorage);
322 }
323 
commonCallBack(CallBackType type,UserCallBack & callBack,void * userStorage)324 void SkScriptEngine::commonCallBack(CallBackType type, UserCallBack& callBack, void* userStorage) {
325     callBack.fCallBackType = type;
326     callBack.fUserStorage = userStorage;
327     *fUserCallBacks.prepend() = callBack;
328 }
329 
convertParams(SkTDArray<SkScriptValue> & params,const SkFunctionParamType * paramTypes,int paramCount)330 bool SkScriptEngine::convertParams(SkTDArray<SkScriptValue>& params,
331         const SkFunctionParamType* paramTypes, int paramCount) {
332     if (params.count() > paramCount) {
333         fError = kTooManyParameters;
334         return false;   // too many parameters passed
335     }
336     for (int index = 0; index < params.count(); index++) {
337         if (convertTo((SkDisplayTypes) paramTypes[index], &params[index]) == false)
338             return false;
339     }
340     return true;
341 }
342 
convertTo(SkDisplayTypes toType,SkScriptValue * value)343 bool SkScriptEngine::convertTo(SkDisplayTypes toType, SkScriptValue* value ) {
344     SkDisplayTypes type = value->fType;
345     if (type == toType)
346         return true;
347     if (ToOpType(type) == kObject) {
348 #if 0   // !!! I want object->string to get string from displaystringtype, not id
349         if (ToOpType(toType) == kString) {
350             bool success = handleObjectToString(value->fOperand.fObject);
351             if (success == false)
352                 return false;
353             SkOpType type;
354             fTypeStack.pop(&type);
355             value->fType = ToDisplayType(type);
356             fOperandStack.pop(&value->fOperand);
357             return true;
358         }
359 #endif
360         if (handleUnbox(value) == false) {
361             fError = kHandleUnboxFailed;
362             return false;
363         }
364         return convertTo(toType, value);
365     }
366     return ConvertTo(this, toType, value);
367 }
368 
evaluateDot(const char * & script,bool suppressed)369 bool SkScriptEngine::evaluateDot(const char*& script, bool suppressed) {
370     size_t fieldLength = token_length(++script);        // skip dot
371     if (fieldLength == 0) {
372         fError = kExpectedFieldName;
373         return false;
374     }
375     const char* field = script;
376     script += fieldLength;
377     bool success = handleProperty(suppressed);
378     if (success == false) {
379         fError = kCouldNotFindReferencedID; // note: never generated by standard animator plugins
380         return false;
381     }
382     return evaluateDotParam(script, suppressed, field, fieldLength);
383 }
384 
evaluateDotParam(const char * & script,bool suppressed,const char * field,size_t fieldLength)385 bool SkScriptEngine::evaluateDotParam(const char*& script, bool suppressed,
386         const char* field, size_t fieldLength) {
387     void* object;
388     if (suppressed)
389         object = NULL;
390     else {
391         if (fTypeStack.top() != kObject) {
392             fError = kDotOperatorExpectsObject;
393             return false;
394         }
395         object = fOperandStack.top().fObject;
396         fTypeStack.pop();
397         fOperandStack.pop();
398     }
399     char ch; // see if it is a simple member or a function
400     while (is_ws(ch = script[0]))
401         script++;
402     bool success = true;
403     if (ch != '(') {
404             if (suppressed == false) {
405                 if ((success = handleMember(field, fieldLength, object)) == false)
406                     fError = kHandleMemberFailed;
407             }
408     } else {
409         SkTDArray<SkScriptValue> params;
410         *fBraceStack.push() = kFunctionBrace;
411         success = functionParams(&script, params);
412         if (success && suppressed == false &&
413                 (success = handleMemberFunction(field, fieldLength, object, params)) == false)
414             fError = kHandleMemberFunctionFailed;
415     }
416     return success;
417 }
418 
evaluateScript(const char ** scriptPtr,SkScriptValue * value)419 bool SkScriptEngine::evaluateScript(const char** scriptPtr, SkScriptValue* value) {
420 #ifdef SK_DEBUG
421     const char** original = scriptPtr;
422 #endif
423     bool success;
424     const char* inner;
425     if (strncmp(*scriptPtr, "#script:", sizeof("#script:") - 1) == 0) {
426         *scriptPtr += sizeof("#script:") - 1;
427         if (fReturnType == kNoType || fReturnType == kString) {
428             success = innerScript(scriptPtr, value);
429             if (success == false)
430                 goto end;
431             inner = value->fOperand.fString->c_str();
432             scriptPtr = &inner;
433         }
434     }
435     {
436         success = innerScript(scriptPtr, value);
437         if (success == false)
438             goto end;
439         const char* script = *scriptPtr;
440         char ch;
441         while (is_ws(ch = script[0]))
442             script++;
443         if (ch != '\0') {
444             // error may trigger on scripts like "50,0" that were intended to be written as "[50, 0]"
445             fError = kPrematureEnd;
446             success = false;
447         }
448     }
449 end:
450 #ifdef SK_DEBUG
451     if (success == false) {
452         SkDebugf("script failed: %s", *original);
453         if (fError)
454             SkDebugf(" %s", errorStrings[fError - 1]);
455         SkDebugf("\n");
456     }
457 #endif
458     return success;
459 }
460 
forget(SkTypedArray * array)461 void SkScriptEngine::forget(SkTypedArray* array) {
462     if (array->getType() == SkType_String) {
463         for (int index = 0; index < array->count(); index++) {
464             SkString* string = (*array)[index].fString;
465             int found = fTrackString.find(string);
466             if (found >= 0)
467                 fTrackString.remove(found);
468         }
469         return;
470     }
471     if (array->getType() == SkType_Array) {
472         for (int index = 0; index < array->count(); index++) {
473             SkTypedArray* child = (*array)[index].fArray;
474             forget(child);  // forgets children of child
475             int found = fTrackArray.find(child);
476             if (found >= 0)
477                 fTrackArray.remove(found);
478         }
479     }
480 }
481 
functionCallBack(_functionCallBack func,void * userStorage)482 void SkScriptEngine::functionCallBack(_functionCallBack func, void* userStorage) {
483     UserCallBack callBack;
484     callBack.fFunctionCallBack = func;
485     commonCallBack(kFunction, callBack, userStorage);
486 }
487 
functionParams(const char ** scriptPtr,SkTDArray<SkScriptValue> & params)488 bool SkScriptEngine::functionParams(const char** scriptPtr, SkTDArray<SkScriptValue>& params) {
489     (*scriptPtr)++; // skip open paren
490     *fOpStack.push() = kParen;
491     *fBraceStack.push() = kFunctionBrace;
492     SkBool suppressed = fSuppressStack.top().fSuppress;
493     do {
494         SkScriptValue value;
495         bool success = innerScript(scriptPtr, suppressed ? NULL : &value);
496         if (success == false) {
497             fError = kErrorInFunctionParameters;
498             return false;
499         }
500         if (suppressed)
501             continue;
502         *params.append() = value;
503     } while ((*scriptPtr)[-1] == ',');
504     fBraceStack.pop();
505     fOpStack.pop(); // pop paren
506     (*scriptPtr)++; // advance beyond close paren
507     return true;
508 }
509 
510 #ifdef SK_DEBUG
getErrorString(SkString * str) const511 bool SkScriptEngine::getErrorString(SkString* str) const {
512     if (fError)
513         str->set(errorStrings[fError - 1]);
514     return fError != 0;
515 }
516 #endif
517 
innerScript(const char ** scriptPtr,SkScriptValue * value)518 bool SkScriptEngine::innerScript(const char** scriptPtr, SkScriptValue* value) {
519     const char* script = *scriptPtr;
520     char ch;
521     bool lastPush = false;
522     bool success = true;
523     int opBalance = fOpStack.count();
524     int baseBrace = fBraceStack.count();
525     int suppressBalance = fSuppressStack.count();
526     while ((ch = script[0]) != '\0') {
527         if (is_ws(ch)) {
528             script++;
529             continue;
530         }
531         SkBool suppressed = fSuppressStack.top().fSuppress;
532         SkOperand operand;
533         const char* dotCheck;
534         if (fBraceStack.count() > baseBrace) {
535 #if 0   // disable support for struct brace
536             if (ch == ':') {
537                 SkASSERT(fTokenLength > 0);
538                 SkASSERT(fBraceStack.top() == kStructBrace);
539                 ++script;
540                 SkASSERT(fDisplayable);
541                 SkString token(fToken, fTokenLength);
542                 fTokenLength = 0;
543                 const char* tokenName = token.c_str();
544                 const SkMemberInfo* tokenInfo SK_INIT_TO_AVOID_WARNING;
545                 if (suppressed == false) {
546                     SkDisplayTypes type = fInfo->getType();
547                     tokenInfo = SkDisplayType::GetMember(type, &tokenName);
548                     SkASSERT(tokenInfo);
549                 }
550                 SkScriptValue tokenValue;
551                 success = innerScript(&script, &tokenValue);    // terminate and return on comma, close brace
552                 SkASSERT(success);
553                 if (suppressed == false) {
554                     if (tokenValue.fType == SkType_Displayable) {
555                         SkASSERT(SkDisplayType::IsDisplayable(tokenInfo->getType()));
556                         fDisplayable->setReference(tokenInfo, tokenValue.fOperand.fDisplayable);
557                     } else {
558                         if (tokenValue.fType != tokenInfo->getType()) {
559                             if (convertTo(tokenInfo->getType(), &tokenValue) == false)
560                                 return false;
561                         }
562                         tokenInfo->writeValue(fDisplayable, NULL, 0, 0,
563                             (void*) ((char*) fInfo->memberData(fDisplayable) + tokenInfo->fOffset + fArrayOffset),
564                             tokenInfo->getType(), tokenValue);
565                     }
566                 }
567                 lastPush = false;
568                 continue;
569             } else
570 #endif
571             if (fBraceStack.top() == kArrayBrace) {
572                 SkScriptValue tokenValue;
573                 success = innerScript(&script, &tokenValue);    // terminate and return on comma, close brace
574                 if (success == false) {
575                     fError = kErrorInArrrayIndex;
576                     return false;
577                 }
578                 if (suppressed == false) {
579 #if 0 // no support for structures for now
580                     if (tokenValue.fType == SkType_Structure) {
581                         fArrayOffset += (int) fInfo->getSize(fDisplayable);
582                     } else
583 #endif
584                     {
585                         SkDisplayTypes type = ToDisplayType(fReturnType);
586                         if (fReturnType == kNoType) {
587                             // !!! short sighted; in the future, allow each returned array component to carry
588                             // its own type, and let caller do any needed conversions
589                             if (value->fOperand.fArray->count() == 0)
590                                 value->fOperand.fArray->setType(type = tokenValue.fType);
591                             else
592                                 type = value->fOperand.fArray->getType();
593                         }
594                         if (tokenValue.fType != type) {
595                             if (convertTo(type, &tokenValue) == false)
596                                 return false;
597                         }
598                         *value->fOperand.fArray->append() = tokenValue.fOperand;
599                     }
600                 }
601                 lastPush = false;
602                 continue;
603             } else {
604                 if (token_length(script) == 0) {
605                     fError = kExpectedToken;
606                     return false;
607                 }
608             }
609         }
610         if (lastPush != false && fTokenLength > 0) {
611             if (ch == '(') {
612                 *fBraceStack.push() = kFunctionBrace;
613                 if (handleFunction(&script, SkToBool(suppressed)) == false)
614                     return false;
615                 lastPush = true;
616                 continue;
617             } else if (ch == '[') {
618                 if (handleProperty(SkToBool(suppressed)) == false)
619                     return false;   // note: never triggered by standard animator plugins
620                 if (handleArrayIndexer(&script, SkToBool(suppressed)) == false)
621                     return false;
622                 lastPush = true;
623                 continue;
624             } else if (ch != '.') {
625                 if (handleProperty(SkToBool(suppressed)) == false)
626                     return false;   // note: never triggered by standard animator plugins
627                 lastPush = true;
628                 continue;
629             }
630         }
631         if (ch == '0' && (script[1] & ~0x20) == 'X') {
632             if (lastPush != false) {
633                 fError = kExpectedOperator;
634                 return false;
635             }
636             script += 2;
637             script = SkParse::FindHex(script, (uint32_t*)&operand.fS32);
638             if (script == NULL) {
639                 fError = kExpectedHex;
640                 return false;
641             }
642             goto intCommon;
643         }
644         if (lastPush == false && ch == '.')
645             goto scalarCommon;
646         if (ch >= '0' && ch <= '9') {
647             if (lastPush != false) {
648                 fError = kExpectedOperator;
649                 return false;
650             }
651             dotCheck = SkParse::FindS32(script, &operand.fS32);
652             if (dotCheck[0] != '.') {
653                 script = dotCheck;
654 intCommon:
655                 if (suppressed == false)
656                     *fTypeStack.push() = kInt;
657             } else {
658 scalarCommon:
659                 script = SkParse::FindScalar(script, &operand.fScalar);
660                 if (suppressed == false)
661                     *fTypeStack.push() = kScalar;
662             }
663             if (suppressed == false)
664                 fOperandStack.push(operand);
665             lastPush = true;
666             continue;
667         }
668         int length = token_length(script);
669         if (length > 0) {
670             if (lastPush != false) {
671                 fError = kExpectedOperator;
672                 return false;
673             }
674             fToken = script;
675             fTokenLength = length;
676             script += length;
677             lastPush = true;
678             continue;
679         }
680         char startQuote = ch;
681         if (startQuote == '\'' || startQuote == '\"') {
682             if (lastPush != false) {
683                 fError = kExpectedOperator;
684                 return false;
685             }
686             operand.fString = new SkString();
687             track(operand.fString);
688             ++script;
689 
690             // <mrr> this is a lot of calls to append() one char at at time
691             // how hard to preflight script so we know how much to grow fString by?
692             do {
693                 if (script[0] == '\\')
694                     ++script;
695                 operand.fString->append(script, 1);
696                 ++script;
697                 if (script[0] == '\0') {
698                     fError = kUnterminatedString;
699                     return false;
700                 }
701             } while (script[0] != startQuote);
702             ++script;
703             if (suppressed == false) {
704                 *fTypeStack.push() = kString;
705                 fOperandStack.push(operand);
706             }
707             lastPush = true;
708             continue;
709         }
710         ;
711         if (ch ==  '.') {
712             if (fTokenLength == 0) {
713                 SkScriptValue scriptValue;
714                 SkDEBUGCODE(scriptValue.fOperand.fObject = NULL);
715                 int tokenLength = token_length(++script);
716                 const char* token = script;
717                 script += tokenLength;
718                 if (suppressed == false) {
719                     if (fTypeStack.count() == 0) {
720                         fError = kExpectedTokenBeforeDotOperator;
721                         return false;
722                     }
723                     SkOpType topType;
724                     fTypeStack.pop(&topType);
725                     fOperandStack.pop(&scriptValue.fOperand);
726                     scriptValue.fType = ToDisplayType(topType);
727                     handleBox(&scriptValue);
728                 }
729                 success = evaluateDotParam(script, SkToBool(suppressed), token, tokenLength);
730                 if (success == false)
731                     return false;
732                 lastPush = true;
733                 continue;
734             }
735             // get next token, and evaluate immediately
736             success = evaluateDot(script, SkToBool(suppressed));
737             if (success == false)
738                 return false;
739             lastPush = true;
740             continue;
741         }
742         if (ch == '[') {
743             if (lastPush == false) {
744                 script++;
745                 *fBraceStack.push() = kArrayBrace;
746                 if (suppressed)
747                     continue;
748                 operand.fArray = value->fOperand.fArray = new SkTypedArray(ToDisplayType(fReturnType));
749                 track(value->fOperand.fArray);
750                 *fTypeStack.push() = (SkOpType) kArray;
751                 fOperandStack.push(operand);
752                 continue;
753             }
754             if (handleArrayIndexer(&script, SkToBool(suppressed)) == false)
755                 return false;
756             lastPush = true;
757             continue;
758         }
759 #if 0 // structs not supported for now
760         if (ch == '{') {
761             if (lastPush == false) {
762                 script++;
763                 *fBraceStack.push() = kStructBrace;
764                 if (suppressed)
765                     continue;
766                 operand.fS32 = 0;
767                 *fTypeStack.push() = (SkOpType) kStruct;
768                 fOperandStack.push(operand);
769                 continue;
770             }
771             SkASSERT(0); // braces in other contexts aren't supported yet
772         }
773 #endif
774         if (ch == ')' && fBraceStack.count() > 0) {
775             SkBraceStyle braceStyle = fBraceStack.top();
776             if (braceStyle == kFunctionBrace) {
777                 fBraceStack.pop();
778                 break;
779             }
780         }
781         if (ch == ',' || ch == ']') {
782             if (ch != ',') {
783                 SkBraceStyle match;
784                 fBraceStack.pop(&match);
785                 if (match != kArrayBrace) {
786                     fError = kMismatchedArrayBrace;
787                     return false;
788                 }
789             }
790             script++;
791             // !!! see if brace or bracket is correct closer
792             break;
793         }
794         char nextChar = script[1];
795         int advance = logicalOp(ch, nextChar);
796         if (advance < 0)     // error
797             return false;
798         if (advance == 0)
799             advance = arithmeticOp(ch, nextChar, lastPush);
800         if (advance == 0) // unknown token
801             return false;
802         if (advance > 0)
803             script += advance;
804         lastPush = ch == ']' || ch == ')';
805     }
806     bool suppressed = SkToBool(fSuppressStack.top().fSuppress);
807     if (fTokenLength > 0) {
808         success = handleProperty(suppressed);
809         if (success == false)
810             return false;   // note: never triggered by standard animator plugins
811     }
812     while (fOpStack.count() > opBalance) {   // leave open paren
813         if ((fError = opError()) != kNoError)
814             return false;
815         if (processOp() == false)
816             return false;
817     }
818     SkOpType topType = fTypeStack.count() > 0 ? fTypeStack.top() : kNoType;
819     if (suppressed == false && topType != fReturnType &&
820             topType == kString && fReturnType != kNoType) { // if result is a string, give handle property a chance to convert it to the property value
821         SkString* string = fOperandStack.top().fString;
822         fToken = string->c_str();
823         fTokenLength = string->size();
824         fOperandStack.pop();
825         fTypeStack.pop();
826         success = handleProperty(SkToBool(fSuppressStack.top().fSuppress));
827         if (success == false) { // if it couldn't convert, return string (error?)
828             SkOperand operand;
829             operand.fS32 = 0;
830             *fTypeStack.push() = kString;
831             operand.fString = string;
832             fOperandStack.push(operand);
833         }
834     }
835     if (value) {
836         if (fOperandStack.count() == 0)
837             return false;
838         SkASSERT(fOperandStack.count() >= 1);
839         SkASSERT(fTypeStack.count() >= 1);
840         fOperandStack.pop(&value->fOperand);
841         SkOpType type;
842         fTypeStack.pop(&type);
843         value->fType = ToDisplayType(type);
844 //      SkASSERT(value->fType != SkType_Unknown);
845         if (topType != fReturnType && topType == kObject && fReturnType != kNoType) {
846             if (convertTo(ToDisplayType(fReturnType), value) == false)
847                 return false;
848         }
849     }
850     while (fSuppressStack.count() > suppressBalance)
851         fSuppressStack.pop();
852     *scriptPtr = script;
853     return true; // no error
854 }
855 
memberCallBack(_memberCallBack member,void * userStorage)856 void SkScriptEngine::memberCallBack(_memberCallBack member , void* userStorage) {
857     UserCallBack callBack;
858     callBack.fMemberCallBack = member;
859     commonCallBack(kMember, callBack, userStorage);
860 }
861 
memberFunctionCallBack(_memberFunctionCallBack func,void * userStorage)862 void SkScriptEngine::memberFunctionCallBack(_memberFunctionCallBack func, void* userStorage) {
863     UserCallBack callBack;
864     callBack.fMemberFunctionCallBack = func;
865     commonCallBack(kMemberFunction, callBack, userStorage);
866 }
867 
868 #if 0
869 void SkScriptEngine::objectToStringCallBack(_objectToStringCallBack func, void* userStorage) {
870     UserCallBack callBack;
871     callBack.fObjectToStringCallBack = func;
872     commonCallBack(kObjectToString, callBack, userStorage);
873 }
874 #endif
875 
handleArrayIndexer(const char ** scriptPtr,bool suppressed)876 bool SkScriptEngine::handleArrayIndexer(const char** scriptPtr, bool suppressed) {
877     SkScriptValue scriptValue;
878     (*scriptPtr)++;
879     *fOpStack.push() = kParen;
880     *fBraceStack.push() = kArrayBrace;
881     SkOpType saveType = fReturnType;
882     fReturnType = kInt;
883     bool success = innerScript(scriptPtr, suppressed == false ? &scriptValue : NULL);
884     if (success == false)
885         return false;
886     fReturnType = saveType;
887     if (suppressed == false) {
888         if (convertTo(SkType_Int, &scriptValue) == false)
889             return false;
890         int index = scriptValue.fOperand.fS32;
891         SkScriptValue scriptValue;
892         SkOpType type;
893         fTypeStack.pop(&type);
894         fOperandStack.pop(&scriptValue.fOperand);
895         scriptValue.fType = ToDisplayType(type);
896         if (type == kObject) {
897             success = handleUnbox(&scriptValue);
898             if (success == false)
899                 return false;
900             if (ToOpType(scriptValue.fType) != kArray) {
901                 fError = kExpectedArray;
902                 return false;
903             }
904         }
905         *fTypeStack.push() = scriptValue.fOperand.fArray->getOpType();
906 //      SkASSERT(index >= 0);
907         if ((unsigned) index >= (unsigned) scriptValue.fOperand.fArray->count()) {
908             fError = kArrayIndexOutOfBounds;
909             return false;
910         }
911         scriptValue.fOperand = scriptValue.fOperand.fArray->begin()[index];
912         fOperandStack.push(scriptValue.fOperand);
913     }
914     fOpStack.pop(); // pop paren
915     return success;
916 }
917 
handleBox(SkScriptValue * scriptValue)918 bool SkScriptEngine::handleBox(SkScriptValue* scriptValue) {
919     bool success = true;
920     for (UserCallBack* callBack = fUserCallBacks.begin(); callBack < fUserCallBacks.end(); callBack++) {
921         if (callBack->fCallBackType != kBox)
922             continue;
923         success = (*callBack->fBoxCallBack)(callBack->fUserStorage, scriptValue);
924         if (success) {
925             fOperandStack.push(scriptValue->fOperand);
926             *fTypeStack.push() = ToOpType(scriptValue->fType);
927             goto done;
928         }
929     }
930 done:
931     return success;
932 }
933 
handleFunction(const char ** scriptPtr,bool suppressed)934 bool SkScriptEngine::handleFunction(const char** scriptPtr, bool suppressed) {
935     SkScriptValue callbackResult;
936     SkTDArray<SkScriptValue> params;
937     SkString functionName(fToken, fTokenLength);
938     fTokenLength = 0;
939     bool success = functionParams(scriptPtr, params);
940     if (success == false)
941         goto done;
942     if (suppressed == true)
943         return true;
944     {
945         for (UserCallBack* callBack = fUserCallBacks.begin(); callBack < fUserCallBacks.end(); callBack++) {
946             if (callBack->fCallBackType != kFunction)
947                 continue;
948             success = (*callBack->fFunctionCallBack)(functionName.c_str(), functionName.size(), params,
949                 callBack->fUserStorage, &callbackResult);
950             if (success) {
951                 fOperandStack.push(callbackResult.fOperand);
952                 *fTypeStack.push() = ToOpType(callbackResult.fType);
953                 goto done;
954             }
955         }
956     }
957     fError = kNoFunctionHandlerFound;
958     return false;
959 done:
960     return success;
961 }
962 
handleMember(const char * field,size_t len,void * object)963 bool SkScriptEngine::handleMember(const char* field, size_t len, void* object) {
964     SkScriptValue callbackResult;
965     bool success = true;
966     for (UserCallBack* callBack = fUserCallBacks.begin(); callBack < fUserCallBacks.end(); callBack++) {
967         if (callBack->fCallBackType != kMember)
968             continue;
969         success = (*callBack->fMemberCallBack)(field, len, object, callBack->fUserStorage, &callbackResult);
970         if (success) {
971             if (callbackResult.fType == SkType_String)
972                 track(callbackResult.fOperand.fString);
973             fOperandStack.push(callbackResult.fOperand);
974             *fTypeStack.push() = ToOpType(callbackResult.fType);
975             goto done;
976         }
977     }
978     return false;
979 done:
980     return success;
981 }
982 
handleMemberFunction(const char * field,size_t len,void * object,SkTDArray<SkScriptValue> & params)983 bool SkScriptEngine::handleMemberFunction(const char* field, size_t len, void* object, SkTDArray<SkScriptValue>& params) {
984     SkScriptValue callbackResult;
985     bool success = true;
986     for (UserCallBack* callBack = fUserCallBacks.begin(); callBack < fUserCallBacks.end(); callBack++) {
987         if (callBack->fCallBackType != kMemberFunction)
988             continue;
989         success = (*callBack->fMemberFunctionCallBack)(field, len, object, params,
990             callBack->fUserStorage, &callbackResult);
991         if (success) {
992             if (callbackResult.fType == SkType_String)
993                 track(callbackResult.fOperand.fString);
994             fOperandStack.push(callbackResult.fOperand);
995             *fTypeStack.push() = ToOpType(callbackResult.fType);
996             goto done;
997         }
998     }
999     return false;
1000 done:
1001     return success;
1002 }
1003 
1004 #if 0
1005 bool SkScriptEngine::handleObjectToString(void* object) {
1006     SkScriptValue callbackResult;
1007     bool success = true;
1008     for (UserCallBack* callBack = fUserCallBacks.begin(); callBack < fUserCallBacks.end(); callBack++) {
1009         if (callBack->fCallBackType != kObjectToString)
1010             continue;
1011         success = (*callBack->fObjectToStringCallBack)(object,
1012             callBack->fUserStorage, &callbackResult);
1013         if (success) {
1014             if (callbackResult.fType == SkType_String)
1015                 track(callbackResult.fOperand.fString);
1016             fOperandStack.push(callbackResult.fOperand);
1017             *fTypeStack.push() = ToOpType(callbackResult.fType);
1018             goto done;
1019         }
1020     }
1021     return false;
1022 done:
1023     return success;
1024 }
1025 #endif
1026 
handleProperty(bool suppressed)1027 bool SkScriptEngine::handleProperty(bool suppressed) {
1028     SkScriptValue callbackResult;
1029     bool success = true;
1030     if (suppressed)
1031         goto done;
1032     success = false; // note that with standard animator-script plugins, callback never returns false
1033     {
1034         for (UserCallBack* callBack = fUserCallBacks.begin(); callBack < fUserCallBacks.end(); callBack++) {
1035             if (callBack->fCallBackType != kProperty)
1036                 continue;
1037             success = (*callBack->fPropertyCallBack)(fToken, fTokenLength,
1038                 callBack->fUserStorage, &callbackResult);
1039             if (success) {
1040                 if (callbackResult.fType == SkType_String && callbackResult.fOperand.fString == NULL) {
1041                     callbackResult.fOperand.fString = new SkString(fToken, fTokenLength);
1042                     track(callbackResult.fOperand.fString);
1043                 }
1044                 fOperandStack.push(callbackResult.fOperand);
1045                 *fTypeStack.push() = ToOpType(callbackResult.fType);
1046                 goto done;
1047             }
1048         }
1049     }
1050 done:
1051     fTokenLength = 0;
1052     return success;
1053 }
1054 
handleUnbox(SkScriptValue * scriptValue)1055 bool SkScriptEngine::handleUnbox(SkScriptValue* scriptValue) {
1056     bool success = true;
1057     for (UserCallBack* callBack = fUserCallBacks.begin(); callBack < fUserCallBacks.end(); callBack++) {
1058         if (callBack->fCallBackType != kUnbox)
1059             continue;
1060         success = (*callBack->fUnboxCallBack)(callBack->fUserStorage, scriptValue);
1061         if (success) {
1062             if (scriptValue->fType == SkType_String)
1063                 track(scriptValue->fOperand.fString);
1064             goto done;
1065         }
1066     }
1067     return false;
1068 done:
1069     return success;
1070 }
1071 
1072 // note that entire expression is treated as if it were enclosed in parens
1073 // an open paren is always the first thing in the op stack
1074 
logicalOp(char ch,char nextChar)1075 int SkScriptEngine::logicalOp(char ch, char nextChar) {
1076     int advance = 1;
1077     SkOp match;
1078     signed char precedence;
1079     switch (ch) {
1080         case ')':
1081             match = kParen;
1082             break;
1083         case ']':
1084             match = kArrayOp;
1085             break;
1086         case '?':
1087             match = kIf;
1088             break;
1089         case ':':
1090             match = kElse;
1091             break;
1092         case '&':
1093             if (nextChar != '&')
1094                 goto noMatch;
1095             match = kLogicalAnd;
1096             advance = 2;
1097             break;
1098         case '|':
1099             if (nextChar != '|')
1100                 goto noMatch;
1101             match = kLogicalOr;
1102             advance = 2;
1103             break;
1104         default:
1105 noMatch:
1106             return 0;
1107     }
1108     SkSuppress suppress;
1109     precedence = gPrecedence[match];
1110     if (fSuppressStack.top().fSuppress) {
1111         if (fSuppressStack.top().fOpStackDepth < fOpStack.count()) {
1112             SkOp topOp = fOpStack.top();
1113             if (gPrecedence[topOp] <= precedence)
1114                 fOpStack.pop();
1115             goto goHome;
1116         }
1117         bool changedPrecedence = gPrecedence[fSuppressStack.top().fOperator] < precedence;
1118         if (changedPrecedence)
1119             fSuppressStack.pop();
1120         if (precedence == kIfElsePrecedence) {
1121             if (match == kIf) {
1122                 if (changedPrecedence)
1123                     fOpStack.pop();
1124                 else
1125                     *fOpStack.push() = kIf;
1126             } else {
1127                 if (fSuppressStack.top().fOpStackDepth == fOpStack.count()) {
1128                     goto flipSuppress;
1129                 }
1130                 fOpStack.pop();
1131             }
1132         }
1133         if (changedPrecedence == false)
1134             goto goHome;
1135     }
1136     while (gPrecedence[fOpStack.top() & ~kArtificialOp] < precedence) {
1137         if (processOp() == false)
1138             return false;
1139     }
1140     if (fSuppressStack.top().fOpStackDepth > fOpStack.count())
1141         fSuppressStack.pop();
1142     switch (match) {
1143         case kParen:
1144         case kArrayOp:
1145             if (fOpStack.count() <= 1 || fOpStack.top() != match) {
1146                 fError = kMismatchedBrackets;
1147                 return -1;
1148             }
1149             if (match == kParen)
1150                 fOpStack.pop();
1151             else {
1152                 SkOpType indexType;
1153                 fTypeStack.pop(&indexType);
1154                 if (indexType != kInt && indexType != kScalar) {
1155                     fError = kExpectedNumberForArrayIndex; // (although, could permit strings eventually)
1156                     return -1;
1157                 }
1158                 SkOperand indexOperand;
1159                 fOperandStack.pop(&indexOperand);
1160                 int index = indexType == kScalar ? SkScalarFloorToInt(indexOperand.fScalar) :
1161                     indexOperand.fS32;
1162                 SkOpType arrayType;
1163                 fTypeStack.pop(&arrayType);
1164                 if ((unsigned)arrayType != (unsigned)kArray) {
1165                     fError = kExpectedArray;
1166                     return -1;
1167                 }
1168                 SkOperand arrayOperand;
1169                 fOperandStack.pop(&arrayOperand);
1170                 SkTypedArray* array = arrayOperand.fArray;
1171                 SkOperand operand;
1172                 if (array->getIndex(index, &operand) == false) {
1173                     fError = kIndexOutOfRange;
1174                     return -1;
1175                 }
1176                 SkOpType resultType = array->getOpType();
1177                 fTypeStack.push(resultType);
1178                 fOperandStack.push(operand);
1179             }
1180             break;
1181         case kIf: {
1182             SkScriptValue ifValue;
1183             SkOpType ifType;
1184             fTypeStack.pop(&ifType);
1185             ifValue.fType = ToDisplayType(ifType);
1186             fOperandStack.pop(&ifValue.fOperand);
1187             if (convertTo(SkType_Int, &ifValue) == false)
1188                 return -1;
1189             if (ifValue.fType != SkType_Int) {
1190                 fError = kExpectedIntForConditionOperator;
1191                 return -1;
1192             }
1193             suppress.fSuppress = ifValue.fOperand.fS32 == 0;
1194             suppress.fOperator = kIf;
1195             suppress.fOpStackDepth = fOpStack.count();
1196             suppress.fElse = false;
1197             fSuppressStack.push(suppress);
1198             // if left is true, do only up to colon
1199             // if left is false, do only after colon
1200             } break;
1201         case kElse:
1202 flipSuppress:
1203             if (fSuppressStack.top().fElse)
1204                 fSuppressStack.pop();
1205             fSuppressStack.top().fElse = true;
1206             fSuppressStack.top().fSuppress ^= true;
1207             // flip last do / don't do consideration from last '?'
1208             break;
1209         case kLogicalAnd:
1210         case kLogicalOr: {
1211             if (fTypeStack.top() != kInt) {
1212                 fError = kExpectedBooleanExpression;
1213                 return -1;
1214             }
1215             int32_t topInt = fOperandStack.top().fS32;
1216             if (fOpStack.top() != kLogicalAnd)
1217                 *fOpStack.push() = kLogicalAnd; // really means 'to bool', and is appropriate for 'or'
1218             if (match == kLogicalOr ? topInt != 0 : topInt == 0) {
1219                 suppress.fSuppress = true;
1220                 suppress.fOperator = match;
1221                 suppress.fOpStackDepth = fOpStack.count();
1222                 suppress.fElse = false;
1223                 fSuppressStack.push(suppress);
1224             } else {
1225                 fTypeStack.pop();
1226                 fOperandStack.pop();
1227             }
1228         }   break;
1229         default:
1230             SkASSERT(0);
1231     }
1232 goHome:
1233     return advance;
1234 }
1235 
opError()1236 SkScriptEngine::Error SkScriptEngine::opError() {
1237     int opCount = fOpStack.count();
1238     int operandCount = fOperandStack.count();
1239     if (opCount == 0) {
1240         if (operandCount != 1)
1241             return kExpectedOperator;
1242         return kNoError;
1243     }
1244     SkOp op = (SkOp) (fOpStack.top() & ~kArtificialOp);
1245     const SkOperatorAttributes* attributes = &gOpAttributes[op];
1246     if (attributes->fLeftType != kNoType && operandCount < 2)
1247         return kExpectedValue;
1248     if (attributes->fLeftType == kNoType && operandCount < 1)
1249         return kExpectedValue;
1250     return kNoError;
1251 }
1252 
processOp()1253 bool SkScriptEngine::processOp() {
1254     SkOp op;
1255     fOpStack.pop(&op);
1256     op = (SkOp) (op & ~kArtificialOp);
1257     const SkOperatorAttributes* attributes = &gOpAttributes[op];
1258     SkOpType type2;
1259     fTypeStack.pop(&type2);
1260     SkOpType type1 = type2;
1261     SkOperand operand2;
1262     fOperandStack.pop(&operand2);
1263     SkOperand operand1 = operand2; // !!! not really needed, suppresses warning
1264     if (attributes->fLeftType != kNoType) {
1265         fTypeStack.pop(&type1);
1266         fOperandStack.pop(&operand1);
1267         if (op == kFlipOps) {
1268             SkTSwap(type1, type2);
1269             SkTSwap(operand1, operand2);
1270             fOpStack.pop(&op);
1271             op = (SkOp) (op & ~kArtificialOp);
1272             attributes = &gOpAttributes[op];
1273         }
1274         if (type1 == kObject && (type1 & attributes->fLeftType) == 0) {
1275             SkScriptValue val;
1276             val.fType = ToDisplayType(type1);
1277             val.fOperand = operand1;
1278             bool success = handleUnbox(&val);
1279             if (success == false)
1280                 return false;
1281             type1 = ToOpType(val.fType);
1282             operand1 = val.fOperand;
1283         }
1284     }
1285     if (type2 == kObject && (type2 & attributes->fLeftType) == 0) {
1286         SkScriptValue val;
1287         val.fType = ToDisplayType(type2);
1288         val.fOperand = operand2;
1289         bool success = handleUnbox(&val);
1290         if (success == false)
1291             return false;
1292         type2 = ToOpType(val.fType);
1293         operand2 = val.fOperand;
1294     }
1295     if (attributes->fLeftType != kNoType) {
1296         if (type1 != type2) {
1297             if ((attributes->fLeftType & kString) && attributes->fBias & kTowardsString && ((type1 | type2) & kString)) {
1298                 if (type1 == kInt || type1 == kScalar) {
1299                     convertToString(operand1, type1 == kInt ? SkType_Int : SkType_Float);
1300                     type1 = kString;
1301                 }
1302                 if (type2 == kInt || type2 == kScalar) {
1303                     convertToString(operand2, type2 == kInt ? SkType_Int : SkType_Float);
1304                     type2 = kString;
1305                 }
1306             } else if (attributes->fLeftType & kScalar && ((type1 | type2) & kScalar)) {
1307                 if (type1 == kInt) {
1308                     operand1.fScalar = IntToScalar(operand1.fS32);
1309                     type1 = kScalar;
1310                 }
1311                 if (type2 == kInt) {
1312                     operand2.fScalar = IntToScalar(operand2.fS32);
1313                      type2 = kScalar;
1314                 }
1315             }
1316         }
1317         if ((type1 & attributes->fLeftType) == 0 || type1 != type2) {
1318             if (type1 == kString) {
1319                 const char* result = SkParse::FindScalar(operand1.fString->c_str(), &operand1.fScalar);
1320                 if (result == NULL) {
1321                     fError = kExpectedNumber;
1322                     return false;
1323                 }
1324                 type1 = kScalar;
1325             }
1326             if (type1 == kScalar && (attributes->fLeftType == kInt || type2 == kInt)) {
1327                 operand1.fS32 = SkScalarFloorToInt(operand1.fScalar);
1328                 type1 = kInt;
1329             }
1330         }
1331     }
1332     if ((type2 & attributes->fRightType) == 0 || type1 != type2) {
1333         if (type2 == kString) {
1334             const char* result = SkParse::FindScalar(operand2.fString->c_str(), &operand2.fScalar);
1335             if (result == NULL) {
1336                 fError = kExpectedNumber;
1337                 return false;
1338             }
1339             type2 = kScalar;
1340         }
1341         if (type2 == kScalar && (attributes->fRightType == kInt || type1 == kInt)) {
1342             operand2.fS32 = SkScalarFloorToInt(operand2.fScalar);
1343             type2 = kInt;
1344         }
1345     }
1346     if (type2 == kScalar)
1347         op = (SkOp) (op + 1);
1348     else if (type2 == kString)
1349         op = (SkOp) (op + 2);
1350     switch(op) {
1351         case kAddInt:
1352             operand2.fS32 += operand1.fS32;
1353             break;
1354         case kAddScalar:
1355             operand2.fScalar += operand1.fScalar;
1356             break;
1357         case kAddString:
1358             if (fTrackString.find(operand1.fString) < 0) {
1359                 operand1.fString = SkNEW_ARGS(SkString, (*operand1.fString));
1360                 track(operand1.fString);
1361             }
1362             operand1.fString->append(*operand2.fString);
1363             operand2 = operand1;
1364             break;
1365         case kBitAnd:
1366             operand2.fS32 &= operand1.fS32;
1367             break;
1368         case kBitNot:
1369             operand2.fS32 = ~operand2.fS32;
1370             break;
1371         case kBitOr:
1372             operand2.fS32 |= operand1.fS32;
1373             break;
1374         case kDivideInt:
1375             if (operand2.fS32 == 0) {
1376                 operand2.fS32 = operand1.fS32 == 0 ? SK_NaN32 : operand1.fS32 > 0 ? SK_MaxS32 : -SK_MaxS32;
1377                 break;
1378             } else {
1379                 int32_t original = operand2.fS32;
1380                 operand2.fS32 = operand1.fS32 / operand2.fS32;
1381                 if (original * operand2.fS32 == operand1.fS32)
1382                     break;    // integer divide was good enough
1383                 operand2.fS32 = original;
1384                 type2 = kScalar;
1385             }
1386         case kDivideScalar:
1387             if (operand2.fScalar == 0)
1388                 operand2.fScalar = operand1.fScalar == 0 ? SK_ScalarNaN : operand1.fScalar > 0 ? SK_ScalarMax : -SK_ScalarMax;
1389             else
1390                 operand2.fScalar = operand1.fScalar / operand2.fScalar;
1391             break;
1392         case kEqualInt:
1393             operand2.fS32 = operand1.fS32 == operand2.fS32;
1394             break;
1395         case kEqualScalar:
1396             operand2.fS32 = operand1.fScalar == operand2.fScalar;
1397             type2 = kInt;
1398             break;
1399         case kEqualString:
1400             operand2.fS32 = *operand1.fString == *operand2.fString;
1401             type2 = kInt;
1402             break;
1403         case kGreaterEqualInt:
1404             operand2.fS32 = operand1.fS32 >= operand2.fS32;
1405             break;
1406         case kGreaterEqualScalar:
1407             operand2.fS32 = operand1.fScalar >= operand2.fScalar;
1408             type2 = kInt;
1409             break;
1410         case kGreaterEqualString:
1411             operand2.fS32 = strcmp(operand1.fString->c_str(), operand2.fString->c_str()) >= 0;
1412             type2 = kInt;
1413             break;
1414         case kLogicalAnd:
1415             operand2.fS32 = !! operand2.fS32;   // really, ToBool
1416             break;
1417         case kLogicalNot:
1418             operand2.fS32 = ! operand2.fS32;
1419             break;
1420         case kLogicalOr:
1421             SkASSERT(0);    // should have already been processed
1422             break;
1423         case kMinusInt:
1424             operand2.fS32 = -operand2.fS32;
1425             break;
1426         case kMinusScalar:
1427             operand2.fScalar = -operand2.fScalar;
1428             break;
1429         case kModuloInt:
1430             operand2.fS32 = operand1.fS32 % operand2.fS32;
1431             break;
1432         case kModuloScalar:
1433             operand2.fScalar = SkScalarMod(operand1.fScalar, operand2.fScalar);
1434             break;
1435         case kMultiplyInt:
1436             operand2.fS32 *= operand1.fS32;
1437             break;
1438         case kMultiplyScalar:
1439             operand2.fScalar = SkScalarMul(operand1.fScalar, operand2.fScalar);
1440             break;
1441         case kShiftLeft:
1442             operand2.fS32 = operand1.fS32 << operand2.fS32;
1443             break;
1444         case kShiftRight:
1445             operand2.fS32 = operand1.fS32 >> operand2.fS32;
1446             break;
1447         case kSubtractInt:
1448             operand2.fS32 = operand1.fS32 - operand2.fS32;
1449             break;
1450         case kSubtractScalar:
1451             operand2.fScalar = operand1.fScalar - operand2.fScalar;
1452             break;
1453         case kXor:
1454             operand2.fS32 ^= operand1.fS32;
1455             break;
1456         default:
1457             SkASSERT(0);
1458     }
1459     fTypeStack.push(type2);
1460     fOperandStack.push(operand2);
1461     return true;
1462 }
1463 
propertyCallBack(_propertyCallBack prop,void * userStorage)1464 void SkScriptEngine::propertyCallBack(_propertyCallBack prop, void* userStorage) {
1465     UserCallBack callBack;
1466     callBack.fPropertyCallBack = prop;
1467     commonCallBack(kProperty, callBack, userStorage);
1468 }
1469 
track(SkTypedArray * array)1470 void SkScriptEngine::track(SkTypedArray* array) {
1471     SkASSERT(fTrackArray.find(array) < 0);
1472     *(fTrackArray.end() - 1) = array;
1473     fTrackArray.appendClear();
1474 }
1475 
track(SkString * string)1476 void SkScriptEngine::track(SkString* string) {
1477     SkASSERT(fTrackString.find(string) < 0);
1478     *(fTrackString.end() - 1) = string;
1479     fTrackString.appendClear();
1480 }
1481 
unboxCallBack(_unboxCallBack func,void * userStorage)1482 void SkScriptEngine::unboxCallBack(_unboxCallBack func, void* userStorage) {
1483     UserCallBack callBack;
1484     callBack.fUnboxCallBack = func;
1485     commonCallBack(kUnbox, callBack, userStorage);
1486 }
1487 
ConvertTo(SkScriptEngine * engine,SkDisplayTypes toType,SkScriptValue * value)1488 bool SkScriptEngine::ConvertTo(SkScriptEngine* engine, SkDisplayTypes toType, SkScriptValue* value ) {
1489     SkASSERT(value);
1490     if (SkDisplayType::IsEnum(NULL /* fMaker */, toType))
1491         toType = SkType_Int;
1492     if (toType == SkType_Point || toType == SkType_3D_Point)
1493         toType = SkType_Float;
1494     if (toType == SkType_Drawable)
1495         toType = SkType_Displayable;
1496     SkDisplayTypes type = value->fType;
1497     if (type == toType)
1498         return true;
1499     SkOperand& operand = value->fOperand;
1500     bool success = true;
1501     switch (toType) {
1502         case SkType_Int:
1503             if (type == SkType_Boolean)
1504                 break;
1505             if (type == SkType_Float)
1506                 operand.fS32 = SkScalarFloorToInt(operand.fScalar);
1507             else {
1508                 if (type != SkType_String) {
1509                     success = false;
1510                     break; // error
1511                 }
1512                 success = SkParse::FindS32(operand.fString->c_str(), &operand.fS32) != NULL;
1513             }
1514             break;
1515         case SkType_Float:
1516             if (type == SkType_Int) {
1517                 if (operand.fS32 == SK_NaN32)
1518                     operand.fScalar = SK_ScalarNaN;
1519                 else if (SkAbs32(operand.fS32) == SK_MaxS32)
1520                     operand.fScalar = SkSign32(operand.fS32) * SK_ScalarMax;
1521                 else
1522                     operand.fScalar = SkIntToScalar(operand.fS32);
1523             } else {
1524                 if (type != SkType_String) {
1525                     success = false;
1526                     break; // error
1527                 }
1528                 success = SkParse::FindScalar(operand.fString->c_str(), &operand.fScalar) != NULL;
1529             }
1530             break;
1531         case SkType_String: {
1532             SkString* strPtr = new SkString();
1533             SkASSERT(engine);
1534             engine->track(strPtr);
1535             if (type == SkType_Int) {
1536                 strPtr->appendS32(operand.fS32);
1537             } else if (type == SkType_Displayable) {
1538                 SkASSERT(0); // must call through instance version instead of static version
1539             } else {
1540                 if (type != SkType_Float) {
1541                     success = false;
1542                     break;
1543                 }
1544                 strPtr->appendScalar(operand.fScalar);
1545             }
1546             operand.fString = strPtr;
1547             } break;
1548         case SkType_Array: {
1549             SkTypedArray* array = new SkTypedArray(type);
1550             *array->append() = operand;
1551             engine->track(array);
1552             operand.fArray = array;
1553             } break;
1554         default:
1555             SkASSERT(0);
1556     }
1557     value->fType = toType;
1558     if (success == false)
1559         engine->fError = kTypeConversionFailed;
1560     return success;
1561 }
1562 
IntToScalar(int32_t s32)1563 SkScalar SkScriptEngine::IntToScalar(int32_t s32) {
1564     SkScalar scalar;
1565     if (s32 == SK_NaN32)
1566         scalar = SK_ScalarNaN;
1567     else if (SkAbs32(s32) == SK_MaxS32)
1568         scalar = SkSign32(s32) * SK_ScalarMax;
1569     else
1570         scalar = SkIntToScalar(s32);
1571     return scalar;
1572 }
1573 
ToDisplayType(SkOpType type)1574 SkDisplayTypes SkScriptEngine::ToDisplayType(SkOpType type) {
1575     int val = type;
1576     switch (val) {
1577         case kNoType:
1578             return SkType_Unknown;
1579         case kInt:
1580             return SkType_Int;
1581         case kScalar:
1582             return SkType_Float;
1583         case kString:
1584             return SkType_String;
1585         case kArray:
1586             return SkType_Array;
1587         case kObject:
1588             return SkType_Displayable;
1589 //      case kStruct:
1590 //          return SkType_Structure;
1591         default:
1592             SkASSERT(0);
1593             return SkType_Unknown;
1594     }
1595 }
1596 
ToOpType(SkDisplayTypes type)1597 SkScriptEngine::SkOpType SkScriptEngine::ToOpType(SkDisplayTypes type) {
1598     if (SkDisplayType::IsDisplayable(NULL /* fMaker */, type))
1599         return (SkOpType) kObject;
1600     if (SkDisplayType::IsEnum(NULL /* fMaker */, type))
1601         return kInt;
1602     switch (type) {
1603         case SkType_ARGB:
1604         case SkType_MSec:
1605         case SkType_Int:
1606             return kInt;
1607         case SkType_Float:
1608         case SkType_Point:
1609         case SkType_3D_Point:
1610             return kScalar;
1611         case SkType_Base64:
1612         case SkType_DynamicString:
1613         case SkType_String:
1614             return kString;
1615         case SkType_Array:
1616             return (SkOpType) kArray;
1617         case SkType_Unknown:
1618             return kNoType;
1619         default:
1620             SkASSERT(0);
1621             return kNoType;
1622     }
1623 }
1624 
ValueToString(SkScriptValue value,SkString * string)1625 bool SkScriptEngine::ValueToString(SkScriptValue value, SkString* string) {
1626     switch (value.fType) {
1627         case kInt:
1628             string->reset();
1629             string->appendS32(value.fOperand.fS32);
1630             break;
1631         case kScalar:
1632             string->reset();
1633             string->appendScalar(value.fOperand.fScalar);
1634             break;
1635         case kString:
1636             string->set(*value.fOperand.fString);
1637             break;
1638         default:
1639             SkASSERT(0);
1640             return false;
1641     }
1642     return true; // no error
1643 }
1644 
1645 #ifdef SK_SUPPORT_UNITTEST
1646 
1647 #include "SkFloatingPoint.h"
1648 
1649 #define DEF_SCALAR_ANSWER   0
1650 #define DEF_STRING_ANSWER   NULL
1651 
1652 #define testInt(expression) { #expression, SkType_Int, expression, DEF_SCALAR_ANSWER, DEF_STRING_ANSWER }
1653     #define testScalar(expression) { #expression, SkType_Float, 0, (float) expression, DEF_STRING_ANSWER }
1654     #define testRemainder(exp1, exp2) { #exp1 "%" #exp2, SkType_Float, 0, sk_float_mod(exp1, exp2), DEF_STRING_ANSWER }
1655 #define testTrue(expression) { #expression, SkType_Int, 1, DEF_SCALAR_ANSWER, DEF_STRING_ANSWER }
1656 #define testFalse(expression) { #expression, SkType_Int, 0, DEF_SCALAR_ANSWER, DEF_STRING_ANSWER }
1657 
1658 static const SkScriptNAnswer scriptTests[]  = {
1659     testInt(1>1/2),
1660     testInt((6+7)*8),
1661     testInt(0&&1?2:3),
1662     testInt(3*(4+5)),
1663     testScalar(1.0+2.0),
1664     testScalar(1.0+5),
1665     testScalar(3.0-1.0),
1666     testScalar(6-1.0),
1667     testScalar(- -5.5- -1.5),
1668     testScalar(2.5*6.),
1669     testScalar(0.5*4),
1670     testScalar(4.5/.5),
1671     testScalar(9.5/19),
1672     testRemainder(9.5, 0.5),
1673     testRemainder(9.,2),
1674     testRemainder(9,2.5),
1675     testRemainder(-9,2.5),
1676     testTrue(-9==-9.0),
1677     testTrue(-9.==-4.0-5),
1678     testTrue(-9.*1==-4-5),
1679     testFalse(-9!=-9.0),
1680     testFalse(-9.!=-4.0-5),
1681     testFalse(-9.*1!=-4-5),
1682     testInt(0x123),
1683     testInt(0XABC),
1684     testInt(0xdeadBEEF),
1685     {   "'123'+\"456\"", SkType_String, 0, 0, "123456" },
1686     {   "123+\"456\"", SkType_String, 0, 0, "123456" },
1687     {   "'123'+456", SkType_String, 0, 0, "123456" },
1688     {   "'123'|\"456\"", SkType_Int, 123|456, DEF_SCALAR_ANSWER, DEF_STRING_ANSWER },
1689     {   "123|\"456\"", SkType_Int, 123|456, DEF_SCALAR_ANSWER, DEF_STRING_ANSWER },
1690     {   "'123'|456", SkType_Int, 123|456, DEF_SCALAR_ANSWER, DEF_STRING_ANSWER },
1691     {   "'2'<11", SkType_Int, 1, DEF_SCALAR_ANSWER, DEF_STRING_ANSWER },
1692     {   "2<'11'", SkType_Int, 1, DEF_SCALAR_ANSWER, DEF_STRING_ANSWER },
1693     {   "'2'<'11'", SkType_Int, 0, DEF_SCALAR_ANSWER, DEF_STRING_ANSWER },
1694     testInt(123),
1695     testInt(-345),
1696     testInt(+678),
1697     testInt(1+2+3),
1698     testInt(3*4+5),
1699     testInt(6+7*8),
1700     testInt(-1-2-8/4),
1701     testInt(-9%4),
1702     testInt(9%-4),
1703     testInt(-9%-4),
1704     testInt(123|978),
1705     testInt(123&978),
1706     testInt(123^978),
1707     testInt(2<<4),
1708     testInt(99>>3),
1709     testInt(~55),
1710     testInt(~~55),
1711     testInt(!55),
1712     testInt(!!55),
1713     // both int
1714     testInt(2<2),
1715     testInt(2<11),
1716     testInt(20<11),
1717     testInt(2<=2),
1718     testInt(2<=11),
1719     testInt(20<=11),
1720     testInt(2>2),
1721     testInt(2>11),
1722     testInt(20>11),
1723     testInt(2>=2),
1724     testInt(2>=11),
1725     testInt(20>=11),
1726     testInt(2==2),
1727     testInt(2==11),
1728     testInt(20==11),
1729     testInt(2!=2),
1730     testInt(2!=11),
1731     testInt(20!=11),
1732     // left int, right scalar
1733     testInt(2<2.),
1734     testInt(2<11.),
1735     testInt(20<11.),
1736     testInt(2<=2.),
1737     testInt(2<=11.),
1738     testInt(20<=11.),
1739     testInt(2>2.),
1740     testInt(2>11.),
1741     testInt(20>11.),
1742     testInt(2>=2.),
1743     testInt(2>=11.),
1744     testInt(20>=11.),
1745     testInt(2==2.),
1746     testInt(2==11.),
1747     testInt(20==11.),
1748     testInt(2!=2.),
1749     testInt(2!=11.),
1750     testInt(20!=11.),
1751     // left scalar, right int
1752         testInt(2.<2),
1753     testInt(2.<11),
1754     testInt(20.<11),
1755     testInt(2.<=2),
1756     testInt(2.<=11),
1757     testInt(20.<=11),
1758     testInt(2.>2),
1759     testInt(2.>11),
1760     testInt(20.>11),
1761     testInt(2.>=2),
1762     testInt(2.>=11),
1763     testInt(20.>=11),
1764     testInt(2.==2),
1765     testInt(2.==11),
1766     testInt(20.==11),
1767     testInt(2.!=2),
1768     testInt(2.!=11),
1769     testInt(20.!=11),
1770     // both scalar
1771     testInt(2.<11.),
1772     testInt(20.<11.),
1773     testInt(2.<=2.),
1774     testInt(2.<=11.),
1775     testInt(20.<=11.),
1776     testInt(2.>2.),
1777     testInt(2.>11.),
1778     testInt(20.>11.),
1779     testInt(2.>=2.),
1780     testInt(2.>=11.),
1781     testInt(20.>=11.),
1782     testInt(2.==2.),
1783     testInt(2.==11.),
1784     testInt(20.==11.),
1785     testInt(2.!=2.),
1786     testInt(2.!=11.),
1787     testInt(20.!=11.),
1788     // int, string (string is int)
1789     testFalse(2<'2'),
1790     testTrue(2<'11'),
1791     testFalse(20<'11'),
1792     testTrue(2<='2'),
1793     testTrue(2<='11'),
1794     testFalse(20<='11'),
1795     testFalse(2>'2'),
1796     testFalse(2>'11'),
1797     testTrue(20>'11'),
1798     testTrue(2>='2'),
1799     testFalse(2>='11'),
1800     testTrue(20>='11'),
1801     testTrue(2=='2'),
1802     testFalse(2=='11'),
1803     testFalse(2!='2'),
1804     testTrue(2!='11'),
1805     // int, string (string is scalar)
1806     testFalse(2<'2.'),
1807     testTrue(2<'11.'),
1808     testFalse(20<'11.'),
1809     testTrue(2=='2.'),
1810     testFalse(2=='11.'),
1811     // scalar, string
1812     testFalse(2.<'2.'),
1813     testTrue(2.<'11.'),
1814     testFalse(20.<'11.'),
1815     testTrue(2.=='2.'),
1816     testFalse(2.=='11.'),
1817     // string, int
1818     testFalse('2'<2),
1819     testTrue('2'<11),
1820     testFalse('20'<11),
1821     testTrue('2'==2),
1822     testFalse('2'==11),
1823     // string, scalar
1824     testFalse('2'<2.),
1825     testTrue('2'<11.),
1826     testFalse('20'<11.),
1827     testTrue('2'==2.),
1828     testFalse('2'==11.),
1829     // string, string
1830     testFalse('2'<'2'),
1831     testFalse('2'<'11'),
1832     testFalse('20'<'11'),
1833     testTrue('2'=='2'),
1834     testFalse('2'=='11'),
1835     // logic
1836     testInt(1?2:3),
1837     testInt(0?2:3),
1838     testInt((1&&2)||3),
1839     testInt((1&&0)||3),
1840     testInt((1&&0)||0),
1841     testInt(1||(0&&3)),
1842     testInt(0||(0&&3)),
1843     testInt(0||(1&&3)),
1844     testInt(1?(2?3:4):5),
1845     testInt(0?(2?3:4):5),
1846     testInt(1?(0?3:4):5),
1847     testInt(0?(0?3:4):5),
1848     testInt(1?2?3:4:5),
1849     testInt(0?2?3:4:5),
1850     testInt(1?0?3:4:5),
1851     testInt(0?0?3:4:5),
1852 
1853     testInt(1?2:(3?4:5)),
1854     testInt(0?2:(3?4:5)),
1855     testInt(1?0:(3?4:5)),
1856     testInt(0?0:(3?4:5)),
1857     testInt(1?2:3?4:5),
1858     testInt(0?2:3?4:5),
1859     testInt(1?0:3?4:5),
1860     testInt(0?0:3?4:5)
1861     , { "123.5", SkType_Float, 0, SkIntToScalar(123) + SK_Scalar1/2, DEF_STRING_ANSWER }
1862 };
1863 
1864 #define SkScriptNAnswer_testCount   SK_ARRAY_COUNT(scriptTests)
1865 
UnitTest()1866 void SkScriptEngine::UnitTest() {
1867     for (unsigned index = 0; index < SkScriptNAnswer_testCount; index++) {
1868         SkScriptEngine engine(SkScriptEngine::ToOpType(scriptTests[index].fType));
1869         SkScriptValue value;
1870         const char* script = scriptTests[index].fScript;
1871         SkASSERT(engine.evaluateScript(&script, &value) == true);
1872         SkASSERT(value.fType == scriptTests[index].fType);
1873         SkScalar error;
1874         switch (value.fType) {
1875             case SkType_Int:
1876                 SkASSERT(value.fOperand.fS32 == scriptTests[index].fIntAnswer);
1877                 break;
1878             case SkType_Float:
1879                 error = SkScalarAbs(value.fOperand.fScalar - scriptTests[index].fScalarAnswer);
1880                 SkASSERT(error < SK_Scalar1 / 10000);
1881                 break;
1882             case SkType_String:
1883                 SkASSERT(strcmp(value.fOperand.fString->c_str(), scriptTests[index].fStringAnswer) == 0);
1884                 break;
1885             default:
1886                 SkASSERT(0);
1887         }
1888     }
1889 }
1890 #endif
1891