license.m File Reference

Functions
	if (isempty(__octave_licenses__)) __octave_licenses__
	if (exist("OCTAVE_FORGE_VERSION")) __octave_licenses__
	if (nout > 1||nin > 3) error("type `help license' for usage info")
endif	if (nin==0) found
endif endfor	if (found) result
endif	if (nout==0) printf("%s\n"
endif	elseif (nin==1) if(nout
endfor else	if (!strcmp(varargin{1},"inuse")) usage("retval
	if (isstruct(pw)) username
endif	retval (1:nr_licenses)
	retval (p).user
	if (strcmp(varargin{1},"test")) found
	elseif (strcmp(varargin{3},"disable")) __octave_licenses__
else	error ("toggle must be either `enable' of `disable'")
endif else	error ("feature `%s' not found", feature)
endif endif	elseif (strcmp(varargin{1},"checkout")) if(nin!
else	error ("type `help license' for usage info")
Variables
function	retval
endif endif	nout = "octave-forge" nargout
	nin = nargin
	nr_licenses = rows (__octave_licenses__)
for	p
	break
else	result = "unknown"
endif	pw = getpwuid (getuid ())
else	username = "octave_user"
endfor endif else	feature = varargin{2}(1:(min ([(length (varargin{2})), 27])))
endif	found = false

---

Function Documentation

endif endif elseif

(

strcmp(varargin{1},"checkout")

)

elseif

(

strcmp(varargin{3},"disable")

)

endif elseif

(

nin

= =1

)

else error

(

"type `help license' for usage info"

)

endif else error	(	"feature `%s' not found"	,
		feature
	)

else error

(

"toggle must be either `enable' of `disable'"

)

if

(

strcmp(varargin{1},"test")

)

if

(

isstruct(pw)

)

endfor else if

(

!

strcmpvarargin{1},"inuse"

)

endif if

(

nout

= = 0

)

endif endfor if

(

found

)

endif if

(

nin

= =0

)

if	(	nout	,
		1||	nin,
		3
	)

if

(

exist("OCTAVE_FORGE_VERSION")

)

if

(

isempty(__octave_licenses__)

)

retval

(

p

)

endif retval

(

1:nr_licenses

)

---

Variable Documentation

break

endfor endif else feature = varargin{2}(1:(min ([(length (varargin{2})), 27])))

endif found = false

nin = nargin

endif endif nout = "octave-forge" nargout

nr_licenses = rows (__octave_licenses__)

for p

Initial value:

 1:nr_licenses
      if (strcmp (__octave_licenses__{p,1}, "Octave"))
        found = true

endif pw = getpwuid (getuid ())

result = "unknown"

endif endfor retval

Initial value:

 license (varargin)

  persistent __octave_licenses__

else username = "octave_user"