SF.net SVN: frontierkernel: [1358] ODBs/trunk/frontierRoot/suites/aeTerminology/data/DuckTapeRootLeftovers/DuckTapeSuite/compileDocs.fvc

[<cre...@us...>]

Revision: 1358
Author:   creecode
Date:     2006-05-05 12:11:04 -0700 (Fri, 05 May 2006)
ViewCVS:  http://svn.sourceforge.net/frontierkernel/?rev=1358&view=rev

Log Message:
-----------
no functional change to script

file reencoded

Modified Paths:
--------------
    ODBs/trunk/frontierRoot/suites/aeTerminology/data/DuckTapeRootLeftovers/DuckTapeSuite/compileDocs.fvc
Modified: ODBs/trunk/frontierRoot/suites/aeTerminology/data/DuckTapeRootLeftovers/DuckTapeSuite/compileDocs.fvc
===================================================================
--- ODBs/trunk/frontierRoot/suites/aeTerminology/data/DuckTapeRootLeftovers/DuckTapeSuite/compileDocs.fvc	2006-05-05 18:55:58 UTC (rev 1357)
+++ ODBs/trunk/frontierRoot/suites/aeTerminology/data/DuckTapeRootLeftovers/DuckTapeSuite/compileDocs.fvc	2006-05-05 19:11:04 UTC (rev 1358)
@@ -1,23 +1,23 @@
-FrontierVcsFile:1:scpt:suites.aeTerminology.data.DuckTapeRootLeftovers.DuckTapeSuite.compileDocs
+FrontierVcsFile:2:scpt:suites.aeTerminology.data.DuckTapeRootLeftovers.DuckTapeSuite.compileDocs
 
 on compileDocs (adrOutline) {
-	\xC7 version 1.1; 8/21/92, dmb
-		\xC7use '\xC8 'character for example results, and only in examples section
-			\xC7also checks to see if the character is already there
-			\xC7and makes sure that it's the only heading at that level
-		\xC7write each verb out to the file we go, reducing memory requirements
-	local (s); \xC7holds the text to be written to the file
+	« version 1.1; 8/21/92, dmb
+		«use '» 'character for example results, and only in examples section
+			«also checks to see if the character is already there
+			«and makes sure that it's the only heading at that level
+		«write each verb out to the file we go, reducing memory requirements
+	local (s); «holds the text to be written to the file
 	
 	destfile = "DocServer Source Text";
 	if not file.putFileDialog ("DocServer text file to create:", @destfile) {
 		return};
 	
-	bundle { \xC7create the file
+	bundle { «create the file
 		file.new (destfile);
 		file.setType (destfile, 'TEXT');
 		file.setCreator (destfile, 'DOCS')};
 	
-	bundle { \xC7traverse the outline, writing one verb to the file at a time
+	bundle { «traverse the outline, writing one verb to the file at a time
 		target.set (adrOutline);
 		op.firstsummit ();
 		op.fullcollapse ();
@@ -37,11 +37,11 @@
 					if ctSubs > 0 {
 						op.expand (1);
 						op.go (right, 1);
-						if (ctSubs == 1) and (section == "Examples") { \xC7an example
+						if (ctSubs == 1) and (section == "Examples") { «an example
 							local (line);
 							line = op.getLineText ();
-							if string.nthChar (line, 1) \xAD '\xC8' {
-								line = "\xC8 " + line};
+							if string.nthChar (line, 1) ≠ '»' {
+								line = "» " + line};
 							s = s + tab + line + cr}
 						else {
 							loop {
@@ -63,8 +63,8 @@
 			if not op.go (down, 1) {
 				break}};
 		op.firstsummit ();
-		target.clear ()}; \xC7done with the outline
+		target.clear ()}; «done with the outline
 	
-	Finder.reveal (destfile); \xC7show the exported file
+	Finder.reveal (destfile); «show the exported file
 	Frontier.finderToFront = false;
 	return (true)}
\ No newline at end of file


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