From 63ba4d5e7b11340d9540d092c2cb2901e984b160 Mon Sep 17 00:00:00 2001
From: EricFromCanada <eric3knibbe@gmail.com>
Date: Sun, 10 Feb 2013 00:05:22 -0500
Subject: refactor for speed lists unbound methods separately

---
 external/lasso-builtins-generator-9.lasso | 85 ++++++++++++++++++-------------
 1 file changed, 51 insertions(+), 34 deletions(-)

(limited to 'external/lasso-builtins-generator-9.lasso')

diff --git a/external/lasso-builtins-generator-9.lasso b/external/lasso-builtins-generator-9.lasso
index fc6d130a..3fa0bd12 100755
--- a/external/lasso-builtins-generator-9.lasso
+++ b/external/lasso-builtins-generator-9.lasso
@@ -11,7 +11,13 @@
 	A partial list of keywords in Lasso 8 can be generated with this code:
 
 	<?LassoScript
-		local('l8tags' = list);
+		local('l8tags' = list,
+					'l8libs' = array('Cache','ChartFX','Client','Database','File','HTTP',
+						'iCal','Lasso','Link','List','PDF','Response','Stock','String',
+						'Thread','Valid','WAP','XML'));
+		iterate(#l8libs, local('library'));
+			local('result' = namespace_load(#library));
+		/iterate;
 		iterate(tags_list, local('i'));
 			#l8tags->insert(string_removeleading(#i, -pattern='_global_'));
 		/iterate;
@@ -33,6 +39,9 @@ local(f) = file("lassobuiltins-9.py")
     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
     Built-in Lasso types, traits, and methods.
+
+    :copyright: Copyright 2006-'+date->year+' by the Pygments team, see AUTHORS.
+    :license: BSD, see LICENSE for details.
 """
 
 ')
@@ -61,66 +70,74 @@ do protect => {
 local(
 	typesList = list(),
 	traitsList = list(),
+	unboundMethodsList = list(),
 	methodsList = list()
 )
 
-// unbound methods
-with method in sys_listUnboundMethods
-let m_name = #method->methodName->asString
-where not #m_name->endsWith('=')		// skip setter methods
-where #m_name->isAlpha(1)		// skip unpublished methods
-where #methodsList !>> #m_name
-do #methodsList->insert(#m_name)
+// types
+with type in sys_listTypes
+where #typesList !>> #type
+do {
+	#typesList->insert(#type)
+	with method in #type->getType->listMethods
+	let name = #method->methodName
+	where not #name->asString->endsWith('=')		// skip setter methods
+	where #name->asString->isAlpha(1)		// skip unpublished methods
+	where #methodsList !>> #name
+	do #methodsList->insert(#name)
+}
 
 // traits
 with trait in sys_listTraits
-let name = #trait->asString
-where not #name->beginsWith('$')		// skip combined traits
-where #traitsList !>> #name
+where not #trait->asString->beginsWith('$')		// skip combined traits
+where #traitsList !>> #trait
 do {
-	#traitsList->insert(#name)
+	#traitsList->insert(#trait)
 	with method in tie(#trait->getType->provides, #trait->getType->requires)
-	let m_name = #method->methodName->asString
-	where not #m_name->endsWith('=')		// skip setter methods
-	where #m_name->isAlpha(1)		// skip unpublished methods
-	where #methodsList !>> #m_name
-	do #methodsList->insert(#m_name)
+	let name = #method->methodName
+	where not #name->asString->endsWith('=')		// skip setter methods
+	where #name->asString->isAlpha(1)		// skip unpublished methods
+	where #methodsList !>> #name
+	do #methodsList->insert(#name)
 }
 
-// types
-with type in sys_listTypes
-let name = #type->asString
-where not #name->endsWith('$')		// skip threads
+// unbound methods
+with method in sys_listUnboundMethods
+let name = #method->methodName
+where not #name->asString->endsWith('=')		// skip setter methods
+where #name->asString->isAlpha(1)		// skip unpublished methods
 where #typesList !>> #name
-do {
-	#typesList->insert(#name)
-	with method in #type->getType->listMethods
-	let m_name = #method->methodName->asString
-	where not #m_name->endsWith('=')		// skip setter methods
-	where #m_name->isAlpha(1)		// skip unpublished methods
-	where #methodsList !>> #m_name
-	do #methodsList->insert(#m_name)
-}
+where #traitsList !>> #name
+where #unboundMethodsList !>> #name
+do #unboundMethodsList->insert(#name)
 
 #f->writeString("BUILTINS = {
     'Types': [
 ")
 with t in #typesList
-do #f->writeString("        '"+string_lowercase(#t)+"',\n")
+do !#t->asString->endsWith('$') ? #f->writeString("        '"+string_lowercase(#t->asString)+"',\n")
 
 #f->writeString("    ],
     'Traits': [
 ")
 with t in #traitsList
-do #f->writeString("        '"+string_lowercase(#t)+"',\n")
+do #f->writeString("        '"+string_lowercase(#t->asString)+"',\n")
 
 #f->writeString("    ],
+    'Unbound Methods': [
+")
+with t in #unboundMethodsList
+do #f->writeString("        '"+string_lowercase(#t->asString)+"',\n")
+
+#f->writeString("    ]
+}
+METHODS = {
     'Methods': [
 ")
 with t in #methodsList
-do #f->writeString("        '"+string_lowercase(#t)+"',\n")
+do #f->writeString("        '"+string_lowercase(#t->asString)+"',\n")
 
-#f->writeString("    ],
+#f->writeString("    ]
 }
 ")
 
-- 
cgit v1.2.1