Added intern_ids.rb

1 files changed, 16 insertions, 10 deletions

diff --git a/defs/id.def b/defs/id.def
index fc7a04ffbc..cf359c12b1 100644
--- a/defs/id.def
+++ b/defs/id.def
@@ -138,6 +138,21 @@ class KeywordError < RuntimeError
   end
 end
 
+def id2varname(token, prefix = nil)
+  if /#/ =~ token
+    token = "_#{token.gsub(/\W+/, '_')}"
+  else
+    token = token.sub(/\?/, 'P')
+    token = prefix + token if prefix
+    token.sub!(/\A[a-z]/) {$&.upcase}
+    token.sub!(/\A\$/, "_G_")
+    token.sub!(/\A@@/, "_C_")
+    token.sub!(/\A@/, "_I_")
+    token.gsub!(/\W+/, "")
+  end
+  token
+end
+
 predefined_ids = {}
 preserved_ids = []
 local_ids = []
@@ -153,16 +168,7 @@ predefined.split(/^/).each_with_index do |line, num|
   line.sub!(/\s+#.*/, '')
   name, token = line.split
   next unless name
-  token ||= name
-  if /#/ =~ token
-    token = "_#{token.gsub(/\W+/, '_')}"
-  else
-    token = token.sub(/\?/, 'P').sub(/\A[a-z]/) {$&.upcase}
-    token.sub!(/\A\$/, "_G_")
-    token.sub!(/\A@@/, "_C_")
-    token.sub!(/\A@/, "_I_")
-    token.gsub!(/\W+/, "")
-  end
+  token = id2varname(token || name)
   if name == '-'
     preserved_ids << token
     next