Class: SAPNW::RFC::Type

Inherits:
Object
  • Object
show all
Defined in:
lib/sapnwrfc/parameters.rb

Instance Attribute Summary collapse

Instance Method Summary collapse

Constructor Details

#initialize(*args) ⇒ Type

Returns a new instance of Type.



272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
 
# File 'lib/sapnwrfc/parameters.rb', line 272

def initialize(*args)
	args = args.first if args.class == Array and args.first.class == Hash
  case args
	  when Array
		  name, type, len, ulen, decimals, fields = args
		when Hash
		  raise "Missing Type :name => #{args.inspect}\n" unless args.has_key?(:name)
		  raise "Missing Type :type => #{args.inspect}\n" unless args.has_key?(:type)
		  #raise "Missing Type :len => #{args.inspect}\n" unless args.has_key?(:len)
			case args[:type]
			  when SAPNW::RFC::CHAR, SAPNW::RFC::DATE, SAPNW::RFC::BCD, SAPNW::RFC::TIME, SAPNW::RFC::BYTE, SAPNW::RFC::TABLE, SAPNW::RFC::NUM, SAPNW::RFC::FLOAT, SAPNW::RFC::INT, SAPNW::RFC::INT2, SAPNW::RFC::INT1, SAPNW::RFC::NULL, SAPNW::RFC::STRUCTURE, SAPNW::RFC::DECF16, SAPNW::RFC::DECF34, SAPNW::RFC::XMLDATA, SAPNW::RFC::STRING, SAPNW::RFC::XSTRING, SAPNW::RFC::EXCEPTION
				else
				  raise "Invalid SAPNW::RFC* type supplied (#{args[:type]})\n"
			end
      len = 0
      ulen = 0
      decimals = 0
			name = args[:name]
			type = args[:type]
			len = args[:len] if args.has_key?(:len)
			ulen = 2 * len
			ulen = args[:ulen] if args.has_key?(:ulen)
			decimals = args[:decimals] if args.has_key?(:decimals)
			fields = args[:fields] if args.has_key?(:fields)
		else
		  raise "invalid parameters in SAPNW::RFC::Type: #{args.inspect}\n"
	end
	@name = name
	@type = type
	@len = len
	@ulen = ulen
	@decimals = decimals
	if fields
	  raise "Fields must be an Array (#{fields.inspect})\n" unless fields.class == Array
	  slen = 0
	  sulen = 0
	  fields.each do |val|
	    raise "each field definition must be a Hash (#{val.inspect})\n" unless val.class == Hash
			unless val.has_key?(:name) and
			       val.has_key?(:type) and
			       val.has_key?(:len)
	      raise "each field definition must have :name, :type, and :len (#{val.inspect})\n"
			end
			val[:ulen] = val[:len] * 2 unless val.has_key?(:ulen)
			val[:decimals] = 0 unless val.has_key?(:decimals)
			slen += val[:len]
			sulen += val[:ulen]
			# sort out nested types
			if val[:type].class == SAPNW::RFC::Type
			  val[:typedef] = val[:type]
				val[:type] = val[:typedef].type
			end
		end
		@len = slen unless @len > 0
		@ulen = sulen unless @ulen > 0
	end
	@fields = fields
	#$stderr.print "initilised Type(#{name}): #{type} - #{@fields.inspect}\n"
end

Instance Attribute Details

#decimals ⇒ Object (readonly)

Returns the value of attribute decimals.



270
271
272
 
# File 'lib/sapnwrfc/parameters.rb', line 270

def decimals
  @decimals
end

#fields ⇒ Object (readonly)

Returns the value of attribute fields.



270
271
272
 
# File 'lib/sapnwrfc/parameters.rb', line 270

def fields
  @fields
end

#len ⇒ Object (readonly)

Returns the value of attribute len.



270
271
272
 
# File 'lib/sapnwrfc/parameters.rb', line 270

def len
  @len
end

#name ⇒ Object (readonly)

Returns the value of attribute name.



270
271
272
 
# File 'lib/sapnwrfc/parameters.rb', line 270

def name
  @name
end

#type ⇒ Object (readonly)

Returns the value of attribute type.



270
271
272
 
# File 'lib/sapnwrfc/parameters.rb', line 270

def type
  @type
end

#ulen ⇒ Object (readonly)

Returns the value of attribute ulen.



270
271
272
 
# File 'lib/sapnwrfc/parameters.rb', line 270

def ulen
  @ulen
end