ruby--ruby/lib/xsd/codegen/gensupport.rb

113 lines
2.3 KiB
Ruby

# XSD4R - Code generation support
# Copyright (C) 2004 NAKAMURA, Hiroshi <nahi@ruby-lang.org>.
# This program is copyrighted free software by NAKAMURA, Hiroshi. You can
# redistribute it and/or modify it under the same terms of Ruby's license;
# either the dual license version in 2003, or any later version.
module XSD
module CodeGen
module GenSupport
def capitalize(target)
target.sub(/^([a-z])/) { $1.tr!('[a-z]', '[A-Z]') }
end
module_function :capitalize
def uncapitalize(target)
target.sub(/^([A-Z])/) { $1.tr!('[A-Z]', '[a-z]') }
end
module_function :uncapitalize
def safeconstname(name)
safename = name.scan(/[a-zA-Z0-9_]+/).collect { |ele|
GenSupport.capitalize(ele)
}.join
unless /^[A-Z]/ =~ safename
safename = "C_#{safename}"
end
safename
end
module_function :safeconstname
def safeconstname?(name)
/\A[A-Z][a-zA-Z0-9_]*\z/ =~ name
end
module_function :safeconstname?
def safemethodname(name)
safevarname(name)
end
module_function :safemethodname
def safemethodname?(name)
/\A[a-zA-Z_][a-zA-Z0-9_]*[=!?]?\z/ =~ name
end
module_function :safemethodname?
def safevarname(name)
safename = name.scan(/[a-zA-Z0-9_]+/).join('_')
safename = uncapitalize(safename)
unless /^[a-z]/ =~ safename
safename = "m_#{safename}"
end
safename
end
module_function :safevarname
def safevarname?(name)
/\A[a-z_][a-zA-Z0-9_]*\z/ =~ name
end
module_function :safevarname?
def format(str, indent = nil)
str = trim_eol(str)
str = trim_indent(str)
if indent
str.gsub(/^/, " " * indent)
else
str
end
end
private
def trim_eol(str)
str.collect { |line|
line.sub(/\r?\n$/, "") + "\n"
}.join
end
def trim_indent(str)
indent = nil
str = str.collect { |line| untab(line) }.join
str.each do |line|
head = line.index(/\S/)
if !head.nil? and (indent.nil? or head < indent)
indent = head
end
end
return str unless indent
str.collect { |line|
line.sub(/^ {0,#{indent}}/, "")
}.join
end
def untab(line, ts = 8)
while pos = line.index(/\t/)
line = line.sub(/\t/, " " * (ts - (pos % ts)))
end
line
end
def dump_emptyline
"\n"
end
end
end
end