;+
; NAME:
;	SMEI_OPERATOR::GET_SEQUENCE
;
;
; PURPOSE:
;	Return the SMEI sequence generated by the operator
;
;
; CATEGORY:
;	SMEI_OPERATOR
;
;
; CALLING SEQUENCE:
;	seqref = sop -> get_sequence()
;
;
; KEYWORD PARAMETERS:
;	/destroy	If set, then the operator will be destroyed
;			before returning.
;
;
; OUTPUTS:
;	seqref	objref	The sequence object reference
;
;
; MODIFICATION HISTORY:
;	Original: 23/10/03; SJT
;-

function smei_operator::get_sequence, destroy = destroy


if not obj_valid(self.sequence) then self -> compute


if keyword_set(destroy) then begin
    rv = self.sequence
    self.sequence = obj_new()
    obj_destroy, self
    return, rv
endif else return, self.sequence

end