Задание c-gaps

c-gaps/credit.c

@@ -1,9 +1,76 @@
 #include <lua.h>
 #include <lauxlib.h>
+#include <stdlib.h>
+#if LUA_VERSION_NUM == 501
+#define my_len lua_objlen
+#else
+#define my_len lua_rawlen
+#endif
 
-// implement it here
+int removeGaps(char** table, char** new_table, int len_str, int len_table, int* new_sym_ind) {
+    int sym_ind, str_ind;
+    char gap_column;
+    for (sym_ind = 0; sym_ind < len_str; sym_ind++) {
+        gap_column = 't';
+        for (str_ind = 0; str_ind < len_table; str_ind++) {
+            if (table[str_ind][sym_ind] != '-') {
+                gap_column = 'f';
+            } 
+        }
+        if (gap_column == 'f') {
+            *new_sym_ind = *new_sym_ind + 1;
+            for (str_ind = 0; str_ind < len_table; str_ind++) {
+                new_table[str_ind][*new_sym_ind] = table[str_ind][sym_ind];
+            }
+        } 
+     }
+     if (*new_sym_ind == -1) {
+         return 0;
+     } else {
+         return 1;
+     }
+}
 
+int wrapRemoveGaps(lua_State* L) {
+    luaL_checktype(L, -1, LUA_TTABLE);
+    char** table, **new_table;
+    size_t len, len1;
+    int len_table = my_len(L, -1);
+    int str_ind, i;
+    int new_sym_ind = -1;
+    table = malloc(len_table * sizeof(char*));
+    new_table = malloc(len_table * sizeof(char*));
+    for (str_ind = 1; str_ind <= len_table; str_ind++) {
+        lua_rawgeti(L, 1, str_ind);
+        table[str_ind - 1] = luaL_checklstring(L, -1, &len1);
+        if (str_ind == 1) {
+            len = len1;
+        }
+        if (len != len1) {
+            luaL_error(L, "fuck");
+        }
+    }
+    for (i = 0; i < len_table; i++) {
+        new_table[i] = malloc(len * sizeof(char));
+    }
+    int error = removeGaps(table, new_table, len, len_table, &new_sym_ind);
+    //if (error != 1) {
+      //  luaL_error(L, "fuck");
+    //}
+    lua_newtable(L); 
+    for (str_ind = 0; str_ind < len_table; str_ind++) {
+        lua_pushlstring(L, new_table[str_ind], new_sym_ind + 1);
+        lua_rawseti(L, -2, str_ind + 1);
+    }
+    free(table);
+    for (i = 0; i < len_table; i++) {
+        free(new_table[i]);
+    }
+    free(new_table);
+    return 1;
+}
+
 int luaopen_gaps(lua_State* L) {
-    // return it here
-    return 0;
+    lua_pushcfunction(L, wrapRemoveGaps);
+    return 1;
 }

c-gaps/spec.lua

@@ -1,9 +1,9 @@
 describe("gaps (implementation)", function()
-    pending("loads module", function()
+    it("loads module", function()
         local f = require 'gaps'
     end)
 
-    pending("doesn't change good alignment", function()
+    it("doesn't change good alignment", function()
         local f = require 'gaps'
         assert.same({}, f({}))
         assert.same({''}, f({''}))
@@ -14,7 +14,7 @@ describe("gaps (implementation)", function()
         assert.same({'A'}, f({'A-'}))
     end)
 
-    pending("removes gap columns", function()
+    it("removes gap columns", function()
         local f = require 'gaps'
         assert.same({''}, f({'-'}))
         assert.same({'', ''}, f({'-', '-'}))
@@ -30,7 +30,7 @@ describe("gaps (implementation)", function()
         }))
     end)
 
-    pending("throws error if input is not table",
+    it("throws error if input is not table",
     function()
         local f = require 'gaps'
         assert.has_error(function()
@@ -41,15 +41,15 @@ describe("gaps (implementation)", function()
         end)
     end)
 
-    pending("throws error if table members are not strings",
+    it("throws error if table members are not strings",
     function()
         local f = require 'gaps'
         assert.has_error(function()
             f({{1,2,3}, {}})
         end)
     end)
 
-    pending("throws error if strings' lengths differ",
+    it("throws error if strings' lengths differ",
     function()
         local f = require 'gaps'
         assert.has_error(function()