← Back to branch summary

~ubuntu-branches/ubuntu/raring/babel/raring-proposed

« back to all changes in this revision

Viewing changes to regression/exceptions/libF90/ExceptionTest_NegativeValueException_Impl.F90

  • Committer: Bazaar Package Importer
  • Author(s): Adam C. Powell, IV
  • Date: 2008-08-01 07:56:58 UTC
  • mfrom: (3.1.2 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080801075658-9ezcrbh8dcs8lg70
Tags: 1.2.0.dfsg-6
http://bugs.debian.org/483324
Added libparsifal-dev as dependency to libsidl-dev (closes: #483324).

Show diffs side-by-side

added added

removed removed

Lines of Context:
regression/exceptions/libF90/ExceptionTest_NegativeValueException_Impl.F90
2
2
! File:          ExceptionTest_NegativeValueException_Impl.F90
3
3
! Symbol:        ExceptionTest.NegativeValueException-v1.0
4
4
! Symbol Type:   class
5
 
! Babel Version: 0.10.2
 
5
! Babel Version: 1.2.0
6
6
! Description:   Server-side implementation for ExceptionTest.NegativeValueException
7
7
! 
8
8
! WARNING: Automatically generated; only changes within splicers preserved
9
9
! 
10
 
! babel-version = 0.10.2
11
10
! 
12
11
 
13
12
 
19
18
! 
20
19
 
21
20
 
 
21
#include "sidl_NotImplementedException_fAbbrev.h"
22
22
#include "sidl_SIDLException_fAbbrev.h"
23
23
#include "ExceptionTest_NegativeValueException_fAbbrev.h"
 
24
#include "sidl_io_Deserializer_fAbbrev.h"
24
25
#include "sidl_ClassInfo_fAbbrev.h"
 
26
#include "sidl_io_Serializable_fAbbrev.h"
25
27
#include "sidl_BaseInterface_fAbbrev.h"
 
28
#include "sidl_RuntimeException_fAbbrev.h"
 
29
#include "sidl_io_Serializer_fAbbrev.h"
26
30
#include "sidl_BaseException_fAbbrev.h"
27
31
#include "sidl_BaseClass_fAbbrev.h"
28
32
! DO-NOT-DELETE splicer.begin(_miscellaneous_code_start)
33
37
 
34
38
 
35
39
! 
 
40
! Method:  _ctor[]
36
41
! Class constructor called when the class is created.
37
42
! 
38
43
 
39
 
recursive subroutine NegativeValu__ctor18qszgfw8e_mi(self)
 
44
recursive subroutine NegativeValu__ctor18qszgfw8e_mi(self, exception)
 
45
  use sidl
 
46
  use sidl_NotImplementedException
 
47
  use sidl_BaseInterface
 
48
  use sidl_RuntimeException
40
49
  use ExceptionTest_NegativeValueException
41
50
  use ExceptionTest_NegativeValueException_impl
42
51
  ! DO-NOT-DELETE splicer.begin(ExceptionTest.NegativeValueException._ctor.use)
43
52
  ! Insert use statements here...
44
53
  ! DO-NOT-DELETE splicer.end(ExceptionTest.NegativeValueException._ctor.use)
45
54
  implicit none
46
 
  type(ExceptionTest_NegativeValueException_t) :: self ! in
 
55
  type(ExceptionTest_NegativeValueException_t) :: self
 
56
  ! in
 
57
  type(sidl_BaseInterface_t) :: exception
 
58
  ! out
47
59
 
48
60
! DO-NOT-DELETE splicer.begin(ExceptionTest.NegativeValueException._ctor)
49
61
! Insert the implementation here...
52
64
 
53
65
 
54
66
! 
 
67
! Method:  _ctor2[]
 
68
! Special Class constructor called when the user wants to wrap his own private data.
 
69
! 
 
70
 
 
71
recursive subroutine NegativeVal__ctor2gsz5vsmlmo_mi(self, private_data,       &
 
72
  exception)
 
73
  use sidl
 
74
  use sidl_NotImplementedException
 
75
  use sidl_BaseInterface
 
76
  use sidl_RuntimeException
 
77
  use ExceptionTest_NegativeValueException
 
78
  use ExceptionTest_NegativeValueException_impl
 
79
  ! DO-NOT-DELETE splicer.begin(ExceptionTest.NegativeValueException._ctor2.use)
 
80
  ! Insert-Code-Here {ExceptionTest.NegativeValueException._ctor2.use} (use statements)
 
81
  ! DO-NOT-DELETE splicer.end(ExceptionTest.NegativeValueException._ctor2.use)
 
82
  implicit none
 
83
  type(ExceptionTest_NegativeValueException_t) :: self
 
84
  ! in
 
85
  type(ExceptionTest_NegativeValueException_wrap) :: private_data
 
86
  type(sidl_BaseInterface_t) :: exception
 
87
  ! out
 
88
 
 
89
! DO-NOT-DELETE splicer.begin(ExceptionTest.NegativeValueException._ctor2)
 
90
! Insert-Code-Here {ExceptionTest.NegativeValueException._ctor2} (_ctor2 method)
 
91
! DO-NOT-DELETE splicer.end(ExceptionTest.NegativeValueException._ctor2)
 
92
end subroutine NegativeVal__ctor2gsz5vsmlmo_mi
 
93
 
 
94
 
 
95
! 
 
96
! Method:  _dtor[]
55
97
! Class destructor called when the class is deleted.
56
98
! 
57
99
 
58
 
recursive subroutine NegativeValu__dtorl33ci017s0_mi(self)
 
100
recursive subroutine NegativeValu__dtorl33ci017s0_mi(self, exception)
 
101
  use sidl
 
102
  use sidl_NotImplementedException
 
103
  use sidl_BaseInterface
 
104
  use sidl_RuntimeException
59
105
  use ExceptionTest_NegativeValueException
60
106
  use ExceptionTest_NegativeValueException_impl
61
107
  ! DO-NOT-DELETE splicer.begin(ExceptionTest.NegativeValueException._dtor.use)
62
108
  ! Insert use statements here...
63
109
  ! DO-NOT-DELETE splicer.end(ExceptionTest.NegativeValueException._dtor.use)
64
110
  implicit none
65
 
  type(ExceptionTest_NegativeValueException_t) :: self ! in
 
111
  type(ExceptionTest_NegativeValueException_t) :: self
 
112
  ! in
 
113
  type(sidl_BaseInterface_t) :: exception
 
114
  ! out
66
115
 
67
116
! DO-NOT-DELETE splicer.begin(ExceptionTest.NegativeValueException._dtor)
68
117
! Insert the implementation here...
71
120
 
72
121
 
73
122
! 
 
123
! Method:  _load[]
74
124
! Static class initializer called exactly once before any user-defined method is dispatched
75
125
! 
76
126
 
77
 
recursive subroutine NegativeValu__loadbmgox_806p_mi()
 
127
recursive subroutine NegativeValu__loadbmgox_806p_mi(exception)
 
128
  use sidl
 
129
  use sidl_NotImplementedException
 
130
  use sidl_BaseInterface
 
131
  use sidl_RuntimeException
78
132
  use ExceptionTest_NegativeValueException
79
133
  use ExceptionTest_NegativeValueException_impl
80
134
  ! DO-NOT-DELETE splicer.begin(ExceptionTest.NegativeValueException._load.use)
81
135
  ! Insert use statements here...
82
136
  ! DO-NOT-DELETE splicer.end(ExceptionTest.NegativeValueException._load.use)
83
137
  implicit none
 
138
  type(sidl_BaseInterface_t) :: exception
 
139
  ! out
84
140
 
85
141
! DO-NOT-DELETE splicer.begin(ExceptionTest.NegativeValueException._load)
86
142
! Insert the implementation here...