PRO rhumba, geom
; let us assume that all the caller instances are defined
; although they will all be supplied to the generator
objectType = 'GRID'
geom = 'LINESEGMENT'
cellContents = '[(I) (V) (X) (L) (C) (D) (M)]' ; we will take this as a string,
; and find ensembles
command = 'CONSTRUCT' ; this is very important
outputTarg = 'r' ; object name is the output name
;the actual objects
CASE command OF
"CONSTRUCT" : BEGIN
print, "constructing ", outputTarg
CASE objectType OF
"GRID" : BEGIN
print, "object is a grid"
;print, "expecting either cell content (automatic indexing) or"
;print, "cell indices as an array"
IF (N_Elements(cellIndices) NE 0) THEN BEGIN
print, "cell indices given"
ENDIF
IF (N_Elements(cellContents) NE 0) THEN BEGIN
print, "cell contents given"
;to ease up operations
;consider also the geometry
CASE geom OF
"LINESEGMENT" : BEGIN
print, "creating 1D array like a line segment"
outputObj = obj_new('automaticSystem')
outputObj->makeGrid, [3,2]
;print , outputObj->grid
END
ENDCASE
ENDIF
IF ((N_Elements(cellIndices) EQ 0) && ( N_Elements(cellContents) EQ 0)) THEN BEGIN
print, "failed"
ENDIF
END
ENDCASE
END
"READ" : BEGIN
END
"PUT" : BEGIN
END
"TRIGGER" : BEGIN
END
ENDCASE
END