gzip.m File Reference

Functions
endif else	print_usage ()
endif endfunction!error < Invalid call to gzip.Correct usage is >	gzip ("1","2","3")
!error< Invalid call to gzip.Correct usage is >	gzip ()
!error< output directory does not exist >	gzip ("1", tmpnam)
!error< expecting FILES to be a character array >	gzip (1)
	!save (filename,"dummy")
	!mkdir (dirname)
!if	!strcmp (entry,[dirname, filesep, basename, extension,".gz"])%!error("gzipped file does not match expected name!")
!endif!if	!exist (entry,"file")%!error("gzipped file cannot be found!")
!endif	!gunzip (entry)
	!if (system(sprintf("diff %s %s%c%s%s", filename, dirname, filesep,%!basename, extension)))%!error("unzipped file not equal to original file!")
!end!unwind_protect_cleanup	!delete (filename)
	!delete ([dirname, filesep, basename, extension])
	!rmdir (dirname)
Variables
function	entries
!xtest!unwind_protect	!filename = tmpnam
	!dummy = 1
	!dirname = tmpnam
	!entry = gzip(filename, dirname)

---

Function Documentation

!delete

(

)

! end ! unwind_protect_cleanup !delete

(

filename

)

! endif ! if !exist	(	entry	,
		"file"
	)

! endif !gunzip

(

entry

)

!if

(

system(sprintf("diff %s %s%c%s%s", filename, dirname, filesep,%!basename, extension))

)

!mkdir

(

dirname

)

!rmdir

(

dirname

)

!save	(	filename	,
		"dummy"
	)

! if !strcmp

(

entry

)

!error<expecting FILES to be a character array> gzip

(

1

)

!error<output directory does not exist> gzip	(	"1"	,
		tmpnam
	)

!error<Invalid call to gzip. Correct usage is> gzip

(

)

endif endfunction !error<Invalid call to gzip. Correct usage is> gzip	(	"1"	,
		"2"	,
		"3"
	)

endif else print_usage

(

)

---

Variable Documentation

!dirname = tmpnam

!dummy = 1

!entry = gzip(filename, dirname)

!xtest ! unwind_protect !filename = tmpnam

else entries

Initial value:

 gzip (varargin)
  if (nargin == 1 || nargin == 2) && (nargout <= 1)
    if nargout == 0
      __xzip__ ("gzip", "gz", "gzip -r %s", varargin{:})