svm_read_problem   xtlang

(bind-func svm_read_problem 1100000
  (let ((max_line_length    1000000)
        (line (zalloc max_line_length))))
  (lambda (filename)
    (let ((prob (svm_problem 0 null null))
          (max_index 0)
          (inst_max_index 0)
          (elements 0)
          (i 0)
          (j 0)
          (fp (fopen filename "r"))
          (endptr:i8* null)
          (idx:i8* null)
          (val:i8* null)
          (label:i8* null))
      (if (null? fp)
          (begin
            (printf "Error: cannot open input file %s\n" filename)
            null)
          (while (fgets line max_line_len fp)
            (while)
            )))))