@@ -64,15 +64,11 @@ private List<Declaration> LoadSpecialFormDeclarations(Declaration parentModule)
64
64
Debug . Assert ( parentModule != null ) ;
65
65
66
66
var arrayFunction = ArrayFunction ( parentModule ) ;
67
- var inputFunction = InputFunction ( parentModule ) ;
68
- var inputBFunction = InputBFunction ( parentModule ) ;
69
67
var lboundFunction = LBoundFunction ( parentModule ) ;
70
68
var uboundFunction = UBoundFunction ( parentModule ) ;
71
69
72
70
return new List < Declaration > {
73
71
arrayFunction ,
74
- inputFunction ,
75
- inputBFunction ,
76
72
lboundFunction ,
77
73
uboundFunction
78
74
} ;
@@ -96,76 +92,76 @@ private static FunctionDeclaration ArrayFunction(Declaration parentModule)
96
92
new Attributes ( ) ) ;
97
93
}
98
94
99
- private static SubroutineDeclaration InputFunction ( Declaration parentModule )
100
- {
101
- var inputFunction = InputFunctionWithoutParameters ( parentModule ) ;
102
- inputFunction . AddParameter ( NumberParameter ( parentModule , inputFunction ) ) ;
103
- inputFunction . AddParameter ( FileNumberParameter ( parentModule , inputFunction ) ) ;
104
- return inputFunction ;
105
- }
106
-
107
- private static SubroutineDeclaration InputFunctionWithoutParameters ( Declaration parentModule )
108
- {
109
- return new SubroutineDeclaration (
110
- new QualifiedMemberName ( parentModule . QualifiedName . QualifiedModuleName , "Input" ) ,
111
- parentModule ,
112
- parentModule ,
113
- "Variant" ,
114
- Accessibility . Public ,
115
- null ,
116
- Selection . Home ,
117
- true ,
118
- null ,
119
- new Attributes ( ) ) ;
120
- }
121
-
122
- private static ParameterDeclaration NumberParameter ( Declaration parentModule , SubroutineDeclaration ParentSubroutine )
123
- {
124
- return new ParameterDeclaration (
125
- new QualifiedMemberName ( parentModule . QualifiedName . QualifiedModuleName , "Number" ) ,
126
- ParentSubroutine ,
127
- "Integer" ,
128
- null ,
129
- null ,
130
- false ,
131
- false ) ;
132
- }
133
-
134
- private static ParameterDeclaration FileNumberParameter ( Declaration parentModule , SubroutineDeclaration ParentSubroutine )
135
- {
136
- return new ParameterDeclaration (
137
- new QualifiedMemberName ( parentModule . QualifiedName . QualifiedModuleName , "Filenumber" ) ,
138
- ParentSubroutine ,
139
- "Integer" ,
140
- null ,
141
- null ,
142
- false ,
143
- false ) ;
144
- }
145
-
146
-
147
- private static SubroutineDeclaration InputBFunction ( Declaration parentModule )
148
- {
149
- var inputBFunction = InputBFunctionWithoutParameters ( parentModule ) ;
150
- inputBFunction . AddParameter ( NumberParameter ( parentModule , inputBFunction ) ) ;
151
- inputBFunction . AddParameter ( FileNumberParameter ( parentModule , inputBFunction ) ) ;
152
- return inputBFunction ;
153
- }
154
-
155
- private static SubroutineDeclaration InputBFunctionWithoutParameters ( Declaration parentModule )
156
- {
157
- return new SubroutineDeclaration (
158
- new QualifiedMemberName ( parentModule . QualifiedName . QualifiedModuleName , "InputB" ) ,
159
- parentModule ,
160
- parentModule ,
161
- "Variant" ,
162
- Accessibility . Public ,
163
- null ,
164
- Selection . Home ,
165
- true ,
166
- null ,
167
- new Attributes ( ) ) ;
168
- }
95
+ // private static SubroutineDeclaration InputFunction(Declaration parentModule)
96
+ // {
97
+ // var inputFunction = InputFunctionWithoutParameters(parentModule);
98
+ // inputFunction.AddParameter(NumberParameter(parentModule, inputFunction));
99
+ // inputFunction.AddParameter(FileNumberParameter(parentModule, inputFunction));
100
+ // return inputFunction;
101
+ // }
102
+
103
+ // private static SubroutineDeclaration InputFunctionWithoutParameters(Declaration parentModule)
104
+ // {
105
+ // return new SubroutineDeclaration(
106
+ // new QualifiedMemberName(parentModule.QualifiedName.QualifiedModuleName, "Input"),
107
+ // parentModule,
108
+ // parentModule,
109
+ // "Variant",
110
+ // Accessibility.Public,
111
+ // null,
112
+ // Selection.Home,
113
+ // true,
114
+ // null,
115
+ // new Attributes());
116
+ // }
117
+
118
+ // private static ParameterDeclaration NumberParameter(Declaration parentModule, SubroutineDeclaration ParentSubroutine)
119
+ // {
120
+ // return new ParameterDeclaration(
121
+ // new QualifiedMemberName(parentModule.QualifiedName.QualifiedModuleName, "Number"),
122
+ // ParentSubroutine,
123
+ // "Integer",
124
+ // null,
125
+ // null,
126
+ // false,
127
+ // false);
128
+ // }
129
+
130
+ // private static ParameterDeclaration FileNumberParameter(Declaration parentModule, SubroutineDeclaration ParentSubroutine)
131
+ // {
132
+ // return new ParameterDeclaration(
133
+ // new QualifiedMemberName(parentModule.QualifiedName.QualifiedModuleName, "Filenumber"),
134
+ // ParentSubroutine,
135
+ // "Integer",
136
+ // null,
137
+ // null,
138
+ // false,
139
+ // false);
140
+ // }
141
+
142
+
143
+ // private static SubroutineDeclaration InputBFunction(Declaration parentModule)
144
+ // {
145
+ // var inputBFunction = InputBFunctionWithoutParameters(parentModule);
146
+ // inputBFunction.AddParameter(NumberParameter(parentModule, inputBFunction));
147
+ // inputBFunction.AddParameter(FileNumberParameter(parentModule, inputBFunction));
148
+ // return inputBFunction;
149
+ // }
150
+
151
+ // private static SubroutineDeclaration InputBFunctionWithoutParameters(Declaration parentModule)
152
+ // {
153
+ // return new SubroutineDeclaration(
154
+ // new QualifiedMemberName(parentModule.QualifiedName.QualifiedModuleName, "InputB"),
155
+ // parentModule,
156
+ // parentModule,
157
+ // "Variant",
158
+ // Accessibility.Public,
159
+ // null,
160
+ // Selection.Home,
161
+ // true,
162
+ // null,
163
+ // new Attributes());
164
+ // }
169
165
170
166
171
167
private static FunctionDeclaration LBoundFunction ( Declaration parentModule )
0 commit comments