dllutl.rb

MIDI解码程序(用VC编写)

#!/usr/local/bin/ruby

# DLL 偺僟僀僫儈僢僋儘乕僪梡僣乕儖
# 侾峴栚 僋儔僗柤
# 俀峴栚 dll 柤
# 俁峴栚埲崀 娭悢僾儘僩僞僀僾
# 側僼傽僀儖 source 傪
# ruby dllutl.rb < source
# 偲偟偰傗傟偽丄偦偺娭悢傪 dll 偐傜僟僀僫儈僢僋儘乕僪偟偰偔傟傞
# 僜乕僗傪帺摦嶌惉偟偰偔傟傞丅偨偩偟丄偁傑傝暋嶨側娭悢僾儘僩僞僀僾偵偼
# 枹懳墳丅摿偵 () 偑傜傒丅
#
# 揔梡丗Public Domain
#
# Version 0.1p
#
# Daisuke Aoki <[e-mail]>

def arg_ana(args)
  list = []
  temp = ""
  if args.index(",")==nil
    temp = args
  else
    temp = args.split(/,/)
  end
  for i in temp
    if i == "void"
      return []
    end
    if i =~ /\s*(.*)\s+(\S+)\s*/
      rest = $2
      if rest =~ /(\s*\**\s*\**\s*\**\s*\**\s*)(.*)/
        list << $2
      else
        return nil
      end
    else
      return nil
    end
  end
  return list
end

class_name = "default_name"
dll_name = "default_name.dll"
class_name = gets.chomp
dll_name = gets.chomp

funclist = []
while gets
#    if $_ =~ /(\s*[^\s]\s+\**)([^\(]+)(\(.*\))\;\s*/
#    if $_ =~ /(\s*\S+\s+)([^\(]+)(\(.*\))\;\s*/
    if $_ =~ /^#.*/
      next
    end
    rest = $_
    part_prev = ""
    part_func = ""
    part_post = ""
    if rest =~ /\s*(.*)\s*(\(.*?\))\s*;/
      rest = $1
      part_post << $2
      if rest =~ /\s*(.*)\s+(\S+)\s*/
        part_prev << $1
        rest = $2
        if rest =~ /(\s*\**\s*\**\s*\**\s*\**\s*)(.*)/
          part_prev << $1
          part_func << $2
#          printf("<%s><%s><%s>\n",part_prev,part_func,part_post)
        end
      end
    end
    if part_func!=""
      funclist << [part_prev,part_func,part_post]
    end
end

print "/***************************************************************\n"
printf " name: %s  dll: %s \n",class_name,dll_name
print "***************************************************************/\n"

print "\n"
printf "extern int load_%s(void);\n",class_name
printf "extern void free_%s(void);\n",class_name
print "\n"

for i in funclist
  printf "typedef %s(*type_%s)%s;\n",i[0],i[1],i[2]
end
printf "\nstatic struct %s_ {\n",class_name
for i in funclist
  printf "\t type_%s %s;\n",i[1],i[1]
end
printf "} %s;\n\n",class_name

printf "static volatile HANDLE h_%s = NULL;\n\n",class_name

printf "void free_%s(void)
{
\tif(h_%s){
\t\tFreeLibrary(h_%s);
\t\th_%s = NULL;
\t}
}

",class_name,class_name,class_name,class_name

printf "int load_%s(void)
{
\tif(!h_%s){
\t\th_%s = LoadLibrary(\"%s\");
\t\tif(!h_%s) return -1;
\t}
",class_name,class_name,class_name,dll_name,class_name
for i in funclist
  printf "\t%s.%s = (type_%s)GetProcAddress(h_%s,\"%s\");\n",class_name,i[1],i[1],class_name,i[1]
  printf "\tif(!%s.%s){ free_%s(); return -1; }\n",class_name,i[1],class_name
end
printf "\treturn 0;\n}\n\n"

for i in funclist
  printf "%s %s%s
{
\tif(h_%s){
",i[0],i[1],i[2],class_name
  if i[0] =~ /\s*void\s*/
    printf "\t\t%s.%s(",class_name,i[1]
  else
    printf "\t\treturn %s.%s(",class_name,i[1]
  end
  args = ""
  if i[2] =~ /\((.*)\)/
    args = $1.strip
  end
  arglist = arg_ana(args)
  if arglist == nil
    print "\n@@@ BAD @@@\n"
    exit
  end
  num = 0
  for j in arglist
    if j != "void"
      print "," if num!=0
      print j
      num += 1
    end
  end
  print ");\n"
  if i[0] =~ /\s*void\s*/
    printf "\t}\n"
  else
    printf "\t}\n\treturn (%s)0;\n",i[0]
  end
  printf "}\n\n"
end

print "/***************************************************************/\n"