0000: 2f 2a 0a 2a 2a 20 43 6f 70 79 72 69 67 68 74 20 /*.** Copyright
0010: 28 63 29 20 32 30 30 37 20 44 2e 20 52 69 63 68 (c) 2007 D. Rich
0020: 61 72 64 20 48 69 70 70 0a 2a 2a 0a 2a 2a 20 54 ard Hipp.**.** T
0030: 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 his program is f
0040: 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f ree software; yo
0050: 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 u can redistribu
0060: 74 65 20 69 74 20 61 6e 64 2f 6f 72 0a 2a 2a 20 te it and/or.**
0070: 6d 6f 64 69 66 79 20 69 74 20 75 6e 64 65 72 20 modify it under
0080: 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 the terms of the
0090: 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 GNU General Pub
00a0: 6c 69 63 0a 2a 2a 20 4c 69 63 65 6e 73 65 20 76 lic.** License v
00b0: 65 72 73 69 6f 6e 20 32 20 61 73 20 70 75 62 6c ersion 2 as publ
00c0: 69 73 68 65 64 20 62 79 20 74 68 65 20 46 72 65 ished by the Fre
00d0: 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 e Software Found
00e0: 61 74 69 6f 6e 2e 0a 2a 2a 0a 2a 2a 20 54 68 69 ation..**.** Thi
00f0: 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 s program is dis
0100: 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 tributed in the
0110: 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c hope that it wil
0120: 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 2a 2a 20 l be useful,.**
0130: 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 but WITHOUT ANY
0140: 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 WARRANTY; withou
0150: 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 t even the impli
0160: 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 2a ed warranty of.*
0170: 2a 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 * MERCHANTABILIT
0180: 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 Y or FITNESS FOR
0190: 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 A PARTICULAR PU
01a0: 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65 20 RPOSE. See the
01b0: 47 4e 55 0a 2a 2a 20 47 65 6e 65 72 61 6c 20 50 GNU.** General P
01c0: 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f ublic License fo
01d0: 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a r more details..
01e0: 2a 2a 20 0a 2a 2a 20 59 6f 75 20 73 68 6f 75 6c ** .** You shoul
01f0: 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 d have received
0200: 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e a copy of the GN
0210: 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 U General Public
0220: 0a 2a 2a 20 4c 69 63 65 6e 73 65 20 61 6c 6f 6e .** License alon
0230: 67 20 77 69 74 68 20 74 68 69 73 20 6c 69 62 72 g with this libr
0240: 61 72 79 3b 20 69 66 20 6e 6f 74 2c 20 77 72 69 ary; if not, wri
0250: 74 65 20 74 6f 20 74 68 65 0a 2a 2a 20 46 72 65 te to the.** Fre
0260: 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 e Software Found
0270: 61 74 69 6f 6e 2c 20 49 6e 63 2e 2c 20 35 39 20 ation, Inc., 59
0280: 54 65 6d 70 6c 65 20 50 6c 61 63 65 20 2d 20 53 Temple Place - S
0290: 75 69 74 65 20 33 33 30 2c 0a 2a 2a 20 42 6f 73 uite 330,.** Bos
02a0: 74 6f 6e 2c 20 4d 41 20 20 30 32 31 31 31 2d 31 ton, MA 02111-1
02b0: 33 30 37 2c 20 55 53 41 2e 0a 2a 2a 0a 2a 2a 20 307, USA..**.**
02c0: 41 75 74 68 6f 72 20 63 6f 6e 74 61 63 74 20 69 Author contact i
02d0: 6e 66 6f 72 6d 61 74 69 6f 6e 3a 0a 2a 2a 20 20 nformation:.**
02e0: 20 64 72 68 40 68 77 61 63 69 2e 63 6f 6d 0a 2a drh@hwaci.com.*
02f0: 2a 20 20 20 68 74 74 70 3a 2f 2f 77 77 77 2e 68 * http://www.h
0300: 77 61 63 69 2e 63 6f 6d 2f 64 72 68 2f 0a 2a 2a waci.com/drh/.**
0310: 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a .***************
0320: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0330: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0340: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0350: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0360: 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 69 6c 65 .**.** This file
0370: 20 63 6f 6e 74 61 69 6e 73 20 61 6e 20 69 6d 70 contains an imp
0380: 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 lementation of t
0390: 68 65 20 22 73 75 62 73 63 72 69 70 74 22 20 69 he "subscript" i
03a0: 6e 74 65 72 70 72 65 74 65 72 2e 0a 2a 2a 0a 2a nterpreter..**.*
03b0: 2a 20 53 75 62 73 63 72 69 70 74 20 61 74 74 65 * Subscript atte
03c0: 6d 70 74 73 20 74 6f 20 62 65 20 61 6e 20 65 78 mpts to be an ex
03d0: 74 72 65 6d 65 6c 79 20 6c 69 67 68 74 2d 77 65 tremely light-we
03e0: 69 67 68 74 20 73 63 72 69 70 74 69 6e 67 0a 2a ight scripting.*
03f0: 2a 20 6c 61 6e 67 75 61 67 65 2e 20 20 49 74 20 * language. It
0400: 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 62 61 72 contains the bar
0410: 65 73 74 20 6f 66 20 62 61 72 65 20 65 73 73 65 est of bare esse
0420: 6e 74 69 61 6c 73 2e 20 20 49 74 20 69 73 0a 2a ntials. It is.*
0430: 2a 20 73 74 61 63 6b 2d 62 61 73 65 64 20 61 6e * stack-based an
0440: 64 20 66 6f 72 74 68 2d 6c 69 6b 65 2e 20 20 45 d forth-like. E
0450: 76 65 72 79 74 68 69 6e 67 20 69 73 20 69 6e 20 verything is in
0460: 61 20 73 69 6e 67 6c 65 20 67 6c 6f 62 61 6c 0a a single global.
0470: 2a 2a 20 6e 61 6d 65 73 70 61 63 65 2e 20 20 54 ** namespace. T
0480: 68 65 72 65 20 69 73 20 6f 6e 6c 79 20 61 20 73 here is only a s
0490: 69 6e 67 6c 65 20 64 61 74 61 74 79 70 65 20 6f ingle datatype o
04a0: 66 20 7a 65 72 6f 2d 74 65 72 6d 69 6e 61 74 65 f zero-terminate
04b0: 64 0a 2a 2a 20 73 74 72 69 6e 67 2e 20 20 54 68 d.** string. Th
04c0: 65 20 73 74 61 63 6b 20 69 73 20 6f 66 20 66 69 e stack is of fi
04d0: 78 65 64 2c 20 6c 69 6d 69 74 65 64 20 64 65 70 xed, limited dep
04e0: 74 68 2e 20 20 54 68 65 20 73 79 6d 62 61 6c 20 th. The symbal
04f0: 74 61 62 6c 65 0a 2a 2a 20 69 73 20 6f 66 20 61 table.** is of a
0500: 20 6c 69 6d 69 74 65 64 20 61 6e 64 20 66 69 78 limited and fix
0510: 65 64 20 73 69 7a 65 2e 0a 2a 2a 0a 2a 2a 20 54 ed size..**.** T
0520: 4f 4b 45 4e 53 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 OKENS:.**.**
0530: 20 20 2a 20 20 41 6c 6c 20 74 6f 6b 65 6e 73 20 * All tokens
0540: 61 72 65 20 73 65 70 61 72 61 74 65 64 20 66 72 are separated fr
0550: 6f 6d 20 65 61 63 68 20 6f 74 68 65 72 20 62 79 om each other by
0560: 20 77 68 69 74 65 73 70 61 63 65 2e 0a 2a 2a 20 whitespace..**
0570: 20 20 20 20 20 2a 20 20 4c 65 61 64 69 6e 67 20 * Leading
0580: 61 6e 64 20 74 72 61 69 6c 69 6e 67 20 77 68 69 and trailing whi
0590: 74 65 73 70 61 63 65 20 69 73 20 69 67 6e 6f 72 tespace is ignor
05a0: 65 64 2e 0a 2a 2a 20 20 20 20 20 20 2a 20 20 54 ed..** * T
05b0: 65 78 74 20 77 69 74 68 69 6e 20 6e 65 73 74 65 ext within neste
05c0: 64 20 7b 2e 2e 2e 7d 20 69 73 20 61 20 73 69 6e d {...} is a sin
05d0: 67 6c 65 20 73 74 72 69 6e 67 20 74 6f 6b 65 6e gle string token
05e0: 2e 20 20 54 68 65 20 6f 75 74 65 72 6d 6f 73 74 . The outermost
05f0: 0a 2a 2a 20 20 20 20 20 20 20 20 20 63 75 72 6c .** curl
0600: 79 20 62 72 61 63 65 73 20 61 72 65 20 6e 6f 74 y braces are not
0610: 20 70 61 72 74 20 6f 66 20 74 68 65 20 74 6f 6b part of the tok
0620: 65 6e 2e 0a 2a 2a 20 20 20 20 20 20 2a 20 20 41 en..** * A
0630: 6e 20 69 64 65 6e 74 69 66 69 65 72 20 77 69 74 n identifier wit
0640: 68 20 61 20 6c 65 61 64 69 6e 67 20 22 2f 22 20 h a leading "/"
0650: 69 73 20 61 20 73 74 72 69 6e 67 20 74 6f 6b 65 is a string toke
0660: 6e 2e 0a 2a 2a 20 20 20 20 20 20 2a 20 20 41 20 n..** * A
0670: 74 6f 6b 65 6e 20 74 68 61 74 20 6c 6f 6f 6b 73 token that looks
0680: 20 6c 69 6b 65 20 61 20 6e 75 6d 62 65 72 20 69 like a number i
0690: 73 20 61 20 73 74 72 69 6e 67 20 74 6f 6b 65 6e s a string token
06a0: 2e 0a 2a 2a 20 20 20 20 20 20 2a 20 20 41 6e 20 ..** * An
06b0: 69 64 65 6e 74 69 66 69 65 72 20 74 6f 6b 65 6e identifier token
06c0: 20 69 73 20 63 61 6c 6c 65 64 20 61 20 22 76 65 is called a "ve
06d0: 72 62 22 2e 0a 2a 2a 0a 2a 2a 20 50 52 4f 43 45 rb"..**.** PROCE
06e0: 53 53 49 4e 47 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 SSING:.**.**
06f0: 20 20 2a 20 20 54 68 65 20 69 6e 70 75 74 20 69 * The input i
0700: 73 20 64 69 76 69 64 65 64 20 69 6e 74 6f 20 74 s divided into t
0710: 6f 6b 65 6e 73 2e 20 20 57 68 69 74 65 73 70 61 okens. Whitespa
0720: 63 65 20 69 73 20 64 69 73 63 61 72 64 65 64 2e ce is discarded.
0730: 0a 2a 2a 20 20 20 20 20 20 20 20 20 53 74 72 69 .** Stri
0740: 6e 67 20 61 6e 64 20 76 65 72 62 20 74 6f 6b 65 ng and verb toke
0750: 6e 73 20 61 72 65 20 70 61 73 73 65 64 20 69 6e ns are passed in
0760: 74 6f 20 74 68 65 20 65 6e 67 69 6e 65 2e 0a 2a to the engine..*
0770: 2a 20 20 20 20 20 20 2a 20 20 53 74 72 69 6e 67 * * String
0780: 20 74 6f 6b 65 6e 73 20 61 72 65 20 70 75 73 68 tokens are push
0790: 65 64 20 6f 6e 74 6f 20 74 68 65 20 73 74 61 63 ed onto the stac
07a0: 6b 2e 0a 2a 2a 20 20 20 20 20 20 2a 20 20 49 66 k..** * If
07b0: 20 61 20 76 65 72 62 20 74 6f 6b 65 6e 20 63 6f a verb token co
07c0: 72 72 65 73 70 6f 6e 64 73 20 74 6f 20 61 20 70 rresponds to a p
07d0: 72 6f 63 65 64 75 72 65 2c 20 74 68 61 74 20 70 rocedure, that p
07e0: 72 6f 63 65 64 75 72 65 20 69 73 0a 2a 2a 20 20 rocedure is.**
07f0: 20 20 20 20 20 20 20 72 75 6e 2e 20 20 54 68 65 run. The
0800: 20 70 72 6f 63 65 64 75 72 65 20 6d 69 67 68 74 procedure might
0810: 20 75 73 65 2c 20 70 6f 70 2c 20 6f 72 20 70 75 use, pop, or pu
0820: 6c 6c 20 65 6c 65 6d 65 6e 74 73 20 66 72 6f 6d ll elements from
0830: 20 0a 2a 2a 20 20 20 20 20 20 20 20 20 74 68 65 .** the
0840: 20 73 74 61 63 6b 2e 0a 2a 2a 20 20 20 20 20 20 stack..**
0850: 2a 20 20 49 66 20 61 20 76 65 72 62 20 74 6f 6b * If a verb tok
0860: 65 6e 20 63 6f 72 72 65 73 70 6f 6e 64 73 20 74 en corresponds t
0870: 6f 20 61 20 76 61 72 69 61 62 6c 65 2c 20 74 68 o a variable, th
0880: 65 20 76 61 6c 75 65 20 6f 66 20 74 68 61 74 0a e value of that.
0890: 2a 2a 20 20 20 20 20 20 20 20 20 76 61 72 69 61 ** varia
08a0: 62 6c 65 20 69 73 20 70 75 73 68 65 64 20 6f 6e ble is pushed on
08b0: 74 6f 20 74 68 65 20 73 74 61 63 6b 2e 0a 2a 2a to the stack..**
08c0: 0a 2a 2a 20 54 68 69 73 20 6d 6f 64 75 6c 65 20 .** This module
08d0: 61 74 74 65 6d 70 74 73 20 74 6f 20 62 65 20 63 attempts to be c
08e0: 6f 6d 70 6c 65 74 65 6c 79 20 73 65 6c 66 2d 63 ompletely self-c
08f0: 6f 6e 74 61 69 6e 65 64 20 73 6f 20 74 68 61 74 ontained so that
0900: 20 69 74 20 63 61 6e 0a 2a 2a 20 62 65 20 70 6f it can.** be po
0910: 72 74 61 62 6c 65 20 74 6f 20 6f 74 68 65 72 20 rtable to other
0920: 70 72 6f 6a 65 63 74 73 2e 0a 2a 2f 0a 23 69 6e projects..*/.#in
0930: 63 6c 75 64 65 20 22 63 6f 6e 66 69 67 2e 68 22 clude "config.h"
0940: 0a 23 69 6e 63 6c 75 64 65 20 22 73 75 62 73 63 .#include "subsc
0950: 72 69 70 74 2e 68 22 0a 23 69 6e 63 6c 75 64 65 ript.h".#include
0960: 20 3c 61 73 73 65 72 74 2e 68 3e 0a 0a 23 69 66 <assert.h>..#if
0970: 20 49 4e 54 45 52 46 41 43 45 0a 74 79 70 65 64 INTERFACE.typed
0980: 65 66 20 73 74 72 75 63 74 20 53 75 62 73 63 72 ef struct Subscr
0990: 69 70 74 20 53 75 62 73 63 72 69 70 74 3b 0a 23 ipt Subscript;.#
09a0: 64 65 66 69 6e 65 20 53 42 53 5f 4f 4b 20 20 20 define SBS_OK
09b0: 20 20 20 30 0a 23 64 65 66 69 6e 65 20 53 42 53 0.#define SBS
09c0: 5f 45 52 52 4f 52 20 20 20 31 0a 23 65 6e 64 69 _ERROR 1.#endi
09d0: 66 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6e 66 69 67 75 f../*.** Configu
09e0: 72 61 74 69 6f 6e 20 63 6f 6e 73 74 61 6e 74 73 ration constants
09f0: 0a 2a 2f 0a 23 64 65 66 69 6e 65 20 53 42 53 43 .*/.#define SBSC
0a00: 4f 4e 46 49 47 5f 4e 48 41 53 48 20 20 20 20 34 ONFIG_NHASH 4
0a10: 31 20 20 20 20 20 20 20 20 20 2f 2a 20 53 69 7a 1 /* Siz
0a20: 65 20 6f 66 20 74 68 65 20 68 61 73 68 20 74 61 e of the hash ta
0a30: 62 6c 65 20 2a 2f 0a 23 64 65 66 69 6e 65 20 53 ble */.#define S
0a40: 42 53 43 4f 4e 46 49 47 5f 4e 53 54 41 43 4b 20 BSCONFIG_NSTACK
0a50: 20 20 31 30 20 20 20 20 20 20 20 20 20 2f 2a 20 10 /*
0a60: 4d 61 78 69 6d 75 6d 20 73 74 61 63 6b 20 64 65 Maximum stack de
0a70: 70 74 68 20 2a 2f 0a 23 64 65 66 69 6e 65 20 53 pth */.#define S
0a80: 42 53 43 4f 4e 46 49 47 5f 45 52 52 53 49 5a 45 BSCONFIG_ERRSIZE
0a90: 20 20 31 30 30 20 20 20 20 20 20 20 20 2f 2a 20 100 /*
0aa0: 4d 61 78 69 6d 75 6d 20 73 69 7a 65 20 6f 66 20 Maximum size of
0ab0: 61 6e 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 an error message
0ac0: 20 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 41 76 61 69 6c */../*.** Avail
0ad0: 61 62 6c 65 20 74 6f 6b 65 6e 20 74 79 70 65 73 able token types
0ae0: 3a 0a 2a 2f 0a 23 64 65 66 69 6e 65 20 53 42 53 :.*/.#define SBS
0af0: 54 54 5f 57 48 49 54 45 53 50 41 43 45 20 20 31 TT_WHITESPACE 1
0b00: 20 20 20 20 2f 2a 20 65 78 3a 20 20 20 5c 30 34 /* ex: \04
0b10: 30 20 20 20 2a 2f 0a 23 64 65 66 69 6e 65 20 53 0 */.#define S
0b20: 42 53 54 54 5f 4e 41 4d 45 20 20 20 20 20 20 20 BSTT_NAME
0b30: 20 32 20 20 20 20 2f 2a 20 65 78 3a 20 20 20 2f 2 /* ex: /
0b40: 61 62 63 64 65 20 20 2a 2f 0a 23 64 65 66 69 6e abcde */.#defin
0b50: 65 20 53 42 53 54 54 5f 56 45 52 42 20 20 20 20 e SBSTT_VERB
0b60: 20 20 20 20 33 20 20 20 20 2f 2a 20 65 78 3a 20 3 /* ex:
0b70: 20 20 61 62 63 64 65 20 20 20 2a 2f 0a 23 64 65 abcde */.#de
0b80: 66 69 6e 65 20 53 42 53 54 54 5f 53 54 52 49 4e fine SBSTT_STRIN
0b90: 47 20 20 20 20 20 20 34 20 20 20 20 2f 2a 20 65 G 4 /* e
0ba0: 78 3a 20 20 20 7b 2e 2e 2e 7d 20 20 20 2a 2f 0a x: {...} */.
0bb0: 23 64 65 66 69 6e 65 20 53 42 53 54 54 5f 49 4e #define SBSTT_IN
0bc0: 54 45 47 45 52 20 20 20 20 20 35 20 20 20 20 2f TEGER 5 /
0bd0: 2a 20 49 6e 74 65 67 65 72 20 69 6e 63 6c 75 64 * Integer includ
0be0: 69 6e 67 20 6f 70 74 69 6f 6e 20 73 69 67 6e 20 ing option sign
0bf0: 2a 2f 0a 23 64 65 66 69 6e 65 20 53 42 53 54 54 */.#define SBSTT
0c00: 5f 49 4e 43 4f 4d 50 4c 45 54 45 20 20 36 20 20 _INCOMPLETE 6
0c10: 20 20 2f 2a 20 55 6e 74 65 72 6d 69 6e 61 74 65 /* Unterminate
0c20: 64 20 73 74 72 69 6e 67 20 74 6f 6b 65 6e 20 2a d string token *
0c30: 2f 0a 23 64 65 66 69 6e 65 20 53 42 53 54 54 5f /.#define SBSTT_
0c40: 55 4e 4b 4e 4f 57 4e 20 20 20 20 20 37 20 20 20 UNKNOWN 7
0c50: 20 2f 2a 20 55 6e 6b 6e 6f 77 6e 20 74 6f 6b 65 /* Unknown toke
0c60: 6e 20 2a 2f 0a 23 64 65 66 69 6e 65 20 53 42 53 n */.#define SBS
0c70: 54 54 5f 45 4f 46 20 20 20 20 20 20 20 20 20 38 TT_EOF 8
0c80: 20 20 20 20 2f 2a 20 45 6e 64 20 6f 66 20 69 6e /* End of in
0c90: 70 75 74 20 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 56 61 put */../*.** Va
0ca0: 6c 75 65 73 20 61 72 65 20 73 74 6f 72 65 64 20 lues are stored
0cb0: 69 6e 20 74 68 65 20 68 61 73 68 20 74 61 62 6c in the hash tabl
0cc0: 65 20 61 73 20 69 6e 73 74 61 6e 63 65 73 20 6f e as instances o
0cd0: 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 0a f the following.
0ce0: 2a 2a 20 73 74 72 75 63 74 75 72 65 2e 0a 2a 2f ** structure..*/
0cf0: 0a 74 79 70 65 64 65 66 20 73 74 72 75 63 74 20 .typedef struct
0d00: 53 62 53 56 61 6c 75 65 20 53 62 53 56 61 6c 75 SbSValue SbSValu
0d10: 65 3b 0a 73 74 72 75 63 74 20 53 62 53 56 61 6c e;.struct SbSVal
0d20: 75 65 20 7b 0a 20 20 69 6e 74 20 66 6c 61 67 73 ue {. int flags
0d30: 3b 20 20 20 20 20 20 20 20 2f 2a 20 42 69 74 6d ; /* Bitm
0d40: 61 73 6b 20 6f 66 20 53 42 53 56 41 4c 5f 2a 20 ask of SBSVAL_*
0d50: 76 61 6c 75 65 73 20 2a 2f 0a 20 20 75 6e 69 6f values */. unio
0d60: 6e 20 7b 0a 20 20 20 20 73 74 72 75 63 74 20 7b n {. struct {
0d70: 0a 20 20 20 20 20 20 69 6e 74 20 73 69 7a 65 3b . int size;
0d80: 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 /* Numbe
0d90: 72 20 6f 66 20 62 79 74 65 73 20 69 6e 20 73 74 r of bytes in st
0da0: 72 69 6e 67 2c 20 6e 6f 74 20 63 6f 75 6e 74 69 ring, not counti
0db0: 6e 67 20 66 69 6e 61 6c 20 7a 65 72 6f 20 2a 2f ng final zero */
0dc0: 0a 20 20 20 20 20 20 63 68 61 72 20 2a 7a 3b 20 . char *z;
0dd0: 20 20 20 20 20 20 20 20 2f 2a 20 50 6f 69 6e 74 /* Point
0de0: 65 72 20 74 6f 20 73 74 72 69 6e 67 20 63 6f 6e er to string con
0df0: 74 65 6e 74 20 2a 2f 0a 20 20 20 20 7d 20 73 74 tent */. } st
0e00: 72 3b 20 20 20 20 20 20 20 20 20 20 2f 2a 20 56 r; /* V
0e10: 61 6c 75 65 20 69 66 20 53 42 53 56 41 4c 5f 53 alue if SBSVAL_S
0e20: 54 52 20 2a 2f 0a 20 20 20 20 73 74 72 75 63 74 TR */. struct
0e30: 20 7b 0a 20 20 20 20 20 20 69 6e 74 20 28 2a 78 {. int (*x
0e40: 56 65 72 62 29 28 53 75 62 73 63 72 69 70 74 2a Verb)(Subscript*
0e50: 2c 20 76 6f 69 64 2a 29 3b 20 20 20 20 20 2f 2a , void*); /*
0e60: 20 46 75 6e 63 74 69 6f 6e 20 74 6f 20 64 6f 20 Function to do
0e70: 74 68 65 20 77 6f 72 6b 20 2a 2f 0a 20 20 20 20 the work */.
0e80: 20 20 76 6f 69 64 20 2a 70 41 72 67 3b 20 20 20 void *pArg;
0e90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0ea0: 20 20 20 20 20 20 20 2f 2a 20 32 6e 64 20 70 61 /* 2nd pa
0eb0: 72 61 6d 65 74 65 72 20 74 6f 20 78 56 65 72 62 rameter to xVerb
0ec0: 20 2a 2f 0a 20 20 20 20 7d 20 76 65 72 62 3b 20 */. } verb;
0ed0: 20 20 20 20 20 20 20 20 2f 2a 20 56 61 6c 75 65 /* Value
0ee0: 20 69 66 20 53 42 53 56 41 4c 5f 56 45 52 42 20 if SBSVAL_VERB
0ef0: 2a 2f 0a 20 20 7d 20 75 3b 20 20 20 20 20 20 20 */. } u;
0f00: 20 20 20 20 20 20 20 0a 7d 3b 0a 23 64 65 66 69 .};.#defi
0f10: 6e 65 20 53 42 53 56 41 4c 5f 56 45 52 42 20 20 ne SBSVAL_VERB
0f20: 20 20 30 78 30 30 30 31 20 20 20 20 20 20 2f 2a 0x0001 /*
0f30: 20 56 61 6c 75 65 20 73 74 6f 72 65 64 20 69 6e Value stored in
0f40: 20 75 2e 76 65 72 62 20 2a 2f 0a 23 64 65 66 69 u.verb */.#defi
0f50: 6e 65 20 53 42 53 56 41 4c 5f 53 54 52 20 20 20 ne SBSVAL_STR
0f60: 20 20 30 78 30 30 30 32 20 20 20 20 20 20 2f 2a 0x0002 /*
0f70: 20 56 61 6c 75 65 20 73 74 6f 72 65 64 20 69 6e Value stored in
0f80: 20 75 2e 73 74 72 20 2a 2f 20 0a 23 64 65 66 69 u.str */ .#defi
0f90: 6e 65 20 53 42 53 56 41 4c 5f 44 59 4e 20 20 20 ne SBSVAL_DYN
0fa0: 20 20 30 78 30 30 30 34 20 20 20 20 20 20 2f 2a 0x0004 /*
0fb0: 20 75 2e 73 74 72 2e 7a 20 69 73 20 64 79 6e 61 u.str.z is dyna
0fc0: 6d 69 63 61 6c 6c 79 20 61 6c 6c 6f 63 61 74 65 mically allocate
0fd0: 64 20 2a 2f 0a 23 64 65 66 69 6e 65 20 53 42 53 d */.#define SBS
0fe0: 56 41 4c 5f 45 58 45 43 20 20 20 20 30 78 30 30 VAL_EXEC 0x00
0ff0: 30 38 20 20 20 20 20 20 2f 2a 20 75 2e 73 74 72 08 /* u.str
1000: 2e 7a 20 69 73 20 61 20 73 63 72 69 70 74 20 2a .z is a script *
1010: 2f 0a 0a 2f 2a 0a 2a 2a 20 41 6e 20 65 6e 74 72 /../*.** An entr
1020: 79 20 69 6e 20 74 68 65 20 68 61 73 68 20 74 61 y in the hash ta
1030: 62 6c 65 20 69 73 20 61 6e 20 69 6e 73 74 61 6e ble is an instan
1040: 63 65 20 6f 66 20 74 68 69 73 20 73 74 72 75 63 ce of this struc
1050: 74 75 72 65 2e 0a 2a 2f 0a 74 79 70 65 64 65 66 ture..*/.typedef
1060: 20 73 74 72 75 63 74 20 53 62 73 48 61 73 68 45 struct SbsHashE
1070: 6e 74 72 79 20 53 62 73 48 61 73 68 45 6e 74 72 ntry SbsHashEntr
1080: 79 3b 0a 73 74 72 75 63 74 20 53 62 73 48 61 73 y;.struct SbsHas
1090: 68 45 6e 74 72 79 20 7b 0a 20 20 53 62 73 48 61 hEntry {. SbsHa
10a0: 73 68 45 6e 74 72 79 20 2a 70 4e 65 78 74 3b 20 shEntry *pNext;
10b0: 20 20 20 20 2f 2a 20 4e 65 78 74 20 65 6e 74 72 /* Next entr
10c0: 79 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 y with the same
10d0: 68 61 73 68 20 6f 6e 20 7a 4b 65 79 20 2a 2f 0a hash on zKey */.
10e0: 20 20 53 62 53 56 61 6c 75 65 20 76 61 6c 3b 20 SbSValue val;
10f0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 /* Th
1100: 65 20 70 61 79 6c 6f 61 64 20 2a 2f 0a 20 20 69 e payload */. i
1110: 6e 74 20 6e 4b 65 79 3b 20 20 20 20 20 20 20 20 nt nKey;
1120: 20 20 20 20 20 20 20 2f 2a 20 4c 65 6e 67 74 68 /* Length
1130: 20 6f 66 20 74 68 65 20 6b 65 79 20 2a 2f 0a 20 of the key */.
1140: 20 63 68 61 72 20 7a 4b 65 79 5b 30 5d 3b 20 20 char zKey[0];
1150: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20 /* The
1160: 6b 65 79 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a key */.};../*.**
1170: 20 41 20 68 61 73 68 20 74 61 62 6c 65 20 69 73 A hash table is
1180: 20 61 6e 20 69 6e 73 74 61 6e 63 65 20 6f 66 20 an instance of
1190: 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 74 the following st
11a0: 72 75 63 74 75 72 65 2e 0a 2a 2f 0a 74 79 70 65 ructure..*/.type
11b0: 64 65 66 20 73 74 72 75 63 74 20 53 62 73 48 61 def struct SbsHa
11c0: 73 68 54 61 62 20 53 62 73 48 61 73 68 54 61 62 shTab SbsHashTab
11d0: 3b 0a 73 74 72 75 63 74 20 53 62 73 48 61 73 68 ;.struct SbsHash
11e0: 54 61 62 20 7b 0a 20 20 53 62 73 48 61 73 68 45 Tab {. SbsHashE
11f0: 6e 74 72 79 20 2a 61 48 61 73 68 5b 53 42 53 43 ntry *aHash[SBSC
1200: 4f 4e 46 49 47 5f 4e 48 41 53 48 5d 3b 20 20 2f ONFIG_NHASH]; /
1210: 2a 20 54 68 65 20 68 61 73 68 20 74 61 62 6c 65 * The hash table
1220: 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 41 6e */.};../*.** An
1230: 20 69 6e 73 74 61 6e 63 65 20 6f 66 20 74 68 65 instance of the
1240: 20 53 75 62 73 63 72 69 70 74 20 69 6e 74 65 72 Subscript inter
1250: 70 72 65 74 65 72 0a 2a 2f 0a 73 74 72 75 63 74 preter.*/.struct
1260: 20 53 75 62 73 63 72 69 70 74 20 7b 0a 20 20 69 Subscript {. i
1270: 6e 74 20 6e 53 74 61 63 6b 3b 20 20 20 20 20 20 nt nStack;
1280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1290: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 65 6e 74 /* Number of ent
12a0: 72 69 65 73 20 6f 6e 20 73 74 61 63 6b 20 2a 2f ries on stack */
12b0: 0a 20 20 53 62 73 48 61 73 68 54 61 62 20 73 79 . SbsHashTab sy
12c0: 6d 54 61 62 3b 20 20 20 20 20 20 20 20 20 20 20 mTab;
12d0: 20 20 20 20 20 2f 2a 20 54 68 65 20 73 79 6d 62 /* The symb
12e0: 6f 6c 20 74 61 62 6c 65 20 2a 2f 0a 20 20 63 68 ol table */. ch
12f0: 61 72 20 7a 45 72 72 4d 73 67 5b 53 42 53 43 4f ar zErrMsg[SBSCO
1300: 4e 46 49 47 5f 45 52 52 53 49 5a 45 5d 3b 20 20 NFIG_ERRSIZE];
1310: 2f 2a 20 53 70 61 63 65 20 74 6f 20 77 72 69 74 /* Space to writ
1320: 65 20 61 6e 20 65 72 72 6f 72 20 6d 65 73 73 61 e an error messa
1330: 67 65 20 2a 2f 0a 20 20 53 62 53 56 61 6c 75 65 ge */. SbSValue
1340: 20 61 53 74 61 63 6b 5b 53 42 53 43 4f 4e 46 49 aStack[SBSCONFI
1350: 47 5f 4e 53 54 41 43 4b 5d 3b 20 2f 2a 20 54 68 G_NSTACK]; /* Th
1360: 65 20 73 74 61 63 6b 20 2a 2f 0a 7d 3b 0a 0a 0a e stack */.};...
1370: 2f 2a 0a 2a 2a 20 47 69 76 65 6e 20 61 6e 20 69 /*.** Given an i
1380: 6e 70 75 74 20 73 74 72 69 6e 67 20 7a 20 6f 66 nput string z of
1390: 20 6c 65 6e 67 74 68 20 6e 2c 20 69 64 65 6e 74 length n, ident
13a0: 69 66 79 20 74 68 65 20 74 6f 6b 65 6e 20 74 68 ify the token th
13b0: 61 74 0a 2a 2a 20 73 74 61 72 74 73 20 61 74 20 at.** starts at
13c0: 7a 5b 30 5d 2e 20 20 57 72 69 74 65 20 74 68 65 z[0]. Write the
13d0: 20 74 6f 6b 65 6e 20 74 79 70 65 20 69 6e 74 6f token type into
13e0: 20 2a 70 54 6f 6b 65 6e 54 79 70 65 20 61 6e 64 *pTokenType and
13f0: 0a 2a 2a 20 72 65 74 75 72 6e 20 74 68 65 20 6c .** return the l
1400: 65 6e 67 74 68 20 6f 66 20 74 68 65 20 74 6f 6b ength of the tok
1410: 65 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e en..*/.static in
1420: 74 20 73 62 73 5f 6e 65 78 74 5f 74 6f 6b 65 6e t sbs_next_token
1430: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 2c 20 (const char *z,
1440: 69 6e 74 20 6e 2c 20 69 6e 74 20 2a 70 54 6f 6b int n, int *pTok
1450: 65 6e 54 79 70 65 29 7b 0a 20 20 69 6e 74 20 63 enType){. int c
1460: 3b 0a 20 20 69 66 28 20 6e 3c 3d 30 20 7c 7c 20 ;. if( n<=0 ||
1470: 7a 5b 30 5d 3d 3d 30 20 29 7b 0a 20 20 20 20 2a z[0]==0 ){. *
1480: 70 54 6f 6b 65 6e 54 79 70 65 20 3d 20 53 42 53 pTokenType = SBS
1490: 54 54 5f 45 4f 46 3b 0a 20 20 20 20 72 65 74 75 TT_EOF;. retu
14a0: 72 6e 20 30 3b 0a 20 20 7d 0a 20 20 63 20 3d 20 rn 0;. }. c =
14b0: 7a 5b 30 5d 3b 0a 20 20 69 66 28 20 69 73 73 70 z[0];. if( issp
14c0: 61 63 65 28 63 29 20 29 7b 0a 20 20 20 20 69 6e ace(c) ){. in
14d0: 74 20 69 3b 0a 20 20 20 20 2a 70 54 6f 6b 65 6e t i;. *pToken
14e0: 54 79 70 65 20 3d 20 53 42 53 54 54 5f 57 48 49 Type = SBSTT_WHI
14f0: 54 45 53 50 41 43 45 3b 0a 20 20 20 20 66 6f 72 TESPACE;. for
1500: 28 69 3d 31 3b 20 69 3c 6e 20 26 26 20 69 73 73 (i=1; i<n && iss
1510: 70 61 63 65 28 7a 5b 69 5d 29 3b 20 69 2b 2b 29 pace(z[i]); i++)
1520: 7b 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 69 3b {}. return i;
1530: 0a 20 20 7d 0a 20 20 69 66 28 20 63 3d 3d 27 23 . }. if( c=='#
1540: 27 20 29 7b 0a 20 20 20 20 69 6e 74 20 69 3b 0a ' ){. int i;.
1550: 20 20 20 20 66 6f 72 28 69 3d 31 3b 20 69 3c 6e for(i=1; i<n
1560: 20 26 26 20 7a 5b 69 5d 20 26 26 20 7a 5b 69 2d && z[i] && z[i-
1570: 31 5d 21 3d 27 5c 6e 27 3b 20 69 2b 2b 29 7b 7d 1]!='\n'; i++){}
1580: 0a 20 20 20 20 2a 70 54 6f 6b 65 6e 54 79 70 65 . *pTokenType
1590: 20 3d 20 53 42 53 54 54 5f 57 48 49 54 45 53 50 = SBSTT_WHITESP
15a0: 41 43 45 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 ACE;. return
15b0: 69 3b 0a 20 20 7d 0a 20 20 69 66 28 20 63 3d 3d i;. }. if( c==
15c0: 27 7b 27 20 29 7b 0a 20 20 20 20 69 6e 74 20 64 '{' ){. int d
15d0: 65 70 74 68 20 3d 20 31 3b 0a 20 20 20 20 69 6e epth = 1;. in
15e0: 74 20 69 3b 0a 20 20 20 20 66 6f 72 28 69 3d 31 t i;. for(i=1
15f0: 3b 20 69 3c 6e 20 26 26 20 7a 5b 69 5d 3b 20 69 ; i<n && z[i]; i
1600: 2b 2b 29 7b 0a 20 20 20 20 20 20 69 66 28 20 7a ++){. if( z
1610: 5b 69 5d 3d 3d 27 7b 27 20 29 7b 0a 20 20 20 20 [i]=='{' ){.
1620: 20 20 20 20 64 65 70 74 68 2b 2b 3b 0a 20 20 20 depth++;.
1630: 20 20 20 7d 65 6c 73 65 20 69 66 28 20 7a 5b 69 }else if( z[i
1640: 5d 3d 3d 27 7d 27 20 29 7b 0a 20 20 20 20 20 20 ]=='}' ){.
1650: 20 20 64 65 70 74 68 2d 2d 3b 0a 20 20 20 20 20 depth--;.
1660: 20 20 20 69 66 28 20 64 65 70 74 68 3d 3d 30 20 if( depth==0
1670: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 69 2b 2b ){. i++
1680: 3b 0a 20 20 20 20 20 20 20 20 20 20 62 72 65 61 ;. brea
1690: 6b 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 k;. }.
16a0: 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 }. }. i
16b0: 66 28 20 64 65 70 74 68 20 29 7b 0a 20 20 20 20 f( depth ){.
16c0: 20 20 2a 70 54 6f 6b 65 6e 54 79 70 65 20 3d 20 *pTokenType =
16d0: 53 42 53 54 54 5f 49 4e 43 4f 4d 50 4c 45 54 45 SBSTT_INCOMPLETE
16e0: 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 ;. }else{.
16f0: 20 20 20 2a 70 54 6f 6b 65 6e 54 79 70 65 20 3d *pTokenType =
1700: 20 53 42 53 54 54 5f 53 54 52 49 4e 47 3b 0a 20 SBSTT_STRING;.
1710: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 }. return
1720: 69 3b 0a 20 20 7d 0a 20 20 69 66 28 20 63 3d 3d i;. }. if( c==
1730: 27 2f 27 20 26 26 20 6e 3e 3d 32 20 26 26 20 69 '/' && n>=2 && i
1740: 73 61 6c 70 68 61 28 7a 5b 31 5d 29 20 29 7b 0a salpha(z[1]) ){.
1750: 20 20 20 20 69 6e 74 20 69 3b 0a 20 20 20 20 66 int i;. f
1760: 6f 72 28 69 3d 32 3b 20 69 3c 6e 20 26 26 20 28 or(i=2; i<n && (
1770: 69 73 61 6c 6e 75 6d 28 7a 5b 69 5d 29 20 7c 7c isalnum(z[i]) ||
1780: 20 7a 5b 69 5d 3d 3d 27 5f 27 29 3b 20 69 2b 2b z[i]=='_'); i++
1790: 29 7b 7d 0a 20 20 20 20 2a 70 54 6f 6b 65 6e 54 ){}. *pTokenT
17a0: 79 70 65 20 3d 20 53 42 53 54 54 5f 4e 41 4d 45 ype = SBSTT_NAME
17b0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 69 3b 0a ;. return i;.
17c0: 20 20 7d 0a 20 20 69 66 28 20 69 73 61 6c 70 68 }. if( isalph
17d0: 61 28 63 29 20 29 7b 0a 20 20 20 20 69 6e 74 20 a(c) ){. int
17e0: 69 3b 0a 20 20 20 20 66 6f 72 28 69 3d 31 3b 20 i;. for(i=1;
17f0: 69 3c 6e 20 26 26 20 28 69 73 61 6c 6e 75 6d 28 i<n && (isalnum(
1800: 7a 5b 69 5d 29 20 7c 7c 20 7a 5b 69 5d 3d 3d 27 z[i]) || z[i]=='
1810: 5f 27 29 3b 20 69 2b 2b 29 7b 7d 0a 20 20 20 20 _'); i++){}.
1820: 2a 70 54 6f 6b 65 6e 54 79 70 65 20 3d 20 53 42 *pTokenType = SB
1830: 53 54 54 5f 56 45 52 42 3b 0a 20 20 20 20 72 65 STT_VERB;. re
1840: 74 75 72 6e 20 69 3b 0a 20 20 7d 0a 20 20 69 66 turn i;. }. if
1850: 28 20 69 73 64 69 67 69 74 28 63 29 20 7c 7c 20 ( isdigit(c) ||
1860: 28 28 63 3d 3d 27 2d 27 20 7c 7c 20 63 3d 3d 27 ((c=='-' || c=='
1870: 2b 27 29 20 26 26 20 6e 3e 3d 32 20 26 26 20 69 +') && n>=2 && i
1880: 73 64 69 67 69 74 28 7a 5b 31 5d 29 29 20 29 7b sdigit(z[1])) ){
1890: 0a 20 20 20 20 69 6e 74 20 69 3b 0a 20 20 20 20 . int i;.
18a0: 66 6f 72 28 69 3d 31 3b 20 69 3c 6e 20 26 26 20 for(i=1; i<n &&
18b0: 69 73 64 69 67 69 74 28 7a 5b 69 5d 29 3b 20 69 isdigit(z[i]); i
18c0: 2b 2b 29 7b 7d 0a 20 20 20 20 2a 70 54 6f 6b 65 ++){}. *pToke
18d0: 6e 54 79 70 65 20 3d 20 53 42 53 54 54 5f 49 4e nType = SBSTT_IN
18e0: 54 45 47 45 52 3b 0a 20 20 20 20 72 65 74 75 72 TEGER;. retur
18f0: 6e 20 69 3b 0a 20 20 7d 0a 20 20 2a 70 54 6f 6b n i;. }. *pTok
1900: 65 6e 54 79 70 65 20 3d 20 53 42 53 54 54 5f 55 enType = SBSTT_U
1910: 4e 4b 4e 4f 57 4e 3b 0a 20 20 72 65 74 75 72 6e NKNOWN;. return
1920: 20 31 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 52 65 1;.}.../*.** Re
1930: 6c 65 61 73 65 20 61 6e 79 20 6d 65 6d 6f 72 79 lease any memory
1940: 20 61 6c 6c 6f 63 61 74 65 64 20 62 79 20 61 20 allocated by a
1950: 76 61 6c 75 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 value..*/.static
1960: 20 76 6f 69 64 20 73 62 73 5f 76 61 6c 75 65 5f void sbs_value_
1970: 72 65 73 65 74 28 53 62 53 56 61 6c 75 65 20 2a reset(SbSValue *
1980: 70 29 7b 0a 20 20 69 66 28 20 70 2d 3e 66 6c 61 p){. if( p->fla
1990: 67 73 20 26 20 53 42 53 56 41 4c 5f 44 59 4e 20 gs & SBSVAL_DYN
19a0: 29 7b 0a 20 20 20 20 66 72 65 65 28 70 2d 3e 75 ){. free(p->u
19b0: 2e 73 74 72 2e 7a 29 3b 0a 20 20 20 20 70 2d 3e .str.z);. p->
19c0: 66 6c 61 67 73 20 3d 20 53 42 53 56 41 4c 5f 53 flags = SBSVAL_S
19d0: 54 52 3b 0a 20 20 20 20 70 2d 3e 75 2e 73 74 72 TR;. p->u.str
19e0: 2e 7a 20 3d 20 22 22 3b 0a 20 20 20 20 70 2d 3e .z = "";. p->
19f0: 75 2e 73 74 72 2e 73 69 7a 65 20 3d 20 30 3b 0a u.str.size = 0;.
1a00: 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6d }.}../*.** Com
1a10: 70 75 74 65 20 61 20 68 61 73 68 20 6f 6e 20 61 pute a hash on a
1a20: 20 73 74 72 69 6e 67 2e 0a 2a 2f 0a 73 74 61 74 string..*/.stat
1a30: 69 63 20 69 6e 74 20 73 62 73 5f 68 61 73 68 28 ic int sbs_hash(
1a40: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 2c 20 69 const char *z, i
1a50: 6e 74 20 6e 29 7b 0a 20 20 69 6e 74 20 68 20 3d nt n){. int h =
1a60: 20 30 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 66 0;. int i;. f
1a70: 6f 72 28 69 3d 30 3b 20 69 3c 6e 3b 20 69 2b 2b or(i=0; i<n; i++
1a80: 29 7b 0a 20 20 20 20 68 20 5e 3d 20 28 68 3c 3c ){. h ^= (h<<
1a90: 31 29 20 7c 20 7a 5b 69 5d 3b 0a 20 20 7d 0a 20 1) | z[i];. }.
1aa0: 20 68 20 26 3d 20 30 78 37 66 66 66 66 66 66 3b h &= 0x7ffffff;
1ab0: 0a 20 20 72 65 74 75 72 6e 20 68 20 25 20 53 42 . return h % SB
1ac0: 53 43 4f 4e 46 49 47 5f 4e 48 41 53 48 3b 0a 7d SCONFIG_NHASH;.}
1ad0: 0a 0a 2f 2a 0a 2a 2a 20 4c 6f 6f 6b 20 75 70 20 ../*.** Look up
1ae0: 61 20 76 61 6c 75 65 20 69 6e 20 74 68 65 20 68 a value in the h
1af0: 61 73 68 20 74 61 62 6c 65 2e 20 20 52 65 74 75 ash table. Retu
1b00: 72 6e 20 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 rn a pointer to
1b10: 74 68 65 20 76 61 6c 75 65 2e 0a 2a 2a 20 52 65 the value..** Re
1b20: 74 75 72 6e 20 4e 55 4c 4c 20 69 66 20 6e 6f 74 turn NULL if not
1b30: 20 66 6f 75 6e 64 2e 0a 2a 2f 0a 73 74 61 74 69 found..*/.stati
1b40: 63 20 63 6f 6e 73 74 20 53 62 53 56 61 6c 75 65 c const SbSValue
1b50: 20 2a 73 62 73 5f 66 65 74 63 68 28 0a 20 20 53 *sbs_fetch(. S
1b60: 62 73 48 61 73 68 54 61 62 20 2a 70 48 61 73 68 bsHashTab *pHash
1b70: 2c 20 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 , . const char
1b80: 2a 7a 4b 65 79 2c 20 0a 20 20 69 6e 74 20 6e 4b *zKey, . int nK
1b90: 65 79 0a 29 7b 0a 20 20 69 6e 74 20 68 3b 0a 20 ey.){. int h;.
1ba0: 20 53 62 73 48 61 73 68 45 6e 74 72 79 20 2a 70 SbsHashEntry *p
1bb0: 3b 0a 0a 20 20 69 66 28 20 6e 4b 65 79 3c 30 20 ;.. if( nKey<0
1bc0: 29 20 6e 4b 65 79 20 3d 20 73 74 72 6c 65 6e 28 ) nKey = strlen(
1bd0: 7a 4b 65 79 29 3b 0a 20 20 68 20 3d 20 73 62 73 zKey);. h = sbs
1be0: 5f 68 61 73 68 28 7a 4b 65 79 2c 20 6e 4b 65 79 _hash(zKey, nKey
1bf0: 29 3b 0a 20 20 66 6f 72 28 70 20 3d 20 70 48 61 );. for(p = pHa
1c00: 73 68 2d 3e 61 48 61 73 68 5b 68 5d 3b 20 70 3b sh->aHash[h]; p;
1c10: 20 70 3d 70 2d 3e 70 4e 65 78 74 29 7b 0a 20 20 p=p->pNext){.
1c20: 20 20 69 66 28 20 70 2d 3e 6e 4b 65 79 3d 3d 6e if( p->nKey==n
1c30: 4b 65 79 20 26 26 20 6d 65 6d 63 6d 70 28 70 2d Key && memcmp(p-
1c40: 3e 7a 4b 65 79 2c 7a 4b 65 79 2c 6e 4b 65 79 29 >zKey,zKey,nKey)
1c50: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 72 65 74 ==0 ){. ret
1c60: 75 72 6e 20 26 70 2d 3e 76 61 6c 3b 0a 20 20 20 urn &p->val;.
1c70: 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 }. }. return
1c80: 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 74 6f 72 0;.}../*.** Stor
1c90: 65 20 61 20 76 61 6c 75 65 20 69 6e 20 74 68 65 e a value in the
1ca0: 20 68 61 73 68 20 74 61 62 6c 65 2e 20 20 4f 76 hash table. Ov
1cb0: 65 72 77 72 69 74 65 20 61 6e 79 20 70 72 69 6f erwrite any prio
1cc0: 72 20 76 61 6c 75 65 20 73 74 6f 72 65 64 0a 2a r value stored.*
1cd0: 2a 20 75 6e 64 65 72 20 74 68 65 20 73 61 6d 65 * under the same
1ce0: 20 6e 61 6d 65 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 name..**.** If
1cf0: 74 68 65 20 76 61 6c 75 65 20 69 6e 20 74 68 65 the value in the
1d00: 20 34 74 68 20 61 72 67 75 6d 65 6e 74 20 6e 65 4th argument ne
1d10: 65 64 73 20 74 6f 20 62 65 20 72 65 73 65 74 20 eds to be reset
1d20: 6f 72 20 66 72 65 65 64 2c 0a 2a 2a 20 74 68 65 or freed,.** the
1d30: 20 68 61 73 68 20 74 61 62 6c 65 20 77 69 6c 6c hash table will
1d40: 20 74 61 6b 65 20 6f 76 65 72 20 72 65 73 70 6f take over respo
1d50: 6e 73 69 62 69 6c 69 69 74 79 20 66 6f 72 20 64 nsibiliity for d
1d60: 6f 69 6e 67 20 73 6f 2e 0a 2a 2f 0a 73 74 61 74 oing so..*/.stat
1d70: 69 63 20 69 6e 74 20 73 62 73 5f 73 74 6f 72 65 ic int sbs_store
1d80: 28 0a 20 20 53 62 73 48 61 73 68 54 61 62 20 2a (. SbsHashTab *
1d90: 70 48 61 73 68 2c 20 20 20 20 20 20 20 2f 2a 20 pHash, /*
1da0: 49 6e 73 65 72 74 20 69 6e 74 6f 20 74 68 69 73 Insert into this
1db0: 20 68 61 73 68 20 74 61 62 6c 65 20 2a 2f 0a 20 hash table */.
1dc0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4b 65 const char *zKe
1dd0: 79 2c 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 y, /* The
1de0: 20 6b 65 79 20 2a 2f 0a 20 20 69 6e 74 20 6e 4b key */. int nK
1df0: 65 79 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 ey,
1e00: 20 20 20 2f 2a 20 53 69 7a 65 20 6f 66 20 74 68 /* Size of th
1e10: 65 20 6b 65 79 20 2a 2f 0a 20 20 63 6f 6e 73 74 e key */. const
1e20: 20 53 62 53 56 61 6c 75 65 20 2a 70 56 61 6c 75 SbSValue *pValu
1e30: 65 20 20 20 2f 2a 20 54 68 65 20 76 61 6c 75 65 e /* The value
1e40: 20 74 6f 20 62 65 20 73 74 6f 72 65 64 20 2a 2f to be stored */
1e50: 0a 29 7b 0a 20 20 69 6e 74 20 68 3b 0a 20 20 53 .){. int h;. S
1e60: 62 73 48 61 73 68 45 6e 74 72 79 20 2a 70 2c 20 bsHashEntry *p,
1e70: 2a 70 4e 65 77 3b 0a 0a 20 20 69 66 28 20 6e 4b *pNew;.. if( nK
1e80: 65 79 3c 30 20 29 20 6e 4b 65 79 20 3d 20 73 74 ey<0 ) nKey = st
1e90: 72 6c 65 6e 28 7a 4b 65 79 29 3b 0a 20 20 68 20 rlen(zKey);. h
1ea0: 3d 20 73 62 73 5f 68 61 73 68 28 7a 4b 65 79 2c = sbs_hash(zKey,
1eb0: 20 6e 4b 65 79 29 3b 0a 20 20 66 6f 72 28 70 20 nKey);. for(p
1ec0: 3d 20 70 48 61 73 68 2d 3e 61 48 61 73 68 5b 68 = pHash->aHash[h
1ed0: 5d 3b 20 70 3b 20 70 3d 70 2d 3e 70 4e 65 78 74 ]; p; p=p->pNext
1ee0: 29 7b 0a 20 20 20 20 69 66 28 20 70 2d 3e 6e 4b ){. if( p->nK
1ef0: 65 79 3d 3d 6e 4b 65 79 20 26 26 20 6d 65 6d 63 ey==nKey && memc
1f00: 6d 70 28 70 2d 3e 7a 4b 65 79 2c 7a 4b 65 79 2c mp(p->zKey,zKey,
1f10: 6e 4b 65 79 29 3d 3d 30 20 29 7b 0a 20 20 20 20 nKey)==0 ){.
1f20: 20 20 73 62 73 5f 76 61 6c 75 65 5f 72 65 73 65 sbs_value_rese
1f30: 74 28 26 70 2d 3e 76 61 6c 29 3b 0a 20 20 20 20 t(&p->val);.
1f40: 20 20 6d 65 6d 63 70 79 28 26 70 2d 3e 76 61 6c memcpy(&p->val
1f50: 2c 20 70 56 61 6c 75 65 2c 20 73 69 7a 65 6f 66 , pValue, sizeof
1f60: 28 70 2d 3e 76 61 6c 29 29 3b 0a 20 20 20 20 20 (p->val));.
1f70: 20 72 65 74 75 72 6e 20 53 42 53 5f 4f 4b 3b 0a return SBS_OK;.
1f80: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 70 4e 65 77 }. }. pNew
1f90: 20 3d 20 6d 61 6c 6c 6f 63 28 20 73 69 7a 65 6f = malloc( sizeo
1fa0: 66 28 2a 70 4e 65 77 29 20 2b 20 6e 4b 65 79 20 f(*pNew) + nKey
1fb0: 29 3b 0a 20 20 69 66 28 20 70 4e 65 77 20 29 7b );. if( pNew ){
1fc0: 0a 20 20 20 20 70 4e 65 77 2d 3e 6e 4b 65 79 20 . pNew->nKey
1fd0: 3d 20 6e 4b 65 79 3b 0a 20 20 20 20 6d 65 6d 63 = nKey;. memc
1fe0: 70 79 28 70 4e 65 77 2d 3e 7a 4b 65 79 2c 20 7a py(pNew->zKey, z
1ff0: 4b 65 79 2c 20 6e 4b 65 79 2b 31 29 3b 0a 20 20 Key, nKey+1);.
2000: 20 20 6d 65 6d 63 70 79 28 26 70 4e 65 77 2d 3e memcpy(&pNew->
2010: 76 61 6c 2c 20 70 56 61 6c 75 65 2c 20 73 69 7a val, pValue, siz
2020: 65 6f 66 28 70 4e 65 77 2d 3e 76 61 6c 29 29 3b eof(pNew->val));
2030: 0a 20 20 20 20 70 4e 65 77 2d 3e 70 4e 65 78 74 . pNew->pNext
2040: 20 3d 20 70 48 61 73 68 2d 3e 61 48 61 73 68 5b = pHash->aHash[
2050: 68 5d 3b 0a 20 20 20 20 70 48 61 73 68 2d 3e 61 h];. pHash->a
2060: 48 61 73 68 5b 68 5d 20 3d 20 70 4e 65 77 3b 0a Hash[h] = pNew;.
2070: 20 20 20 20 72 65 74 75 72 6e 20 53 42 53 5f 4f return SBS_O
2080: 4b 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 K;. }. return
2090: 53 42 53 5f 45 52 52 4f 52 3b 0a 7d 0a 0a 2f 2a SBS_ERROR;.}../*
20a0: 0a 2a 2a 20 52 65 73 65 74 20 61 20 68 61 73 68 .** Reset a hash
20b0: 20 74 61 62 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 table..*/.stati
20c0: 63 20 76 6f 69 64 20 73 62 73 5f 68 61 73 68 5f c void sbs_hash_
20d0: 72 65 73 65 74 28 53 62 73 48 61 73 68 54 61 62 reset(SbsHashTab
20e0: 20 2a 70 48 61 73 68 29 7b 0a 20 20 69 6e 74 20 *pHash){. int
20f0: 69 3b 0a 20 20 53 62 73 48 61 73 68 45 6e 74 72 i;. SbsHashEntr
2100: 79 20 2a 70 2c 20 2a 70 4e 65 78 74 3b 0a 20 20 y *p, *pNext;.
2110: 66 6f 72 28 69 3d 30 3b 20 69 3c 53 42 53 43 4f for(i=0; i<SBSCO
2120: 4e 46 49 47 5f 4e 48 41 53 48 3b 20 69 2b 2b 29 NFIG_NHASH; i++)
2130: 7b 0a 20 20 20 20 66 6f 72 28 70 3d 70 48 61 73 {. for(p=pHas
2140: 68 2d 3e 61 48 61 73 68 5b 69 5d 3b 20 70 3b 20 h->aHash[i]; p;
2150: 70 3d 70 4e 65 78 74 29 7b 0a 20 20 20 20 20 20 p=pNext){.
2160: 70 4e 65 78 74 20 3d 20 70 2d 3e 70 4e 65 78 74 pNext = p->pNext
2170: 3b 0a 20 20 20 20 20 20 73 62 73 5f 76 61 6c 75 ;. sbs_valu
2180: 65 5f 72 65 73 65 74 28 26 70 2d 3e 76 61 6c 29 e_reset(&p->val)
2190: 3b 0a 20 20 20 20 20 20 66 72 65 65 28 70 29 3b ;. free(p);
21a0: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 6d 65 6d . }. }. mem
21b0: 73 65 74 28 70 48 61 73 68 2c 20 30 2c 20 73 69 set(pHash, 0, si
21c0: 7a 65 6f 66 28 2a 70 48 61 73 68 29 29 3b 0a 7d zeof(*pHash));.}
21d0: 0a 0a 2f 2a 0a 2a 2a 20 50 75 73 68 20 61 20 76 ../*.** Push a v
21e0: 61 6c 75 65 20 6f 6e 74 6f 20 74 68 65 20 73 74 alue onto the st
21f0: 61 63 6b 20 6f 66 20 61 6e 20 69 6e 74 65 72 70 ack of an interp
2200: 72 65 74 65 72 0a 2a 2f 0a 73 74 61 74 69 63 20 reter.*/.static
2210: 69 6e 74 20 73 62 73 5f 70 75 73 68 28 53 75 62 int sbs_push(Sub
2220: 73 63 72 69 70 74 20 2a 70 2c 20 53 62 53 56 61 script *p, SbSVa
2230: 6c 75 65 20 2a 70 56 61 6c 29 7b 0a 20 20 69 66 lue *pVal){. if
2240: 28 20 70 2d 3e 6e 53 74 61 63 6b 3e 3d 53 42 53 ( p->nStack>=SBS
2250: 43 4f 4e 46 49 47 5f 4e 53 54 41 43 4b 20 29 7b CONFIG_NSTACK ){
2260: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 . sqlite3_snp
2270: 72 69 6e 74 66 28 53 42 53 43 4f 4e 46 49 47 5f rintf(SBSCONFIG_
2280: 45 52 52 53 49 5a 45 2c 20 70 2d 3e 7a 45 72 72 ERRSIZE, p->zErr
2290: 4d 73 67 2c 20 22 73 74 61 63 6b 20 6f 76 65 72 Msg, "stack over
22a0: 66 6c 6f 77 22 29 3b 0a 20 20 20 20 72 65 74 75 flow");. retu
22b0: 72 6e 20 53 42 53 5f 45 52 52 4f 52 3b 0a 20 20 rn SBS_ERROR;.
22c0: 7d 0a 20 20 70 2d 3e 61 53 74 61 63 6b 5b 70 2d }. p->aStack[p-
22d0: 3e 6e 53 74 61 63 6b 2b 2b 5d 20 3d 20 2a 70 56 >nStack++] = *pV
22e0: 61 6c 3b 0a 20 20 72 65 74 75 72 6e 20 53 42 53 al;. return SBS
22f0: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 72 _OK;.}../*.** Cr
2300: 65 61 74 65 20 61 20 6e 65 77 20 73 75 62 73 63 eate a new subsc
2310: 72 69 70 74 20 69 6e 74 65 72 70 72 65 74 65 72 ript interpreter
2320: 2e 20 20 52 65 74 75 72 6e 20 61 20 70 6f 69 6e . Return a poin
2330: 74 65 72 20 74 6f 20 74 68 65 0a 2a 2a 20 6e 65 ter to the.** ne
2340: 77 20 69 6e 74 65 72 70 72 65 74 65 72 2c 20 6f w interpreter, o
2350: 72 20 72 65 74 75 72 6e 20 4e 55 4c 4c 20 69 66 r return NULL if
2360: 20 6d 61 6c 6c 6f 63 20 66 61 69 6c 73 2e 0a 2a malloc fails..*
2370: 2f 0a 73 74 72 75 63 74 20 53 75 62 73 63 72 69 /.struct Subscri
2380: 70 74 20 2a 53 62 53 5f 43 72 65 61 74 65 28 76 pt *SbS_Create(v
2390: 6f 69 64 29 7b 0a 20 20 53 75 62 73 63 72 69 70 oid){. Subscrip
23a0: 74 20 2a 70 3b 0a 20 20 70 20 3d 20 6d 61 6c 6c t *p;. p = mall
23b0: 6f 63 28 20 73 69 7a 65 6f 66 28 2a 70 29 20 29 oc( sizeof(*p) )
23c0: 3b 0a 20 20 69 66 28 20 70 20 29 7b 0a 20 20 20 ;. if( p ){.
23d0: 20 6d 65 6d 73 65 74 28 70 2c 20 30 2c 20 73 69 memset(p, 0, si
23e0: 7a 65 6f 66 28 2a 70 29 29 3b 0a 20 20 7d 0a 20 zeof(*p));. }.
23f0: 20 72 65 74 75 72 6e 20 70 3b 0a 7d 0a 0a 2f 2a return p;.}../*
2400: 0a 2a 2a 20 44 65 73 74 72 6f 79 20 61 6e 20 73 .** Destroy an s
2410: 75 62 73 63 72 69 70 74 20 69 6e 74 65 72 70 72 ubscript interpr
2420: 65 74 65 72 0a 2a 2f 0a 76 6f 69 64 20 53 62 53 eter.*/.void SbS
2430: 5f 44 65 73 74 72 6f 79 28 73 74 72 75 63 74 20 _Destroy(struct
2440: 53 75 62 73 63 72 69 70 74 20 2a 70 29 7b 0a 20 Subscript *p){.
2450: 20 69 6e 74 20 69 3b 0a 20 20 73 62 73 5f 68 61 int i;. sbs_ha
2460: 73 68 5f 72 65 73 65 74 28 26 70 2d 3e 73 79 6d sh_reset(&p->sym
2470: 54 61 62 29 3b 0a 20 20 66 6f 72 28 69 3d 30 3b Tab);. for(i=0;
2480: 20 69 3c 70 2d 3e 6e 53 74 61 63 6b 3b 20 69 2b i<p->nStack; i+
2490: 2b 29 7b 0a 20 20 20 20 73 62 73 5f 76 61 6c 75 +){. sbs_valu
24a0: 65 5f 72 65 73 65 74 28 26 70 2d 3e 61 53 74 61 e_reset(&p->aSta
24b0: 63 6b 5b 69 5d 29 3b 0a 20 20 7d 0a 20 20 66 72 ck[i]);. }. fr
24c0: 65 65 28 70 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 ee(p);.}../*.**
24d0: 53 65 74 20 74 68 65 20 65 72 72 6f 72 20 6d 65 Set the error me
24e0: 73 73 61 67 65 20 66 6f 72 20 61 6e 20 69 6e 74 ssage for an int
24f0: 65 72 70 72 65 74 65 72 2e 20 20 56 65 72 62 20 erpreter. Verb
2500: 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 0a implementations.
2510: 2a 2a 20 75 73 65 20 74 68 69 73 20 72 6f 75 74 ** use this rout
2520: 69 6e 65 20 77 68 65 6e 20 74 68 65 79 20 65 6e ine when they en
2530: 63 6f 75 6e 74 65 72 20 61 6e 20 65 72 72 6f 72 counter an error
2540: 2e 0a 2a 2f 0a 76 6f 69 64 20 53 62 53 5f 53 65 ..*/.void SbS_Se
2550: 74 45 72 72 6f 72 4d 65 73 73 61 67 65 28 73 74 tErrorMessage(st
2560: 72 75 63 74 20 53 75 62 73 63 72 69 70 74 20 2a ruct Subscript *
2570: 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a p, const char *z
2580: 45 72 72 29 7b 0a 20 20 69 6e 74 20 6e 45 72 72 Err){. int nErr
2590: 20 3d 20 73 74 72 6c 65 6e 28 7a 45 72 72 29 3b = strlen(zErr);
25a0: 0a 20 20 69 66 28 20 6e 45 72 72 3e 73 69 7a 65 . if( nErr>size
25b0: 6f 66 28 70 2d 3e 7a 45 72 72 4d 73 67 29 2d 31 of(p->zErrMsg)-1
25c0: 20 29 7b 0a 20 20 20 20 6e 45 72 72 20 3d 20 73 ){. nErr = s
25d0: 69 7a 65 6f 66 28 70 2d 3e 7a 45 72 72 4d 73 67 izeof(p->zErrMsg
25e0: 29 2d 31 3b 0a 20 20 7d 0a 20 20 6d 65 6d 63 70 )-1;. }. memcp
25f0: 79 28 70 2d 3e 7a 45 72 72 4d 73 67 2c 20 7a 45 y(p->zErrMsg, zE
2600: 72 72 2c 20 6e 45 72 72 29 3b 0a 20 20 70 2d 3e rr, nErr);. p->
2610: 7a 45 72 72 4d 73 67 5b 6e 45 72 72 5d 20 3d 20 zErrMsg[nErr] =
2620: 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 0;.}../*.** Retu
2630: 72 6e 20 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 rn a pointer to
2640: 74 68 65 20 63 75 72 72 65 6e 74 20 65 72 72 6f the current erro
2650: 72 20 6d 65 73 73 61 67 65 20 66 6f 72 20 74 68 r message for th
2660: 65 0a 2a 2a 20 69 6e 74 65 72 70 72 65 74 65 72 e.** interpreter
2670: 2e 0a 2a 2f 0a 63 6f 6e 73 74 20 63 68 61 72 20 ..*/.const char
2680: 2a 53 62 53 5f 47 65 74 45 72 72 6f 72 4d 65 73 *SbS_GetErrorMes
2690: 73 61 67 65 28 73 74 72 75 63 74 20 53 75 62 73 sage(struct Subs
26a0: 63 72 69 70 74 20 2a 70 29 7b 0a 20 20 72 65 74 cript *p){. ret
26b0: 75 72 6e 20 70 2d 3e 7a 45 72 72 4d 73 67 3b 0a urn p->zErrMsg;.
26c0: 7d 0a 0a 2f 2a 0a 2a 2a 20 41 64 64 20 61 20 6e }../*.** Add a n
26d0: 65 77 20 76 65 72 62 20 74 68 65 20 67 69 76 65 ew verb the give
26e0: 6e 20 69 6e 74 65 72 70 72 65 74 65 72 0a 2a 2f n interpreter.*/
26f0: 0a 69 6e 74 20 53 62 53 5f 41 64 64 56 65 72 62 .int SbS_AddVerb
2700: 28 0a 20 20 73 74 72 75 63 74 20 53 75 62 73 63 (. struct Subsc
2710: 72 69 70 74 20 2a 70 2c 0a 20 20 63 6f 6e 73 74 ript *p,. const
2720: 20 63 68 61 72 20 2a 7a 56 65 72 62 2c 0a 20 20 char *zVerb,.
2730: 69 6e 74 20 28 2a 78 56 65 72 62 29 28 73 74 72 int (*xVerb)(str
2740: 75 63 74 20 53 75 62 73 63 72 69 70 74 2a 2c 76 uct Subscript*,v
2750: 6f 69 64 2a 29 2c 0a 20 20 76 6f 69 64 20 2a 70 oid*),. void *p
2760: 41 72 67 0a 29 7b 0a 20 20 53 62 53 56 61 6c 75 Arg.){. SbSValu
2770: 65 20 76 3b 0a 20 20 76 2e 66 6c 61 67 73 20 3d e v;. v.flags =
2780: 20 53 42 53 56 41 4c 5f 56 45 52 42 3b 0a 20 20 SBSVAL_VERB;.
2790: 76 2e 75 2e 76 65 72 62 2e 78 56 65 72 62 20 3d v.u.verb.xVerb =
27a0: 20 78 56 65 72 62 3b 0a 20 20 76 2e 75 2e 76 65 xVerb;. v.u.ve
27b0: 72 62 2e 70 41 72 67 20 3d 20 70 41 72 67 3b 0a rb.pArg = pArg;.
27c0: 20 20 72 65 74 75 72 6e 20 73 62 73 5f 73 74 6f return sbs_sto
27d0: 72 65 28 26 70 2d 3e 73 79 6d 54 61 62 2c 20 7a re(&p->symTab, z
27e0: 56 65 72 62 2c 20 2d 31 2c 20 26 76 29 3b 0a 7d Verb, -1, &v);.}
27f0: 0a 0a 2f 2a 0a 2a 2a 20 50 75 73 68 20 61 20 73 ../*.** Push a s
2800: 74 72 69 6e 67 20 76 61 6c 75 65 20 6f 6e 74 6f tring value onto
2810: 20 74 68 65 20 73 74 61 63 6b 2e 0a 2a 2a 0a 2a the stack..**.*
2820: 2a 20 49 66 20 74 68 65 20 34 74 68 20 70 61 72 * If the 4th par
2830: 61 6d 65 74 65 72 20 69 73 20 30 2c 20 74 68 65 ameter is 0, the
2840: 6e 20 74 68 65 20 73 74 72 69 6e 67 20 69 73 20 n the string is
2850: 73 74 61 74 69 63 2e 0a 2a 2a 20 49 66 20 74 68 static..** If th
2860: 65 20 34 74 68 20 70 61 72 61 6d 65 74 65 72 20 e 4th parameter
2870: 69 73 20 6e 6f 6e 2d 7a 65 72 6f 20 74 68 65 6e is non-zero then
2880: 20 74 68 65 20 73 74 72 69 6e 67 20 77 61 73 20 the string was
2890: 6f 62 74 61 69 6e 65 64 0a 2a 2a 20 66 72 6f 6d obtained.** from
28a0: 20 6d 61 6c 6c 6f 63 20 61 6e 64 20 53 75 62 73 malloc and Subs
28b0: 63 72 69 70 74 20 77 69 6c 6c 20 74 61 6b 65 20 cript will take
28c0: 72 65 73 70 6f 6e 73 69 62 69 6c 69 74 79 20 66 responsibility f
28d0: 6f 72 20 66 72 65 65 69 6e 67 0a 2a 2a 20 69 74 or freeing.** it
28e0: 2e 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 30 ..**.** Return 0
28f0: 20 6f 6e 20 73 75 63 63 65 73 73 20 61 6e 64 20 on success and
2900: 6e 6f 6e 2d 7a 65 72 6f 20 69 66 20 74 68 65 72 non-zero if ther
2910: 65 20 69 73 20 61 6e 20 65 72 72 6f 72 2e 0a 2a e is an error..*
2920: 2f 0a 69 6e 74 20 53 62 53 5f 50 75 73 68 28 0a /.int SbS_Push(.
2930: 20 20 73 74 72 75 63 74 20 53 75 62 73 63 72 69 struct Subscri
2940: 70 74 20 2a 70 2c 20 20 2f 2a 20 50 75 73 68 20 pt *p, /* Push
2950: 6f 6e 74 6f 20 74 68 69 73 20 69 6e 74 65 72 70 onto this interp
2960: 72 65 74 65 72 20 2a 2f 0a 20 20 63 68 61 72 20 reter */. char
2970: 2a 7a 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 *z,
2980: 20 2f 2a 20 53 74 72 69 6e 67 20 76 61 6c 75 65 /* String value
2990: 20 74 6f 20 70 75 73 68 20 2a 2f 0a 20 20 69 6e to push */. in
29a0: 74 20 6e 2c 20 20 20 20 20 20 20 20 20 20 20 20 t n,
29b0: 20 20 20 20 2f 2a 20 4c 65 6e 67 74 68 20 6f 66 /* Length of
29c0: 20 74 68 65 20 73 74 72 69 6e 67 2c 20 6f 72 20 the string, or
29d0: 2d 31 20 2a 2f 0a 20 20 69 6e 74 20 64 79 6e 20 -1 */. int dyn
29e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
29f0: 20 49 66 20 74 72 75 65 2c 20 7a 20 77 61 73 20 If true, z was
2a00: 6f 62 74 61 69 6e 65 64 20 66 72 6f 6d 20 6d 61 obtained from ma
2a10: 6c 6c 6f 63 20 2a 2f 0a 29 7b 0a 20 20 53 62 53 lloc */.){. SbS
2a20: 56 61 6c 75 65 20 76 3b 0a 20 20 76 2e 66 6c 61 Value v;. v.fla
2a30: 67 73 20 3d 20 53 42 53 56 41 4c 5f 53 54 52 3b gs = SBSVAL_STR;
2a40: 0a 20 20 69 66 28 20 64 79 6e 20 29 7b 0a 20 20 . if( dyn ){.
2a50: 20 20 76 2e 66 6c 61 67 73 20 7c 3d 20 53 42 53 v.flags |= SBS
2a60: 56 41 4c 5f 44 59 4e 3b 0a 20 20 7d 0a 20 20 69 VAL_DYN;. }. i
2a70: 66 28 20 6e 3c 30 20 29 20 6e 20 3d 20 73 74 72 f( n<0 ) n = str
2a80: 6c 65 6e 28 7a 29 3b 0a 20 20 76 2e 75 2e 73 74 len(z);. v.u.st
2a90: 72 2e 73 69 7a 65 20 3d 20 6e 3b 0a 20 20 76 2e r.size = n;. v.
2aa0: 75 2e 73 74 72 2e 7a 20 3d 20 7a 3b 0a 20 20 72 u.str.z = z;. r
2ab0: 65 74 75 72 6e 20 73 62 73 5f 70 75 73 68 28 70 eturn sbs_push(p
2ac0: 2c 20 26 76 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 , &v);.}../*.**
2ad0: 50 75 73 68 20 61 6e 20 69 6e 74 65 67 65 72 20 Push an integer
2ae0: 76 61 6c 75 65 20 6f 6e 74 6f 20 74 68 65 20 73 value onto the s
2af0: 74 61 63 6b 2e 0a 2a 2a 0a 2a 2a 20 54 68 69 73 tack..**.** This
2b00: 20 72 6f 75 74 69 6e 65 20 72 65 61 6c 6c 79 20 routine really
2b10: 6a 75 73 74 20 63 6f 6e 76 65 72 74 73 20 74 68 just converts th
2b20: 65 20 69 6e 74 65 67 65 72 20 69 6e 74 6f 20 61 e integer into a
2b30: 20 73 74 72 69 6e 67 0a 2a 2a 20 74 68 65 6e 20 string.** then
2b40: 63 61 6c 6c 73 20 53 62 53 5f 50 75 73 68 2e 0a calls SbS_Push..
2b50: 2a 2f 0a 69 6e 74 20 53 62 53 5f 50 75 73 68 49 */.int SbS_PushI
2b60: 6e 74 28 73 74 72 75 63 74 20 53 75 62 73 63 72 nt(struct Subscr
2b70: 69 70 74 20 2a 70 2c 20 69 6e 74 20 69 56 61 6c ipt *p, int iVal
2b80: 29 7b 0a 20 20 69 66 28 20 69 56 61 6c 3d 3d 30 ){. if( iVal==0
2b90: 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 53 ){. return S
2ba0: 62 53 5f 50 75 73 68 28 70 2c 20 22 30 22 2c 20 bS_Push(p, "0",
2bb0: 31 2c 20 30 29 3b 0a 20 20 7d 65 6c 73 65 20 69 1, 0);. }else i
2bc0: 66 28 20 69 56 61 6c 3d 3d 31 20 29 7b 0a 20 20 f( iVal==1 ){.
2bd0: 20 20 72 65 74 75 72 6e 20 53 62 53 5f 50 75 73 return SbS_Pus
2be0: 68 28 70 2c 20 22 31 22 2c 20 31 2c 20 30 29 3b h(p, "1", 1, 0);
2bf0: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 63 68 . }else{. ch
2c00: 61 72 20 2a 7a 3b 0a 20 20 20 20 69 6e 74 20 6e ar *z;. int n
2c10: 3b 0a 20 20 20 20 63 68 61 72 20 7a 56 61 6c 5b ;. char zVal[
2c20: 35 30 5d 3b 0a 20 20 20 20 73 70 72 69 6e 74 66 50];. sprintf
2c30: 28 7a 56 61 6c 2c 20 22 25 64 22 2c 20 69 56 61 (zVal, "%d", iVa
2c40: 6c 29 3b 0a 20 20 20 20 6e 20 3d 20 73 74 72 6c l);. n = strl
2c50: 65 6e 28 7a 56 61 6c 29 3b 0a 20 20 20 20 7a 20 en(zVal);. z
2c60: 3d 20 6d 61 6c 6c 6f 63 28 20 6e 2b 31 20 29 3b = malloc( n+1 );
2c70: 0a 20 20 20 20 69 66 28 20 7a 20 29 7b 0a 20 20 . if( z ){.
2c80: 20 20 20 20 73 74 72 63 70 79 28 7a 2c 20 7a 56 strcpy(z, zV
2c90: 61 6c 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 al);. retur
2ca0: 6e 20 53 62 53 5f 50 75 73 68 28 70 2c 20 7a 2c n SbS_Push(p, z,
2cb0: 20 6e 2c 20 31 29 3b 0a 20 20 20 20 7d 65 6c 73 n, 1);. }els
2cc0: 65 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 e{. return
2cd0: 53 42 53 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d SBS_ERROR;. }
2ce0: 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 6f . }.}../*.** Po
2cf0: 70 20 61 6e 64 20 64 65 73 74 72 6f 79 20 7a 65 p and destroy ze
2d00: 72 6f 20 6f 72 20 6d 6f 72 65 20 76 61 6c 75 65 ro or more value
2d10: 73 20 66 72 6f 6d 20 74 68 65 20 73 74 61 63 6b s from the stack
2d20: 2e 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 ..** Return the
2d30: 6e 75 6d 62 65 72 20 6f 66 20 76 61 6c 75 65 73 number of values
2d40: 20 72 65 6d 61 69 6e 69 6e 67 20 6f 6e 20 74 68 remaining on th
2d50: 65 20 73 74 61 63 6b 20 61 66 74 65 72 0a 2a 2a e stack after.**
2d60: 20 74 68 65 20 70 6f 70 73 20 6f 63 63 75 72 2e the pops occur.
2d70: 0a 2a 2f 0a 69 6e 74 20 53 62 53 5f 50 6f 70 28 .*/.int SbS_Pop(
2d80: 73 74 72 75 63 74 20 53 75 62 73 63 72 69 70 74 struct Subscript
2d90: 20 2a 70 2c 20 69 6e 74 20 4e 29 7b 0a 20 20 77 *p, int N){. w
2da0: 68 69 6c 65 28 20 4e 3e 30 20 26 26 20 70 2d 3e hile( N>0 && p->
2db0: 6e 53 74 61 63 6b 3e 30 20 29 7b 0a 20 20 20 20 nStack>0 ){.
2dc0: 70 2d 3e 6e 53 74 61 63 6b 2d 2d 3b 0a 20 20 20 p->nStack--;.
2dd0: 20 73 62 73 5f 76 61 6c 75 65 5f 72 65 73 65 74 sbs_value_reset
2de0: 28 26 70 2d 3e 61 53 74 61 63 6b 5b 70 2d 3e 6e (&p->aStack[p->n
2df0: 53 74 61 63 6b 5d 29 3b 0a 20 20 20 20 4e 2d 2d Stack]);. N--
2e00: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 70 ;. }. return p
2e10: 2d 3e 6e 53 74 61 63 6b 3b 0a 7d 0a 0a 2f 2a 0a ->nStack;.}../*.
2e20: 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 4e 2d ** Return the N-
2e30: 74 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 th element of th
2e40: 65 20 73 74 61 63 6b 2e 20 20 30 20 69 73 20 74 e stack. 0 is t
2e50: 68 65 20 74 6f 70 20 6f 66 20 74 68 65 20 73 74 he top of the st
2e60: 61 63 6b 2e 0a 2a 2a 20 31 20 69 73 20 74 68 65 ack..** 1 is the
2e70: 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 64 first element d
2e80: 6f 77 6e 2e 20 20 32 20 69 73 20 74 68 65 20 73 own. 2 is the s
2e90: 65 63 6f 6e 64 20 65 6c 65 6d 65 6e 74 2e 20 20 econd element.
2ea0: 41 6e 64 20 73 6f 20 66 6f 72 74 68 2e 0a 2a 2a And so forth..**
2eb0: 20 52 65 74 75 72 6e 20 4e 55 4c 4c 20 69 66 20 Return NULL if
2ec0: 74 68 65 72 65 20 69 73 20 6e 6f 20 4e 2d 74 68 there is no N-th
2ed0: 20 65 6c 65 6d 65 6e 74 2e 0a 2a 2a 0a 2a 2a 20 element..**.**
2ee0: 54 68 65 20 70 6f 69 6e 74 65 72 20 72 65 74 75 The pointer retu
2ef0: 72 6e 65 64 20 69 73 20 6f 6e 6c 79 20 76 61 6c rned is only val
2f00: 69 64 20 75 6e 74 69 6c 20 74 68 65 20 76 61 6c id until the val
2f10: 75 65 20 69 73 20 70 6f 70 70 65 64 0a 2a 2a 20 ue is popped.**
2f20: 66 72 6f 6d 20 74 68 65 20 73 74 61 63 6b 2e 0a from the stack..
2f30: 2a 2f 0a 63 6f 6e 73 74 20 63 68 61 72 20 2a 53 */.const char *S
2f40: 62 53 5f 53 74 61 63 6b 56 61 6c 75 65 28 73 74 bS_StackValue(st
2f50: 72 75 63 74 20 53 75 62 73 63 72 69 70 74 20 2a ruct Subscript *
2f60: 70 2c 20 69 6e 74 20 4e 2c 20 69 6e 74 20 2a 70 p, int N, int *p
2f70: 53 69 7a 65 29 7b 0a 20 20 53 62 53 56 61 6c 75 Size){. SbSValu
2f80: 65 20 2a 70 56 61 6c 3b 0a 20 20 69 66 28 20 4e e *pVal;. if( N
2f90: 3c 30 20 7c 7c 20 4e 3e 3d 70 2d 3e 6e 53 74 61 <0 || N>=p->nSta
2fa0: 63 6b 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e ck ){. return
2fb0: 20 30 3b 0a 20 20 7d 0a 20 20 70 56 61 6c 20 3d 0;. }. pVal =
2fc0: 20 26 70 2d 3e 61 53 74 61 63 6b 5b 70 2d 3e 6e &p->aStack[p->n
2fd0: 53 74 61 63 6b 2d 4e 2d 31 5d 3b 0a 20 20 69 66 Stack-N-1];. if
2fe0: 28 20 28 70 56 61 6c 2d 3e 66 6c 61 67 73 20 26 ( (pVal->flags &
2ff0: 20 53 42 53 56 41 4c 5f 53 54 52 29 3d 3d 30 20 SBSVAL_STR)==0
3000: 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 30 3b ){. return 0;
3010: 0a 20 20 7d 0a 20 20 2a 70 53 69 7a 65 20 3d 20 . }. *pSize =
3020: 70 56 61 6c 2d 3e 75 2e 73 74 72 2e 73 69 7a 65 pVal->u.str.size
3030: 3b 0a 20 20 72 65 74 75 72 6e 20 70 56 61 6c 2d ;. return pVal-
3040: 3e 75 2e 73 74 72 2e 7a 3b 0a 7d 0a 0a 2f 2a 0a >u.str.z;.}../*.
3050: 2a 2a 20 41 20 63 6f 6e 76 65 6e 69 65 6e 63 65 ** A convenience
3060: 20 72 6f 75 74 69 6e 65 20 66 6f 72 20 65 78 74 routine for ext
3070: 72 61 63 74 69 6e 67 20 61 6e 20 69 6e 74 65 67 racting an integ
3080: 65 72 20 76 61 6c 75 65 20 66 72 6f 6d 20 74 68 er value from th
3090: 65 0a 2a 2a 20 73 74 61 63 6b 2e 0a 2a 2f 0a 69 e.** stack..*/.i
30a0: 6e 74 20 53 62 53 5f 53 74 61 63 6b 56 61 6c 75 nt SbS_StackValu
30b0: 65 49 6e 74 28 73 74 72 75 63 74 20 53 75 62 73 eInt(struct Subs
30c0: 63 72 69 70 74 20 2a 70 2c 20 69 6e 74 20 4e 29 cript *p, int N)
30d0: 7b 0a 20 20 69 6e 74 20 6e 2c 20 76 3b 0a 20 20 {. int n, v;.
30e0: 69 6e 74 20 69 73 4e 65 67 20 3d 20 30 3b 0a 20 int isNeg = 0;.
30f0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 20 3d const char *z =
3100: 20 53 62 53 5f 53 74 61 63 6b 56 61 6c 75 65 28 SbS_StackValue(
3110: 70 2c 20 4e 2c 20 26 6e 29 3b 0a 20 20 76 20 3d p, N, &n);. v =
3120: 20 30 3b 0a 20 20 69 66 28 20 6e 3d 3d 30 20 29 0;. if( n==0 )
3130: 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 69 66 28 return 0;. if(
3140: 20 7a 5b 30 5d 3d 3d 27 2d 27 20 29 7b 0a 20 20 z[0]=='-' ){.
3150: 20 20 69 73 4e 65 67 20 3d 20 31 3b 0a 20 20 20 isNeg = 1;.
3160: 20 7a 2b 2b 3b 0a 20 20 20 20 6e 2d 2d 3b 0a 20 z++;. n--;.
3170: 20 7d 65 6c 73 65 20 69 66 28 20 7a 5b 30 5d 3d }else if( z[0]=
3180: 3d 27 2b 27 20 29 7b 0a 20 20 20 20 7a 2b 2b 3b ='+' ){. z++;
3190: 0a 20 20 20 20 6e 2d 2d 3b 0a 20 20 7d 0a 20 20 . n--;. }.
31a0: 77 68 69 6c 65 28 20 6e 3e 30 20 26 26 20 69 73 while( n>0 && is
31b0: 64 69 67 69 74 28 7a 5b 30 5d 29 20 29 7b 0a 20 digit(z[0]) ){.
31c0: 20 20 20 76 20 3d 20 76 2a 31 30 20 2b 20 7a 5b v = v*10 + z[
31d0: 30 5d 20 2d 20 27 30 27 3b 0a 20 20 20 20 7a 2b 0] - '0';. z+
31e0: 2b 3b 0a 20 20 20 20 6e 2d 2d 3b 0a 20 20 7d 0a +;. n--;. }.
31f0: 20 20 69 66 28 20 69 73 4e 65 67 20 29 7b 0a 20 if( isNeg ){.
3200: 20 20 20 76 20 3d 20 2d 76 3b 0a 20 20 7d 0a 20 v = -v;. }.
3210: 20 72 65 74 75 72 6e 20 76 3b 0a 7d 0a 0a 2f 2a return v;.}../*
3220: 0a 2a 2a 20 52 65 74 72 69 65 76 65 20 74 68 65 .** Retrieve the
3230: 20 76 61 6c 75 65 20 6f 66 20 61 20 76 61 72 69 value of a vari
3240: 61 62 6c 65 20 66 72 6f 6d 20 74 68 65 20 69 6e able from the in
3250: 74 65 72 70 72 65 74 65 72 2e 20 20 52 65 74 75 terpreter. Retu
3260: 72 6e 0a 2a 2a 20 4e 55 4c 4c 20 69 66 20 6e 6f rn.** NULL if no
3270: 20 73 75 63 68 20 76 61 72 69 61 62 6c 65 20 69 such variable i
3280: 73 20 64 65 66 69 6e 65 64 2e 20 20 0a 2a 2a 0a s defined. .**.
3290: 2a 2a 20 54 68 65 20 72 65 74 75 72 6e 65 64 20 ** The returned
32a0: 73 74 72 69 6e 67 20 69 73 20 6e 6f 74 20 6e 65 string is not ne
32b0: 63 65 73 73 61 72 69 6c 79 20 28 70 72 6f 62 61 cessarily (proba
32c0: 62 6c 79 20 6e 6f 74 29 20 7a 65 72 6f 2d 74 65 bly not) zero-te
32d0: 72 6d 69 6e 61 74 65 64 2e 0a 2a 2a 20 54 68 65 rminated..** The
32e0: 20 73 74 72 69 6e 67 20 6d 61 79 20 62 65 20 64 string may be d
32f0: 65 61 6c 6c 6f 63 61 74 65 64 20 74 68 65 20 6e eallocated the n
3300: 65 78 74 20 74 69 6d 65 20 61 6e 79 74 68 69 6e ext time anythin
3310: 67 20 69 73 20 64 6f 6e 65 20 74 6f 0a 2a 2a 20 g is done to.**
3320: 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 2e the interpreter.
3330: 20 20 4d 61 6b 65 20 61 20 63 6f 70 79 20 69 66 Make a copy if
3340: 20 79 6f 75 20 6e 65 65 64 20 69 74 20 74 6f 20 you need it to
3350: 70 65 72 73 69 73 74 2e 0a 2a 2f 0a 63 6f 6e 73 persist..*/.cons
3360: 74 20 63 68 61 72 20 2a 53 62 53 5f 46 65 74 63 t char *SbS_Fetc
3370: 68 28 0a 20 20 73 74 72 75 63 74 20 53 75 62 73 h(. struct Subs
3380: 63 72 69 70 74 20 2a 70 2c 20 20 20 2f 2a 20 54 cript *p, /* T
3390: 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 20 77 he interpreter w
33a0: 65 20 61 72 65 20 69 6e 74 65 72 72 6f 67 61 74 e are interrogat
33b0: 69 6e 67 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 ing */. const c
33c0: 68 61 72 20 2a 7a 4b 65 79 2c 20 20 20 20 20 20 har *zKey,
33d0: 20 20 2f 2a 20 4e 61 6d 65 20 6f 66 20 74 68 65 /* Name of the
33e0: 20 76 61 72 69 61 62 6c 65 2e 20 20 43 61 73 65 variable. Case
33f0: 20 73 65 6e 73 69 74 69 76 65 20 2a 2f 0a 20 20 sensitive */.
3400: 69 6e 74 20 2a 70 4c 65 6e 67 74 68 20 20 20 20 int *pLength
3410: 20 20 20 20 20 20 20 20 20 2f 2a 20 57 72 69 74 /* Writ
3420: 65 20 74 68 65 20 6c 65 6e 67 74 68 20 68 65 72 e the length her
3430: 65 20 2a 2f 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 e */.){. const
3440: 53 62 53 56 61 6c 75 65 20 2a 70 56 61 6c 3b 0a SbSValue *pVal;.
3450: 0a 20 20 70 56 61 6c 20 3d 20 73 62 73 5f 66 65 . pVal = sbs_fe
3460: 74 63 68 28 26 70 2d 3e 73 79 6d 54 61 62 2c 20 tch(&p->symTab,
3470: 7a 4b 65 79 2c 20 2d 31 29 3b 0a 20 20 69 66 28 zKey, -1);. if(
3480: 20 70 56 61 6c 3d 3d 30 20 7c 7c 20 28 70 56 61 pVal==0 || (pVa
3490: 6c 2d 3e 66 6c 61 67 73 20 26 20 53 42 53 56 41 l->flags & SBSVA
34a0: 4c 5f 53 54 52 29 3d 3d 30 20 29 7b 0a 20 20 20 L_STR)==0 ){.
34b0: 20 2a 70 4c 65 6e 67 74 68 20 3d 20 30 3b 0a 20 *pLength = 0;.
34c0: 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 7d return 0;. }
34d0: 65 6c 73 65 7b 0a 20 20 20 20 2a 70 4c 65 6e 67 else{. *pLeng
34e0: 74 68 20 3d 20 70 56 61 6c 2d 3e 75 2e 73 74 72 th = pVal->u.str
34f0: 2e 73 69 7a 65 3b 0a 20 20 20 20 72 65 74 75 72 .size;. retur
3500: 6e 20 70 56 61 6c 2d 3e 75 2e 73 74 72 2e 7a 3b n pVal->u.str.z;
3510: 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 47 65 . }.}../*.** Ge
3520: 6e 65 72 61 74 65 20 61 6e 20 65 72 72 6f 72 20 nerate an error
3530: 61 6e 64 20 72 65 74 75 72 6e 20 6e 6f 6e 2d 7a and return non-z
3540: 65 72 6f 20 69 66 20 74 68 65 20 73 74 61 63 6b ero if the stack
3550: 20 68 61 73 0a 2a 2a 20 66 65 77 65 72 20 74 68 has.** fewer th
3560: 61 6e 20 4e 20 65 6c 65 6d 65 6e 74 73 2e 20 20 an N elements.
3570: 54 68 69 73 20 69 73 20 75 74 69 6c 69 74 79 20 This is utility
3580: 72 6f 75 74 69 6e 65 20 75 73 65 64 20 69 6e 0a routine used in.
3590: 2a 2a 20 74 68 65 20 69 6d 70 6c 65 6d 65 6e 74 ** the implement
35a0: 61 74 69 6f 6e 20 6f 66 20 76 65 72 62 73 2e 0a ation of verbs..
35b0: 2a 2f 0a 69 6e 74 20 53 62 53 5f 52 65 71 75 69 */.int SbS_Requi
35c0: 72 65 53 74 61 63 6b 28 73 74 72 75 63 74 20 53 reStack(struct S
35d0: 75 62 73 63 72 69 70 74 20 2a 70 2c 20 69 6e 74 ubscript *p, int
35e0: 20 4e 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a N, const char *
35f0: 7a 43 6d 64 29 7b 0a 20 20 69 66 28 20 70 2d 3e zCmd){. if( p->
3600: 6e 53 74 61 63 6b 3e 3d 4e 20 29 20 72 65 74 75 nStack>=N ) retu
3610: 72 6e 20 30 3b 0a 20 20 73 71 6c 69 74 65 33 5f rn 0;. sqlite3_
3620: 73 6e 70 72 69 6e 74 66 28 73 69 7a 65 6f 66 28 snprintf(sizeof(
3630: 70 2d 3e 7a 45 72 72 4d 73 67 29 2c 20 70 2d 3e p->zErrMsg), p->
3640: 7a 45 72 72 4d 73 67 2c 0a 20 20 20 20 20 22 5c zErrMsg,. "\
3650: 22 25 73 5c 22 20 72 65 71 75 69 72 65 73 20 61 "%s\" requires a
3660: 74 20 6c 65 61 73 74 20 25 64 20 73 74 61 63 6b t least %d stack
3670: 20 65 6c 65 6d 65 6e 74 73 20 2d 20 6f 6e 6c 79 elements - only
3680: 20 66 6f 75 6e 64 20 25 64 22 2c 0a 20 20 20 20 found %d",.
3690: 20 7a 43 6d 64 2c 20 4e 2c 20 70 2d 3e 6e 53 74 zCmd, N, p->nSt
36a0: 61 63 6b 29 3b 0a 20 20 72 65 74 75 72 6e 20 31 ack);. return 1
36b0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 75 62 73 63 ;.}../*.** Subsc
36c0: 72 69 70 74 20 63 6f 6d 6d 61 6e 64 3a 20 20 20 ript command:
36d0: 20 20 20 20 53 54 52 49 4e 47 20 4e 41 4d 45 20 STRING NAME
36e0: 73 65 74 0a 2a 2a 0a 2a 2a 20 57 72 69 74 65 20 set.**.** Write
36f0: 74 68 65 20 76 61 6c 75 65 20 6f 66 20 53 54 52 the value of STR
3700: 49 4e 47 20 69 6e 74 6f 20 76 61 72 69 61 62 6c ING into variabl
3710: 65 20 63 61 6c 6c 65 64 20 4e 41 4d 45 2e 0a 2a e called NAME..*
3720: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 65 74 /.static int set
3730: 43 6d 64 28 53 75 62 73 63 72 69 70 74 20 2a 70 Cmd(Subscript *p
3740: 2c 20 76 6f 69 64 20 2a 70 4e 6f 74 55 73 65 64 , void *pNotUsed
3750: 29 7b 0a 20 20 53 62 53 56 61 6c 75 65 20 2a 70 ){. SbSValue *p
3760: 54 6f 73 3b 0a 20 20 53 62 53 56 61 6c 75 65 20 Tos;. SbSValue
3770: 2a 70 4e 6f 73 3b 0a 20 20 69 66 28 20 53 62 53 *pNos;. if( SbS
3780: 5f 52 65 71 75 69 72 65 53 74 61 63 6b 28 70 2c _RequireStack(p,
3790: 20 32 2c 20 22 73 65 74 22 29 20 29 20 72 65 74 2, "set") ) ret
37a0: 75 72 6e 20 53 42 53 5f 45 52 52 4f 52 3b 0a 20 urn SBS_ERROR;.
37b0: 20 70 54 6f 73 20 3d 20 26 70 2d 3e 61 53 74 61 pTos = &p->aSta
37c0: 63 6b 5b 2d 2d 70 2d 3e 6e 53 74 61 63 6b 5d 3b ck[--p->nStack];
37d0: 0a 20 20 70 4e 6f 73 20 3d 20 26 70 2d 3e 61 53 . pNos = &p->aS
37e0: 74 61 63 6b 5b 2d 2d 70 2d 3e 6e 53 74 61 63 6b tack[--p->nStack
37f0: 5d 3b 0a 20 20 73 62 73 5f 73 74 6f 72 65 28 26 ];. sbs_store(&
3800: 70 2d 3e 73 79 6d 54 61 62 2c 20 70 54 6f 73 2d p->symTab, pTos-
3810: 3e 75 2e 73 74 72 2e 7a 2c 20 70 54 6f 73 2d 3e >u.str.z, pTos->
3820: 75 2e 73 74 72 2e 73 69 7a 65 2c 20 70 4e 6f 73 u.str.size, pNos
3830: 29 3b 0a 20 20 73 62 73 5f 76 61 6c 75 65 5f 72 );. sbs_value_r
3840: 65 73 65 74 28 70 54 6f 73 29 3b 0a 20 20 72 65 eset(pTos);. re
3850: 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a turn 0;.}../*.**
3860: 20 53 75 62 73 63 72 69 70 74 20 63 6f 6d 6d 61 Subscript comma
3870: 6e 64 3a 20 20 20 20 20 20 49 4e 54 45 47 45 52 nd: INTEGER
3880: 20 6e 6f 74 20 49 4e 54 45 47 45 52 0a 2a 2f 0a not INTEGER.*/.
3890: 73 74 61 74 69 63 20 69 6e 74 20 6e 6f 74 43 6d static int notCm
38a0: 64 28 73 74 72 75 63 74 20 53 75 62 73 63 72 69 d(struct Subscri
38b0: 70 74 20 2a 70 2c 20 76 6f 69 64 20 2a 70 4e 6f pt *p, void *pNo
38c0: 74 55 73 65 64 29 7b 0a 20 20 69 6e 74 20 6e 3b tUsed){. int n;
38d0: 0a 20 20 69 66 28 20 53 62 53 5f 52 65 71 75 69 . if( SbS_Requi
38e0: 72 65 53 74 61 63 6b 28 70 2c 20 31 2c 20 22 6e reStack(p, 1, "n
38f0: 6f 74 22 29 20 29 20 72 65 74 75 72 6e 20 31 3b ot") ) return 1;
3900: 0a 20 20 6e 20 3d 20 53 62 53 5f 53 74 61 63 6b . n = SbS_Stack
3910: 56 61 6c 75 65 49 6e 74 28 70 2c 20 30 29 3b 0a ValueInt(p, 0);.
3920: 20 20 53 62 53 5f 50 6f 70 28 70 2c 20 31 29 3b SbS_Pop(p, 1);
3930: 0a 20 20 53 62 53 5f 50 75 73 68 49 6e 74 28 70 . SbS_PushInt(p
3940: 2c 20 21 6e 29 3b 0a 20 20 72 65 74 75 72 6e 20 , !n);. return
3950: 30 3b 0a 7d 0a 0a 23 64 65 66 69 6e 65 20 53 42 0;.}..#define SB
3960: 53 4f 50 5f 41 44 44 20 20 20 31 0a 23 64 65 66 SOP_ADD 1.#def
3970: 69 6e 65 20 53 42 53 4f 50 5f 53 55 42 20 20 20 ine SBSOP_SUB
3980: 32 0a 23 64 65 66 69 6e 65 20 53 42 53 4f 50 5f 2.#define SBSOP_
3990: 4d 55 4c 20 20 20 33 0a 23 64 65 66 69 6e 65 20 MUL 3.#define
39a0: 53 42 53 4f 50 5f 44 49 56 20 20 20 34 0a 23 64 SBSOP_DIV 4.#d
39b0: 65 66 69 6e 65 20 53 42 53 4f 50 5f 41 4e 44 20 efine SBSOP_AND
39c0: 20 20 35 0a 23 64 65 66 69 6e 65 20 53 42 53 4f 5.#define SBSO
39d0: 50 5f 4f 52 20 20 20 20 36 0a 23 64 65 66 69 6e P_OR 6.#defin
39e0: 65 20 53 42 53 4f 50 5f 4d 49 4e 20 20 20 37 0a e SBSOP_MIN 7.
39f0: 23 64 65 66 69 6e 65 20 53 42 53 4f 50 5f 4d 41 #define SBSOP_MA
3a00: 58 20 20 20 38 0a 0a 2f 2a 0a 2a 2a 20 53 75 62 X 8../*.** Sub
3a10: 73 63 72 69 70 74 20 63 6f 6d 6d 61 6e 64 3a 20 script command:
3a20: 20 20 20 20 20 49 4e 54 45 47 45 52 20 49 4e 54 INTEGER INT
3a30: 45 47 45 52 20 3c 62 69 6e 61 72 79 2d 6f 70 3e EGER <binary-op>
3a40: 20 49 4e 54 45 47 45 52 0a 2a 2f 0a 73 74 61 74 INTEGER.*/.stat
3a50: 69 63 20 69 6e 74 20 62 6f 70 43 6d 64 28 73 74 ic int bopCmd(st
3a60: 72 75 63 74 20 53 75 62 73 63 72 69 70 74 20 2a ruct Subscript *
3a70: 70 2c 20 76 6f 69 64 20 2a 70 4f 70 29 7b 0a 20 p, void *pOp){.
3a80: 20 69 6e 74 20 61 2c 20 62 2c 20 63 3b 0a 20 20 int a, b, c;.
3a90: 69 66 28 20 53 62 53 5f 52 65 71 75 69 72 65 53 if( SbS_RequireS
3aa0: 74 61 63 6b 28 70 2c 20 32 2c 20 22 42 49 4e 41 tack(p, 2, "BINA
3ab0: 52 59 2d 4f 50 22 29 20 29 20 72 65 74 75 72 6e RY-OP") ) return
3ac0: 20 31 3b 0a 20 20 61 20 3d 20 53 62 53 5f 53 74 1;. a = SbS_St
3ad0: 61 63 6b 56 61 6c 75 65 49 6e 74 28 70 2c 20 30 ackValueInt(p, 0
3ae0: 29 3b 0a 20 20 62 20 3d 20 53 62 53 5f 53 74 61 );. b = SbS_Sta
3af0: 63 6b 56 61 6c 75 65 49 6e 74 28 70 2c 20 31 29 ckValueInt(p, 1)
3b00: 3b 0a 20 20 73 77 69 74 63 68 28 20 28 69 6e 74 ;. switch( (int
3b10: 29 70 4f 70 20 29 7b 0a 20 20 20 20 63 61 73 65 )pOp ){. case
3b20: 20 53 42 53 4f 50 5f 41 44 44 3a 20 20 63 20 3d SBSOP_ADD: c =
3b30: 20 61 2b 62 3b 20 20 20 20 20 20 20 20 20 20 20 a+b;
3b40: 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 break;. case
3b50: 20 53 42 53 4f 50 5f 53 55 42 3a 20 20 63 20 3d SBSOP_SUB: c =
3b60: 20 61 2d 62 3b 20 20 20 20 20 20 20 20 20 20 20 a-b;
3b70: 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 break;. case
3b80: 20 53 42 53 4f 50 5f 4d 55 4c 3a 20 20 63 20 3d SBSOP_MUL: c =
3b90: 20 61 2a 62 3b 20 20 20 20 20 20 20 20 20 20 20 a*b;
3ba0: 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 break;. case
3bb0: 20 53 42 53 4f 50 5f 44 49 56 3a 20 20 63 20 3d SBSOP_DIV: c =
3bc0: 20 62 21 3d 30 20 3f 20 61 2f 62 20 3a 20 30 3b b!=0 ? a/b : 0;
3bd0: 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 break;. case
3be0: 20 53 42 53 4f 50 5f 41 4e 44 3a 20 20 63 20 3d SBSOP_AND: c =
3bf0: 20 61 20 26 26 20 62 3b 20 20 20 20 20 20 20 20 a && b;
3c00: 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 break;. case
3c10: 20 53 42 53 4f 50 5f 4f 52 3a 20 20 20 63 20 3d SBSOP_OR: c =
3c20: 20 61 20 7c 7c 20 62 3b 20 20 20 20 20 20 20 20 a || b;
3c30: 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 break;. case
3c40: 20 53 42 53 4f 50 5f 4d 49 4e 3a 20 20 63 20 3d SBSOP_MIN: c =
3c50: 20 61 3c 62 20 3f 20 61 20 3a 20 62 3b 20 20 20 a<b ? a : b;
3c60: 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 break;. case
3c70: 20 53 42 53 4f 50 5f 4d 41 58 3a 20 20 63 20 3d SBSOP_MAX: c =
3c80: 20 61 3c 62 20 3f 20 62 20 3a 20 61 3b 20 20 20 a<b ? b : a;
3c90: 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 20 20 53 62 break;. }. Sb
3ca0: 53 5f 50 6f 70 28 70 2c 20 32 29 3b 0a 20 20 53 S_Pop(p, 2);. S
3cb0: 62 53 5f 50 75 73 68 49 6e 74 28 70 2c 20 63 29 bS_PushInt(p, c)
3cc0: 3b 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a ;. return 0;.}.
3cd0: 0a 2f 2a 0a 2a 2a 20 53 75 62 73 63 72 69 70 74 ./*.** Subscript
3ce0: 20 63 6f 6d 6d 61 6e 64 3a 20 20 20 20 20 53 54 command: ST
3cf0: 52 49 4e 47 20 68 61 73 63 61 70 20 49 4e 54 45 RING hascap INTE
3d00: 47 45 52 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e GER.**.** Return
3d10: 20 74 72 75 65 20 69 66 20 74 68 65 20 75 73 65 true if the use
3d20: 72 20 68 61 73 20 61 6c 6c 20 6f 66 20 74 68 65 r has all of the
3d30: 20 63 61 70 61 62 69 6c 69 74 69 65 73 20 6c 69 capabilities li
3d40: 73 74 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 sted..*/.static
3d50: 69 6e 74 20 68 61 73 63 61 70 43 6d 64 28 73 74 int hascapCmd(st
3d60: 72 75 63 74 20 53 75 62 73 63 72 69 70 74 20 2a ruct Subscript *
3d70: 70 2c 20 76 6f 69 64 20 2a 70 4e 6f 74 55 73 65 p, void *pNotUse
3d80: 64 29 7b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 d){. const char
3d90: 20 2a 7a 3b 0a 20 20 69 6e 74 20 69 2c 20 6e 2c *z;. int i, n,
3da0: 20 61 3b 0a 20 20 69 66 28 20 53 62 53 5f 52 65 a;. if( SbS_Re
3db0: 71 75 69 72 65 53 74 61 63 6b 28 70 2c 20 31 2c quireStack(p, 1,
3dc0: 20 22 68 61 73 63 61 70 22 29 20 29 20 72 65 74 "hascap") ) ret
3dd0: 75 72 6e 20 31 3b 0a 20 20 7a 20 3d 20 53 62 53 urn 1;. z = SbS
3de0: 5f 53 74 61 63 6b 56 61 6c 75 65 28 70 2c 20 30 _StackValue(p, 0
3df0: 2c 20 26 6e 29 3b 0a 20 20 61 20 3d 20 6c 6f 67 , &n);. a = log
3e00: 69 6e 5f 68 61 73 5f 63 61 70 61 62 69 6c 69 74 in_has_capabilit
3e10: 79 28 7a 2c 20 6e 29 3b 0a 20 20 53 62 53 5f 50 y(z, n);. SbS_P
3e20: 6f 70 28 70 2c 20 31 29 3b 0a 20 20 53 62 53 5f op(p, 1);. SbS_
3e30: 50 75 73 68 49 6e 74 28 70 2c 20 61 29 3b 0a 7d PushInt(p, a);.}
3e40: 0a 0a 2f 2a 0a 2a 2a 20 53 75 62 73 63 72 69 70 ../*.** Subscrip
3e50: 74 20 63 6f 6d 6d 61 6e 64 3a 20 20 20 20 20 20 t command:
3e60: 53 54 52 49 4e 47 20 70 75 74 73 0a 2a 2f 0a 73 STRING puts.*/.s
3e70: 74 61 74 69 63 20 69 6e 74 20 70 75 74 73 43 6d tatic int putsCm
3e80: 64 28 73 74 72 75 63 74 20 53 75 62 73 63 72 69 d(struct Subscri
3e90: 70 74 20 2a 70 2c 20 76 6f 69 64 20 2a 70 4e 6f pt *p, void *pNo
3ea0: 74 55 73 65 64 29 7b 0a 20 20 69 6e 74 20 73 69 tUsed){. int si
3eb0: 7a 65 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 ze;. const char
3ec0: 20 2a 7a 3b 0a 20 20 69 66 28 20 53 62 53 5f 52 *z;. if( SbS_R
3ed0: 65 71 75 69 72 65 53 74 61 63 6b 28 70 2c 20 31 equireStack(p, 1
3ee0: 2c 20 22 70 75 74 73 22 29 20 29 20 72 65 74 75 , "puts") ) retu
3ef0: 72 6e 20 31 3b 0a 20 20 7a 20 3d 20 53 62 53 5f rn 1;. z = SbS_
3f00: 53 74 61 63 6b 56 61 6c 75 65 28 70 2c 20 30 2c StackValue(p, 0,
3f10: 20 26 73 69 7a 65 29 3b 0a 20 20 69 66 28 20 67 &size);. if( g
3f20: 2e 63 67 69 50 61 6e 69 63 20 29 7b 0a 20 20 20 .cgiPanic ){.
3f30: 20 63 68 61 72 20 2a 7a 43 6f 70 79 20 3d 20 6d char *zCopy = m
3f40: 70 72 69 6e 74 66 28 22 25 2e 2a 73 22 2c 20 73 printf("%.*s", s
3f50: 69 7a 65 2c 20 7a 29 3b 0a 20 20 20 20 63 67 69 ize, z);. cgi
3f60: 5f 70 72 69 6e 74 66 28 22 25 68 22 2c 20 7a 43 _printf("%h", zC
3f70: 6f 70 79 29 3b 0a 20 20 20 20 66 72 65 65 28 7a opy);. free(z
3f80: 43 6f 70 79 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a Copy);. }else{.
3f90: 20 20 20 20 70 72 69 6e 74 66 28 22 25 2e 2a 73 printf("%.*s
3fa0: 5c 6e 22 2c 20 73 69 7a 65 2c 20 7a 29 3b 0a 20 \n", size, z);.
3fb0: 20 7d 0a 20 20 53 62 53 5f 50 6f 70 28 70 2c 20 }. SbS_Pop(p,
3fc0: 31 29 3b 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a 1);. return 0;.
3fd0: 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 41 20 74 61 62 6c }.../*.** A tabl
3fe0: 65 20 6f 66 20 62 75 69 6c 74 2d 69 6e 20 63 6f e of built-in co
3ff0: 6d 6d 61 6e 64 73 0a 2a 2f 0a 73 74 61 74 69 63 mmands.*/.static
4000: 20 63 6f 6e 73 74 20 73 74 72 75 63 74 20 7b 0a const struct {.
4010: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 43 const char *zC
4020: 6d 64 3b 0a 20 20 69 6e 74 20 28 2a 78 43 6d 64 md;. int (*xCmd
4030: 29 28 53 75 62 73 63 72 69 70 74 2a 2c 76 6f 69 )(Subscript*,voi
4040: 64 2a 29 3b 0a 20 20 76 6f 69 64 20 2a 70 41 72 d*);. void *pAr
4050: 67 3b 0a 7d 20 61 42 75 69 6c 74 69 6e 5b 5d 20 g;.} aBuiltin[]
4060: 3d 20 7b 0a 20 20 7b 20 22 61 64 64 22 2c 20 20 = {. { "add",
4070: 20 20 62 6f 70 43 6d 64 2c 20 20 20 20 28 76 6f bopCmd, (vo
4080: 69 64 2a 29 53 42 53 4f 50 5f 41 4e 44 20 20 20 id*)SBSOP_AND
4090: 20 7d 2c 0a 20 20 7b 20 22 61 6e 64 22 2c 20 20 },. { "and",
40a0: 20 20 62 6f 70 43 6d 64 2c 20 20 20 20 28 76 6f bopCmd, (vo
40b0: 69 64 2a 29 53 42 53 4f 50 5f 41 4e 44 20 20 20 id*)SBSOP_AND
40c0: 20 7d 2c 0a 20 20 7b 20 22 64 69 76 22 2c 20 20 },. { "div",
40d0: 20 20 62 6f 70 43 6d 64 2c 20 20 20 20 28 76 6f bopCmd, (vo
40e0: 69 64 2a 29 53 42 53 4f 50 5f 44 49 56 20 20 20 id*)SBSOP_DIV
40f0: 20 7d 2c 0a 20 20 7b 20 22 68 61 73 63 61 70 22 },. { "hascap"
4100: 2c 20 68 61 73 63 61 70 43 6d 64 2c 20 30 20 20 , hascapCmd, 0
4110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c },
4120: 0a 20 20 7b 20 22 6d 61 78 22 2c 20 20 20 20 62 . { "max", b
4130: 6f 70 43 6d 64 2c 20 20 20 20 28 76 6f 69 64 2a opCmd, (void*
4140: 29 53 42 53 4f 50 5f 4d 41 58 20 20 20 20 7d 2c )SBSOP_MAX },
4150: 0a 20 20 7b 20 22 6d 69 6e 22 2c 20 20 20 20 62 . { "min", b
4160: 6f 70 43 6d 64 2c 20 20 20 20 28 76 6f 69 64 2a opCmd, (void*
4170: 29 53 42 53 4f 50 5f 4d 49 4e 20 20 20 20 7d 2c )SBSOP_MIN },
4180: 0a 20 20 7b 20 22 6d 75 6c 22 2c 20 20 20 20 62 . { "mul", b
4190: 6f 70 43 6d 64 2c 20 20 20 20 28 76 6f 69 64 2a opCmd, (void*
41a0: 29 53 42 53 4f 50 5f 4d 55 4c 20 20 20 20 7d 2c )SBSOP_MUL },
41b0: 0a 20 20 7b 20 22 6e 6f 74 22 2c 20 20 20 20 6e . { "not", n
41c0: 6f 74 43 6d 64 2c 20 20 20 20 30 20 20 20 20 20 otCmd, 0
41d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c },
41e0: 0a 20 20 7b 20 22 6f 72 22 2c 20 20 20 20 20 62 . { "or", b
41f0: 6f 70 43 6d 64 2c 20 20 20 20 28 76 6f 69 64 2a opCmd, (void*
4200: 29 53 42 53 4f 50 5f 4f 52 20 20 20 20 20 7d 2c )SBSOP_OR },
4210: 0a 20 20 7b 20 22 70 75 74 73 22 2c 20 20 20 70 . { "puts", p
4220: 75 74 73 43 6d 64 2c 20 20 20 30 20 20 20 20 20 utsCmd, 0
4230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c },
4240: 0a 20 20 7b 20 22 73 65 74 22 2c 20 20 20 20 73 . { "set", s
4250: 65 74 43 6d 64 2c 20 20 20 20 30 20 20 20 20 20 etCmd, 0
4260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c },
4270: 0a 20 20 7b 20 22 73 75 62 22 2c 20 20 20 20 62 . { "sub", b
4280: 6f 70 43 6d 64 2c 20 20 20 20 28 76 6f 69 64 2a opCmd, (void*
4290: 29 53 42 53 4f 50 5f 53 55 42 20 20 20 20 7d 2c )SBSOP_SUB },
42a0: 0a 7d 3b 0a 20 20 0a 0a 2f 2a 0a 2a 2a 20 43 6f .};. ../*.** Co
42b0: 6d 70 61 72 65 20 61 20 7a 65 72 6f 2d 74 65 72 mpare a zero-ter
42c0: 6d 69 6e 61 74 65 64 20 73 74 72 69 6e 67 20 7a minated string z
42d0: 50 61 74 74 65 72 6e 20 61 67 61 69 6e 73 74 0a Pattern against.
42e0: 2a 2a 20 61 6e 20 75 6e 74 65 72 6d 69 6e 61 74 ** an unterminat
42f0: 65 64 20 73 74 72 69 6e 67 20 7a 53 74 72 20 6f ed string zStr o
4300: 66 20 6c 65 6e 67 74 68 20 6e 53 74 72 2e 0a 2a f length nStr..*
4310: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 63 6f 6d /.static int com
4320: 70 61 72 65 5f 63 6d 64 28 63 6f 6e 73 74 20 63 pare_cmd(const c
4330: 68 61 72 20 2a 7a 50 61 74 74 65 72 6e 2c 20 63 har *zPattern, c
4340: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 53 74 72 2c onst char *zStr,
4350: 20 69 6e 74 20 6e 53 74 72 29 7b 0a 20 20 69 6e int nStr){. in
4360: 74 20 63 20 3d 20 73 74 72 6e 63 6d 70 28 7a 50 t c = strncmp(zP
4370: 61 74 74 65 72 6e 2c 20 7a 53 74 72 2c 20 6e 53 attern, zStr, nS
4380: 74 72 29 3b 0a 20 20 69 66 28 20 63 3d 3d 30 20 tr);. if( c==0
4390: 26 26 20 7a 50 61 74 74 65 72 6e 5b 6e 53 74 72 && zPattern[nStr
43a0: 5d 21 3d 30 20 29 7b 0a 20 20 20 20 63 20 3d 20 ]!=0 ){. c =
43b0: 2d 31 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e -1;. }. return
43c0: 20 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 45 76 61 c;.}../*.** Eva
43d0: 6c 75 61 74 65 20 74 68 65 20 73 63 72 69 70 74 luate the script
43e0: 20 67 69 76 65 6e 20 62 79 20 74 68 65 20 66 69 given by the fi
43f0: 72 73 74 20 6e 53 63 72 69 70 74 20 62 79 74 65 rst nScript byte
4400: 73 20 6f 66 20 7a 53 63 72 69 70 74 5b 5d 2e 0a s of zScript[]..
4410: 2a 2a 20 52 65 74 75 72 6e 20 30 20 6f 6e 20 73 ** Return 0 on s
4420: 75 63 63 65 73 73 20 61 6e 64 20 6e 6f 6e 2d 7a uccess and non-z
4430: 65 72 6f 20 66 6f 72 20 61 6e 20 65 72 72 6f 72 ero for an error
4440: 2e 0a 2a 2f 0a 69 6e 74 20 53 62 53 5f 45 76 61 ..*/.int SbS_Eva
4450: 6c 28 73 74 72 75 63 74 20 53 75 62 73 63 72 69 l(struct Subscri
4460: 70 74 20 2a 70 2c 20 63 6f 6e 73 74 20 63 68 61 pt *p, const cha
4470: 72 20 2a 7a 53 63 72 69 70 74 2c 20 69 6e 74 20 r *zScript, int
4480: 6e 53 63 72 69 70 74 29 7b 0a 20 20 69 6e 74 20 nScript){. int
4490: 72 63 20 3d 20 53 42 53 5f 4f 4b 3b 0a 20 20 69 rc = SBS_OK;. i
44a0: 66 28 20 6e 53 63 72 69 70 74 3c 30 20 29 20 6e f( nScript<0 ) n
44b0: 53 63 72 69 70 74 20 3d 20 73 74 72 6c 65 6e 28 Script = strlen(
44c0: 7a 53 63 72 69 70 74 29 3b 0a 20 20 77 68 69 6c zScript);. whil
44d0: 65 28 20 6e 53 63 72 69 70 74 3e 30 20 26 26 20 e( nScript>0 &&
44e0: 72 63 3d 3d 53 42 53 5f 4f 4b 20 29 7b 0a 20 20 rc==SBS_OK ){.
44f0: 20 20 69 6e 74 20 6e 3b 0a 20 20 20 20 69 6e 74 int n;. int
4500: 20 74 74 79 70 65 3b 0a 20 20 20 20 6e 20 3d 20 ttype;. n =
4510: 73 62 73 5f 6e 65 78 74 5f 74 6f 6b 65 6e 28 7a sbs_next_token(z
4520: 53 63 72 69 70 74 2c 20 6e 53 63 72 69 70 74 2c Script, nScript,
4530: 20 26 74 74 79 70 65 29 3b 0a 20 20 20 20 73 77 &ttype);. sw
4540: 69 74 63 68 28 20 74 74 79 70 65 20 29 7b 0a 20 itch( ttype ){.
4550: 20 20 20 20 20 63 61 73 65 20 53 42 53 54 54 5f case SBSTT_
4560: 57 48 49 54 45 53 50 41 43 45 3a 20 7b 0a 20 20 WHITESPACE: {.
4570: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
4580: 20 20 20 7d 0a 20 20 20 20 20 20 63 61 73 65 20 }. case
4590: 53 42 53 54 54 5f 45 4f 46 3a 20 7b 0a 20 20 20 SBSTT_EOF: {.
45a0: 20 20 20 20 20 6e 53 63 72 69 70 74 20 3d 20 30 nScript = 0
45b0: 3b 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b ;. break;
45c0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 63 . }. c
45d0: 61 73 65 20 53 42 53 54 54 5f 49 4e 43 4f 4d 50 ase SBSTT_INCOMP
45e0: 4c 45 54 45 3a 0a 20 20 20 20 20 20 63 61 73 65 LETE:. case
45f0: 20 53 42 53 54 54 5f 55 4e 4b 4e 4f 57 4e 3a 20 SBSTT_UNKNOWN:
4600: 7b 0a 20 20 20 20 20 20 20 20 72 63 20 3d 20 53 {. rc = S
4610: 42 53 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 BS_ERROR;.
4620: 20 20 6e 53 63 72 69 70 74 20 3d 20 6e 3b 0a 20 nScript = n;.
4630: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 break;.
4640: 20 20 20 20 7d 0a 20 20 20 20 20 20 63 61 73 65 }. case
4650: 20 53 42 53 54 54 5f 49 4e 54 45 47 45 52 3a 20 SBSTT_INTEGER:
4660: 7b 0a 20 20 20 20 20 20 20 20 72 63 20 3d 20 53 {. rc = S
4670: 62 53 5f 50 75 73 68 28 70 2c 20 28 63 68 61 72 bS_Push(p, (char
4680: 2a 29 7a 53 63 72 69 70 74 2c 20 6e 2c 20 30 29 *)zScript, n, 0)
4690: 3b 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b ;. break;
46a0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 63 . }. c
46b0: 61 73 65 20 53 42 53 54 54 5f 4e 41 4d 45 3a 20 ase SBSTT_NAME:
46c0: 7b 0a 20 20 20 20 20 20 20 20 72 63 20 3d 20 53 {. rc = S
46d0: 62 53 5f 50 75 73 68 28 70 2c 20 28 63 68 61 72 bS_Push(p, (char
46e0: 2a 29 26 7a 53 63 72 69 70 74 5b 31 5d 2c 20 6e *)&zScript[1], n
46f0: 2d 31 2c 20 30 29 3b 0a 20 20 20 20 20 20 20 20 -1, 0);.
4700: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 break;. }.
4710: 20 20 20 20 20 63 61 73 65 20 53 42 53 54 54 5f case SBSTT_
4720: 53 54 52 49 4e 47 3a 20 7b 0a 20 20 20 20 20 20 STRING: {.
4730: 20 20 72 63 20 3d 20 53 62 53 5f 50 75 73 68 28 rc = SbS_Push(
4740: 70 2c 20 28 63 68 61 72 2a 29 26 7a 53 63 72 69 p, (char*)&zScri
4750: 70 74 5b 31 5d 2c 20 6e 2d 32 2c 20 30 29 3b 0a pt[1], n-2, 0);.
4760: 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 break;.
4770: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 63 61 73 }. cas
4780: 65 20 53 42 53 54 54 5f 56 45 52 42 3a 20 7b 0a e SBSTT_VERB: {.
4790: 20 20 20 20 20 20 20 20 2f 2a 20 46 69 72 73 74 /* First
47a0: 20 6c 6f 6f 6b 20 75 70 20 74 68 65 20 76 65 72 look up the ver
47b0: 62 20 69 6e 20 74 68 65 20 68 61 73 68 20 74 61 b in the hash ta
47c0: 62 6c 65 20 2a 2f 0a 20 20 20 20 20 20 20 20 63 ble */. c
47d0: 6f 6e 73 74 20 53 62 53 56 61 6c 75 65 20 2a 70 onst SbSValue *p
47e0: 56 61 6c 20 3d 20 73 62 73 5f 66 65 74 63 68 28 Val = sbs_fetch(
47f0: 26 70 2d 3e 73 79 6d 54 61 62 2c 20 28 63 68 61 &p->symTab, (cha
4800: 72 2a 29 7a 53 63 72 69 70 74 2c 20 6e 29 3b 0a r*)zScript, n);.
4810: 20 20 20 20 20 20 20 20 69 66 28 20 70 56 61 6c if( pVal
4820: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 ==0 ){.
4830: 20 2f 2a 20 49 66 20 74 68 65 20 76 65 72 62 20 /* If the verb
4840: 69 73 20 6e 6f 74 20 69 6e 20 74 68 65 20 68 61 is not in the ha
4850: 73 68 20 74 61 62 6c 65 2c 20 6c 6f 6f 6b 20 66 sh table, look f
4860: 6f 72 20 61 20 0a 20 20 20 20 20 20 20 20 20 20 or a .
4870: 2a 2a 20 62 75 69 6c 74 2d 69 6e 20 63 6f 6d 6d ** built-in comm
4880: 61 6e 64 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 and */.
4890: 20 69 6e 74 20 75 70 72 20 3d 20 73 69 7a 65 6f int upr = sizeo
48a0: 66 28 61 42 75 69 6c 74 69 6e 29 2f 73 69 7a 65 f(aBuiltin)/size
48b0: 6f 66 28 61 42 75 69 6c 74 69 6e 5b 30 5d 29 20 of(aBuiltin[0])
48c0: 2d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 69 - 1;. i
48d0: 6e 74 20 6c 77 72 20 3d 20 30 3b 0a 20 20 20 20 nt lwr = 0;.
48e0: 20 20 20 20 20 20 72 63 20 3d 20 53 42 53 5f 45 rc = SBS_E
48f0: 52 52 4f 52 3b 0a 20 20 20 20 20 20 20 20 20 20 RROR;.
4900: 77 68 69 6c 65 28 20 75 70 72 3e 3d 6c 77 72 20 while( upr>=lwr
4910: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 ){. i
4920: 6e 74 20 69 20 3d 20 28 75 70 72 2b 6c 77 72 29 nt i = (upr+lwr)
4930: 2f 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 /2;.
4940: 69 6e 74 20 63 20 3d 20 63 6f 6d 70 61 72 65 5f int c = compare_
4950: 63 6d 64 28 61 42 75 69 6c 74 69 6e 5b 69 5d 2e cmd(aBuiltin[i].
4960: 7a 43 6d 64 2c 20 7a 53 63 72 69 70 74 2c 20 6e zCmd, zScript, n
4970: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 );. i
4980: 66 28 20 63 3d 3d 30 20 29 7b 0a 20 20 20 20 20 f( c==0 ){.
4990: 20 20 20 20 20 20 20 20 20 72 63 20 3d 20 61 42 rc = aB
49a0: 75 69 6c 74 69 6e 5b 69 5d 2e 78 43 6d 64 28 70 uiltin[i].xCmd(p
49b0: 2c 20 61 42 75 69 6c 74 69 6e 5b 69 5d 2e 70 41 , aBuiltin[i].pA
49c0: 72 67 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 rg);.
49d0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 break;.
49e0: 20 20 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 }else if(
49f0: 63 3c 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 c<0 ){.
4a00: 20 20 20 20 20 75 70 72 20 3d 20 69 2d 31 3b 0a upr = i-1;.
4a10: 20 20 20 20 20 20 20 20 20 20 20 20 7d 65 6c 73 }els
4a20: 65 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 e{.
4a30: 20 6c 77 72 20 3d 20 69 2b 31 3b 0a 20 20 20 20 lwr = i+1;.
4a40: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
4a50: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 65 }. }e
4a60: 6c 73 65 20 69 66 28 20 70 56 61 6c 2d 3e 66 6c lse if( pVal->fl
4a70: 61 67 73 20 26 20 53 42 53 56 41 4c 5f 56 45 52 ags & SBSVAL_VER
4a80: 42 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 72 B ){. r
4a90: 63 20 3d 20 70 56 61 6c 2d 3e 75 2e 76 65 72 62 c = pVal->u.verb
4aa0: 2e 78 56 65 72 62 28 70 2c 20 70 56 61 6c 2d 3e .xVerb(p, pVal->
4ab0: 75 2e 76 65 72 62 2e 70 41 72 67 29 3b 0a 20 20 u.verb.pArg);.
4ac0: 20 20 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 }else if(
4ad0: 70 56 61 6c 2d 3e 66 6c 61 67 73 20 26 20 53 42 pVal->flags & SB
4ae0: 53 56 41 4c 5f 45 58 45 43 20 29 7b 0a 20 20 20 SVAL_EXEC ){.
4af0: 20 20 20 20 20 20 20 72 63 20 3d 20 53 62 53 5f rc = SbS_
4b00: 45 76 61 6c 28 70 2c 20 70 56 61 6c 2d 3e 75 2e Eval(p, pVal->u.
4b10: 73 74 72 2e 7a 2c 20 70 56 61 6c 2d 3e 75 2e 73 str.z, pVal->u.s
4b20: 74 72 2e 73 69 7a 65 29 3b 0a 20 20 20 20 20 20 tr.size);.
4b30: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 }else{.
4b40: 20 20 20 72 63 20 3d 20 53 62 53 5f 50 75 73 68 rc = SbS_Push
4b50: 28 70 2c 20 70 56 61 6c 2d 3e 75 2e 73 74 72 2e (p, pVal->u.str.
4b60: 7a 2c 20 70 56 61 6c 2d 3e 75 2e 73 74 72 2e 73 z, pVal->u.str.s
4b70: 69 7a 65 2c 20 30 29 3b 0a 20 20 20 20 20 20 20 ize, 0);.
4b80: 20 7d 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b }. break
4b90: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a ;. }. }.
4ba0: 20 20 20 20 7a 53 63 72 69 70 74 20 2b 3d 20 6e zScript += n
4bb0: 3b 0a 20 20 20 20 6e 53 63 72 69 70 74 20 2d 3d ;. nScript -=
4bc0: 20 6e 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e n;. }. return
4bd0: 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 4f rc;.}../*.** CO
4be0: 4d 4d 41 4e 44 3a 20 74 65 73 74 2d 73 75 62 73 MMAND: test-subs
4bf0: 63 72 69 70 74 0a 2a 2f 0a 76 6f 69 64 20 74 65 cript.*/.void te
4c00: 73 74 5f 73 75 62 73 63 72 69 70 74 28 76 6f 69 st_subscript(voi
4c10: 64 29 7b 0a 20 20 53 75 62 73 63 72 69 70 74 20 d){. Subscript
4c20: 2a 70 3b 0a 20 20 69 66 28 20 67 2e 61 72 67 63 *p;. if( g.argc
4c30: 3c 33 20 29 7b 0a 20 20 20 20 75 73 61 67 65 28 <3 ){. usage(
4c40: 22 53 43 52 49 50 54 22 29 3b 0a 20 20 7d 0a 20 "SCRIPT");. }.
4c50: 20 70 20 3d 20 53 62 53 5f 43 72 65 61 74 65 28 p = SbS_Create(
4c60: 29 3b 0a 20 20 53 62 53 5f 45 76 61 6c 28 70 2c );. SbS_Eval(p,
4c70: 20 67 2e 61 72 67 76 5b 32 5d 2c 20 73 74 72 6c g.argv[2], strl
4c80: 65 6e 28 67 2e 61 72 67 76 5b 32 5d 29 29 3b 0a en(g.argv[2]));.
4c90: 7d 0a }.