Mercurial > urweb

comparison src/lru_cache.sml @ 2289:78820fa8f5a7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 "}",