/[eiffelstudio]/FreeELKS/trunk/library/kernel/procedure.e
ViewVC logotype

Contents of /FreeELKS/trunk/library/kernel/procedure.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 91424 - (show annotations)
Tue Oct 26 18:39:32 2004 UTC (15 years, 2 months ago) by manus_eiffel
File size: 1782 byte(s)
Initial revision

1 indexing
2 description: "[
3 Objects representing delayed calls to a procedure.
4 with some operands possibly still open.
5 ]"
6 note: "[
7 Features are the same as those of ROUTINE,
8 with `apply' made effective, and no further
9 redefinition of `is_equal' and `copy'.
10 ]"
11 status: "See notice at end of class"
12 date: "$Date$"
13 revision: "$Revision$"
14
15 class
16 PROCEDURE [BASE_TYPE, OPEN_ARGS -> TUPLE create default_create end]
17
18 inherit
19 ROUTINE [BASE_TYPE, OPEN_ARGS]
20
21 feature -- Calls
22
23 apply is
24 -- Call procedure with `args' as last set.
25 do
26 rout_obj_call_procedure (rout_disp, $internal_operands)
27 end
28
29 feature {NONE} -- Implementation
30
31 rout_obj_call_procedure (rout: POINTER; args: POINTER) is
32 -- Perform call to `rout' with `args'.
33 external
34 "C inline use %"eif_rout_obj.h%""
35 alias
36 "rout_obj_call_agent($rout, $args, $$_result_type)"
37 end
38
39 indexing
40
41 library: "[
42 EiffelBase: Library of reusable components for Eiffel.
43 ]"
44
45 status: "[
46 Copyright 1986-2001 Interactive Software Engineering (ISE).
47 For ISE customers the original versions are an ISE product
48 covered by the ISE Eiffel license and support agreements.
49 ]"
50
51 license: "[
52 EiffelBase may now be used by anyone as FREE SOFTWARE to
53 develop any product, public-domain or commercial, without
54 payment to ISE, under the terms of the ISE Free Eiffel Library
55 License (IFELL) at http://eiffel.com/products/base/license.html.
56 ]"
57
58 source: "[
59 Interactive Software Engineering Inc.
60 ISE Building
61 360 Storke Road, Goleta, CA 93117 USA
62 Telephone 805-685-1006, Fax 805-685-6869
63 Electronic mail <info@eiffel.com>
64 Customer support http://support.eiffel.com
65 ]"
66
67 info: "[
68 For latest info see award-winning pages: http://eiffel.com
69 ]"
70
71 end -- class PROCEDURE
72

Properties

Name Value
svn:eol-style native
svn:keywords Author Date Id Revision

  ViewVC Help
Powered by ViewVC 1.1.23