1-12 Sprache CORBA Scripting, v1.1 Februar 2003 1 proc_ get_dimension (Selbst) { Rückholself.dim } # führt ' einstellen ' Betrieb ein procsatz (Selbst-, Position, val) { Versuch { self.values[pos.y][pos.x ] = val } Verriegelung (BadIndex Ausn.) { Throw GridService.InvalidCoord(pos) } } # führt ' erhalten ' Betrieb ein proc erhalten (Selbst-, Position) { Versuch { Rückholself.values[pos.y][pos.x ] } Verriegelung (BadIndex Ausn.) { Throw GridService.InvalidCoord(pos) } } # führt ' zerstören ' Betrieb ein proc zerstören (Selbst) { CORBA.ORB.disconnect (Selbst) } } KategoriencFabrik { proc__-FABRIK__ (Selbst) { CORBA.ORB.connect (Selbst-, GridService.Factory) } # der ' create_grid' Betrieb proccreate_grid (Selbst-, schwaches, init_value) { Rasterfeld = GRID(dim, init_value) Rückholgrid._this } } Der vorhergehende Code stellt eine Implementierung des Rasterfeldservices dar. Das RASTERFELD und FABRIK Kategorien führen beziehungsweise ein GridService::Grid und GridService::Factory Schnittstellen. IDLscript erzwingt einen Versammlungnamen für