Data commit

Task/Remove-lines-from-a-file/Amazing-Hopper/remove-lines-from-a-file.hopper

@@ -0,0 +1,35 @@
+#include <hopper.h>
+
+main:
+   .ctrlc
+   fd=0,fw=0
+   fopen(OPEN_READ,"archivo.txt")(fd)
+   if file error?
+      {"no pude abrir el archivo de lectura: "}
+      jsub(show error)
+   else
+      fcreate(CREATE_NORMAL,"archivoTmp.txt")(fw)
+      if file error?
+          {"no pude crear el archivo para escritura: "}
+          jsub(show error)
+      else
+          get arg number(2,desde),  // from line
+          get arg number(3,hasta),  // to line
+
+          line read=0
+          while( not(feof(fd)))
+             fread line(1000)(fd), ++line read
+             if(not( {line read} between(desde, hasta)))
+                 {"\n"}cat,writeline(fw)
+             endif
+          wend
+      endif
+   endif
+   fclose(fw)
+   fclose(fd)
+   system("mv archivoTmp.txt archivo.txt")
+exit(0)
+.locals
+show error:
+  file error, println
+back