class EXAMPLE inherit MATISSE_CONST MT_EXTERNAL create make feature {NONE} make is -- Prints various information do -- 1/ Choose host name and database name. Adjust wait and priority so that it suits your needs. create appl.login("venus","COMPANY",0,0) -- 2/ Choose working mode. See documentation for that. appl.set_mode(OPENED_TRANSACTION,Void) -- 3/ Connect Matisse handle to EiffelStore. appl.set_base -- 4/ Create a Matisse session. create session.make -- 5/ Connect to database with the appropriate mode (given above). session.connect -- 6/ Insert your actions here. -- ... actions --7/ Disconnect from database. session.disconnect end -- make feature -- Status Setting actions is -- Database actions local i,dimension : INTEGER do create repository.make("db_repository_mat test") repository.load io.putstring("Repository ") io.putstring(repository.repository_name) io.putstring(" loaded.") io.new_line create one_tester.make io.putbool(repository.conforms(one_tester)) io.new_line repository.generate_class create one_tester.make create one_storer.make one_storer.set_repository(repository) one_storer.put(one_tester) end -- actions feature {NONE} -- Implementation appl : MATISSE_APPL session : DB_CONTROL repository : DB_REPOSITORY one_tester : DB_REPOSITORY_TESTER one_storer : DB_STORE end -- class EXAMPLE --|---------------------------------------------------------------- --| EiffelStore: library of reusable components for ISE Eiffel. --| Copyright (C) 1986-2001 Interactive Software Engineering Inc. --| All rights reserved. Duplication and distribution prohibited. --| May be used only with ISE Eiffel, under terms of user license. --| Contact ISE for any other use. --| --| Interactive Software Engineering Inc. --| ISE Building --| 360 Storke Road, Goleta, CA 93117 USA --| Telephone 805-685-1006, Fax 805-685-6869 --| Electronic mail --| Customer support: http://support.eiffel.com> --| For latest info see award-winning pages: http://www.eiffel.com --|----------------------------------------------------------------