Mercurial > urweb
comparison src/lru_cache.sml @ 2289:78820fa8f5a7
Fix bugs for lock calculation and SQL parsing and add support for tasks.
author | Ziv Scully <ziv@mit.edu> |
---|---|
date | Sun, 15 Nov 2015 14:18:35 -0500 |
parents | 98f96a976ede |
children | 5104e480b3e3 |
comparison
equal
deleted
inserted
replaced
2288:98f96a976ede | 2289:78820fa8f5a7 |
---|---|
109 string (" uw_Sqlcache_Value *v = uw_Sqlcache_check(ctx, cache" ^ i ^ ", ks);"), | 109 string (" uw_Sqlcache_Value *v = uw_Sqlcache_check(ctx, cache" ^ i ^ ", ks);"), |
110 newline, | 110 newline, |
111 (* If the output is null, it means we had too much recursion, so it's a miss. *) | 111 (* If the output is null, it means we had too much recursion, so it's a miss. *) |
112 string " if (v && v->output != NULL) {", | 112 string " if (v && v->output != NULL) {", |
113 newline, | 113 newline, |
114 string (" puts(\"SQLCACHE: hit " ^ i ^ ".\");"), | 114 (* string (" puts(\"SQLCACHE: hit " ^ i ^ ".\");"), *) |
115 newline, | 115 (* newline, *) |
116 string " uw_write(ctx, v->output);", | 116 string " uw_write(ctx, v->output);", |
117 newline, | 117 newline, |
118 string " return v->result;", | 118 string " return v->result;", |
119 newline, | 119 newline, |
120 string " } else {", | 120 string " } else {", |
121 newline, | 121 newline, |
122 string (" puts(\"SQLCACHE: miss " ^ i ^ ".\");"), | 122 (* string (" puts(\"SQLCACHE: miss " ^ i ^ ".\");"), *) |
123 newline, | 123 (* newline, *) |
124 string " uw_recordingStart(ctx);", | 124 string " uw_recordingStart(ctx);", |
125 newline, | 125 newline, |
126 string " return NULL;", | 126 string " return NULL;", |
127 newline, | 127 newline, |
128 string " }", | 128 string " }", |
140 newline, | 140 newline, |
141 string " v->result = strdup(s);", | 141 string " v->result = strdup(s);", |
142 newline, | 142 newline, |
143 string " v->output = uw_recordingRead(ctx);", | 143 string " v->output = uw_recordingRead(ctx);", |
144 newline, | 144 newline, |
145 string (" puts(\"SQLCACHE: stored " ^ i ^ ".\");"), | 145 (* string (" puts(\"SQLCACHE: stored " ^ i ^ ".\");"), *) |
146 newline, | 146 (* newline, *) |
147 string (" uw_Sqlcache_store(ctx, cache" ^ i ^ ", ks, v);"), | 147 string (" uw_Sqlcache_store(ctx, cache" ^ i ^ ", ks, v);"), |
148 newline, | 148 newline, |
149 string " return uw_unit_v;", | 149 string " return uw_unit_v;", |
150 newline, | 150 newline, |
151 string "}", | 151 string "}", |