Functions | |
endif else | print_usage () |
!save (filename,"dummy") | |
!if (n_tmpfiles_before!=n_tmpfiles_after)%!error("bzip2 has not cleaned up temporary files correctly!") | |
!endif!unwind_protect_cleanup | !delete (filename) |
!delete ([basename, extension,".bz2"]) | |
Variables | |
function | entries |
endif endfunction!xtest!unwind_protect | !filename = tmpnam |
!dummy = 1 | |
!n_tmpfiles_before = length(find(strncmp("oct-", cellstr(ls(P_tmpdir)), 4))) | |
!entry = bzip2(filename) | |
!n_tmpfiles_after = length(find(strncmp("oct-", cellstr(ls(P_tmpdir)), 4))) |
!delete | ( | ) |
!if | ( | n_tmpfiles_before! | = n_tmpfiles_after |
) |
!save | ( | filename | , | |
"dummy" | ||||
) |
!dummy = 1 |
!entry = bzip2(filename) |
endif endfunction !xtest ! unwind_protect !filename = tmpnam |
!n_tmpfiles_after = length(find(strncmp("oct-", cellstr(ls(P_tmpdir)), 4))) |
!n_tmpfiles_before = length(find(strncmp("oct-", cellstr(ls(P_tmpdir)), 4))) |