[sc-dev] SF.net SVN: supercollider:[8349] trunk/build/SCClassLibrary/Common/Files/ Help.sc

[danstowell@xxxxxxxxxxxxxxxxxxxxx]

Revision: 8349
          http://supercollider.svn.sourceforge.net/supercollider/?rev=8349&view=rev
Author:   danstowell
Date:     2008-12-31 18:57:05 +0000 (Wed, 31 Dec 2008)

Log Message:
-----------
Add methods to write+read the Help.tree to file (tree is too large to read from sc's standard format)

Modified Paths:
--------------
    trunk/build/SCClassLibrary/Common/Files/Help.sc

Modified: trunk/build/SCClassLibrary/Common/Files/Help.sc
===================================================================
--- trunk/build/SCClassLibrary/Common/Files/Help.sc	2008-12-31 18:41:54 UTC (rev 8348)
+++ trunk/build/SCClassLibrary/Common/Files/Help.sc	2008-12-31 18:57:05 UTC (rev 8349)
@@ -32,7 +32,7 @@
 		var helpExtensions = ['html', 'scd', 'rtf', 'rtfd'];
 		var helpDirs = Array.new;
 		var thisHelpExt;
-		if(tree.isNil, {
+		if(tree.isNil, { "Help files scanned in % seconds".format({
 			// Building the tree - base class was originally UGen
 			
 			// Help file paths - will be used for categorising, if categories is nil or if not a class's helpfile.
@@ -57,7 +57,7 @@
 			helpDirs.do{ |helpDir|
 				this.addDirTree( helpDir,tree );
 			};
-		});
+		}.bench(false)).postln});
 		^tree;
 	}
 
@@ -182,8 +182,56 @@
 		
 	}
 
+	*writeTextArchive{ |path|
+		var fp = File(path, "w");
+		this.prRecurseTreeToFile(fp, this.tree); // Must use this.tree - will create if not exists
+		fp.close;
+	}
 
+	*prRecurseTreeToFile{ | fp, treeBit, numtabs=0 |
+		fp.write("%%\n".format($\t.dup(numtabs).join, treeBit.size));
+		treeBit.keysValuesDo{| key, val |
+			fp.write("%%\n".format($\t.dup(numtabs).join, key.asString));
+			if(val.isKindOf(Dictionary)){
+				this.prRecurseTreeToFile(fp, val, numtabs + 1)
+			}{
+				fp.write("%%\n".format($\t.dup(numtabs).join, val.asString));
+			}
+		};
+	}
 
+	*readTextArchive{ |path|
+		var fp = File(path, "r");
+		try{
+			tree = this.prRecurseTreeFromFile(fp);
+		}{
+			"Failure in Help.treeFromFile(%)".format(path).warn;
+			this.forgetTree;
+		};
+		fp.close;
+	}
+
+	*prRecurseTreeFromFile{ | fp, numtabs=0 |
+		var line, numentries, dict, key;
+		line = fp.getLine[numtabs..];
+		numentries = line.asInteger;
+		dict = Dictionary.new(numentries);
+		numentries.do{
+			line = fp.getLine[numtabs..];
+			key = line;
+			if(key[0]==$[ and:{ key[1]==$[ }){
+				// starting with [[ is indicator of being a category
+				dict[key] = this.prRecurseTreeFromFile(fp, numtabs+1);
+			}{
+				line = fp.getLine[numtabs..];
+				key = key.asSymbol;
+				key = key.asClass ? key; // Classes become classes, topics stay as symbols
+				dict[key] = line;
+			}
+		};
+		^dict
+	}
+
 *gui { |sysext=true,userext=true|
 	var classes, win, lists, listviews, numcols=5, selecteditem, node, newlist, curkey, selectednodes, scrollView, compView, textView, /* buttonView, */ classButt, browseButt, bwdButt, fwdButt, isClass, history = [], historyIdx = 0, fBwdFwd, fHistoryDo, fHistoryMove, screenBounds, bounds;
 	


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

_______________________________________________
sc-dev mailing list

info (subscription, etc.): http://www.beast.bham.ac.uk/research/sc_mailing_lists.shtml
archive: https://listarc.bham.ac.uk/marchives/sc-dev/
search: https://listarc.bham.ac.uk/lists/sc-dev/search/