updated func/fift

- updated func/fift
- updated liteclient/liteserver
- bugfixes

crypto/func/test/a11.fc

@@ -0,0 +1,28 @@
+_ f(slice ds, int total_weight, int elect_at, cell frozen, int total_stakes, int cnt, cell credits, cell vdict, int elect) {
+  return (ds, elect, credits);
+}
+
+_ g(slice ds, int total_weight, int elect_at, cell frozen, int total_stakes, int cnt, cell credits, int elect) {
+  return (ds, elect, credits);
+}
+
+_ h(slice ds, int total_weight, int elect_at, cell frozen, int total_stakes, cell credits, int elect) {
+  return (ds, elect, credits);
+}
+
+_ h2(slice ds, int total_weight, int elect_at, cell frozen, int total_stakes, cell credits, int elect) {
+  return (ds, credits, elect);
+}
+
+_ h3(int pubkey, int adnl_addr, int stake, int tot_weight, tuple vinfo) {
+  return (pubkey, tot_weight, stake, vinfo);
+}
+
+_ z(int a, int b) {
+  return (b, 0, a);
+}
+
+_ z2(int a, int b) {
+  return (0, a, b);
+}
+

crypto/func/test/a6_5.fc

@@ -0,0 +1,20 @@
+var twice(f, x) {
+  return f (f x);
+}
+
+_ sqr(x) {
+  return x * x;
+}
+
+var main(x) {
+  var f = sqr;
+  return twice(f, x) * f(x);
+}
+
+var pow6(x) {
+  return twice(sqr, x) * sqr(x);
+}
+
+_ q() {
+  return false;
+}

crypto/func/test/c1.fc

@@ -0,0 +1,37 @@
+global int x, y, z;
+global (cell, slice) y;
+global ((int, int) -> int) op;
+
+_ get() {
+  var t = z + 1;
+  return x;
+}
+
+_ pre_next() {
+  return x + 1;
+}
+
+() init() impure {
+  ;; global x;
+  x = 0;
+}
+
+int next() impure {
+  ;; global x;
+  return x += 1;
+}
+
+_ set_y(x, w) {
+  y = (w, x);
+}
+
+_ get_y() impure {
+  return y;
+}
+
+int main(int c) {
+  init();
+  c += next();
+  return c + pre_next();
+}
+

crypto/func/test/c2.fc

@@ -0,0 +1,10 @@
+global ((int, int) -> int) op;
+
+int check_assoc(int a, int b, int c) {
+  return op(op(a, b), c) == op(a, op(b, c));
+}
+
+int main() {
+  op = _+_;
+  return check_assoc(2, 3, 9);
+}

crypto/func/test/c2_1.fc

@@ -0,0 +1,7 @@
+_ check_assoc(op, a, b, c) {
+  return op(op(a, b), c) == op(a, op(b, c));
+}
+
+int main() {
+  return check_assoc(_+_, 2, 3, 9);
+}