DIRECTOR: Lingo: Documented D4 "External to Director" Lingo

4 files changed, 42 insertions, 0 deletions

diff --git a/engines/director/lingo/lingo-builtins.cpp b/engines/director/lingo/lingo-builtins.cpp
index 4f1136bf42..5ef7486867 100644
--- a/engines/director/lingo/lingo-builtins.cpp
+++ b/engines/director/lingo/lingo-builtins.cpp
@@ -84,10 +84,12 @@ static struct BuiltinProto {
 	{ "closeDA",	 	Lingo::b_closeDA, 		0, 0, false },	// D2
 	{ "closeResFile",	Lingo::b_closeResFile,	0, 1, false },	// D2
 	{ "closeXlib",		Lingo::b_closeXlib,		0, 1, false },	// D2
+	{ "getNthFileNameInFolder",Lingo::b_getNthFileNameInFolder,2,2,true },//D4
 		// open													// D2
 	{ "openDA",	 		Lingo::b_openDA, 		1, 1, false },	// D2
 	{ "openResFile",	Lingo::b_openResFile,	1, 1, false },	// D2
 	{ "openXlib",		Lingo::b_openXlib,		1, 1, false },	// D2
+	{ "saveMovie",		Lingo::b_saveMovie,		1, 1, false },	//			D4
 	{ "setCallBack",	Lingo::b_setCallBack,	2, 2, false },	//		D3
 	{ "showResFile",	Lingo::b_showResFile,	0, 1, false },	// D2
 	{ "showXlib",		Lingo::b_showXlib,		0, 1, false },	// D2
@@ -136,6 +138,7 @@ static struct BuiltinProto {
 	// Score
 	{ "constrainH",		Lingo::b_constrainH,	2, 2, true },	// D2
 	{ "constrainV",		Lingo::b_constrainV,	2, 2, true },	// D2
+	{ "copyToClipBoard",Lingo::b_copyToClipBoard,1,1, false },	//			D4
 	{ "duplicate",		Lingo::b_duplicate,		1, 2, false },	//			D4
 	{ "editableText",	Lingo::b_editableText,	0, 0, false },	// D2
 	{ "erase",			Lingo::b_erase,			1, 1, false },	//			D4
@@ -199,6 +202,8 @@ static const char *builtinFunctions[] = {
 	"cast",
 	"field",
 	"findEmpty",
+	"getNthFileNameInFolder",
+	"xFactoryList",
 	0
 };
 
@@ -632,6 +637,14 @@ void Lingo::b_closeXlib(int nargs) {
 	delete d.u.s;
 }
 
+void Lingo::b_getNthFileNameInFolder(int nargs) {
+	g_lingo->printSTUBWithArglist("b_getNthFileNameInFolder", nargs);
+
+	g_lingo->dropStack(nargs);
+
+	g_lingo->push(Datum(0));
+}
+
 void Lingo::b_openDA(int nargs) {
 	Datum d = g_lingo->pop();
 
@@ -662,6 +675,12 @@ void Lingo::b_openXlib(int nargs) {
 	delete d.u.s;
 }
 
+void Lingo::b_saveMovie(int nargs) {
+	g_lingo->printSTUBWithArglist("b_saveMovie", nargs);
+
+	g_lingo->dropStack(nargs);
+}
+
 void Lingo::b_setCallBack(int nargs) {
 	warning("STUB: b_setCallBack");
 }
@@ -919,6 +938,12 @@ void Lingo::b_constrainV(int nargs) {
 	g_lingo->push(Datum(0));
 }
 
+void Lingo::b_copyToClipBoard(int nargs) {
+	g_lingo->printSTUBWithArglist("b_copyToClipBoard", nargs);
+
+	g_lingo->dropStack(nargs);
+}
+
 void Lingo::b_duplicate(int nargs) {
 	g_lingo->printSTUBWithArglist("b_duplicate", nargs);
 
diff --git a/engines/director/lingo/lingo-the.cpp b/engines/director/lingo/lingo-the.cpp
index f31cc96b64..1f07520132 100644
--- a/engines/director/lingo/lingo-the.cpp
+++ b/engines/director/lingo/lingo-the.cpp
@@ -86,6 +86,10 @@ TheEntity entities[] = {
 	{ kTheMouseV,			"mouseV",			false },	// D2 f
 	{ kTheMouseWord,		"mouseWord",		false },	//		D3 f
 	{ kTheMovie,			"movie",			false },	// D2 f
+	{ kTheMovieFileFreeSize,"movieFileFreeSize",false },	//				D4 f
+	{ kTheMovieFileSize,	"movieFileSize",	false },	//				D4 f
+	{ kTheMovieName,		"movieName",		false },	//				D4 f
+	{ kTheMoviePath,		"moviePath",		false },	//				D4 f
 	{ kTheMultiSound,		"multiSound",		false },
 	{ kTheOptionDown,		"optionDown",		false },	// D2 f
 	{ kTheParamCount,		"paramCount",		false },	//				D4 f
@@ -99,6 +103,8 @@ TheEntity entities[] = {
 	{ kTheRightMouseDown,	"rightMouseDown",	false },
 	{ kTheRightMouseUp,		"rightMouseUp",		false },
 	{ kTheRomanLingo,		"romanLingo",		false },
+	{ kTheSearchCurrentFolder,"searchCurrentFolder",false },//				D4 f
+	{ kTheSearchPath,		"searchPath",		false },	//				D4 f
 	{ kTheSelection,		"selection",		false },	// D2 f
 	{ kTheSelEnd,			"selEnd",			false },	// D2 p
 	{ kTheSelStart,			"selStart",			false },	// D2 p
@@ -127,6 +133,7 @@ TheEntity entities[] = {
 	{ kTheTrace,			"trace",			false },	//				D4 p
 	{ kTheTraceLoad,		"traceLoad",		false },	//				D4 p
 	{ kTheTraceLogFile,		"traceLogFile",		false },	//				D4 p
+	{ kTheUpdateMovieEnabled,"updateMovieEnabled",false },	//				D4 p
 	{ kTheWindow,			"window",			false },
 	{ kTheWords,			"words",			false },	//		 D3
 	{ kTheNOEntity, NULL, false }
diff --git a/engines/director/lingo/lingo-the.h b/engines/director/lingo/lingo-the.h
index eaecd3ecc1..a269d7b85a 100644
--- a/engines/director/lingo/lingo-the.h
+++ b/engines/director/lingo/lingo-the.h
@@ -84,6 +84,10 @@ enum TheEntityType {
 	kTheMouseV,
 	kTheMouseWord,
 	kTheMovie,
+	kTheMovieFileFreeSize,
+	kTheMovieFileSize,
+	kTheMovieName,
+	kTheMoviePath,
 	kTheMultiSound,
 	kTheOptionDown,
 	kTheParamCount,
@@ -97,6 +101,8 @@ enum TheEntityType {
 	kTheRightMouseDown,
 	kTheRightMouseUp,
 	kTheRomanLingo,
+	kTheSearchCurrentFolder,
+	kTheSearchPath,
 	kTheSelection,
 	kTheSelEnd,
 	kTheSelStart,
@@ -125,6 +131,7 @@ enum TheEntityType {
 	kTheTrace,
 	kTheTraceLoad,
 	kTheTraceLogFile,
+	kTheUpdateMovieEnabled,
 	kTheWindow,
 	kTheWords
 };
diff --git a/engines/director/lingo/lingo.h b/engines/director/lingo/lingo.h
index f25bf33426..31cd00495e 100644
--- a/engines/director/lingo/lingo.h
+++ b/engines/director/lingo/lingo.h
@@ -384,6 +384,7 @@ public:
 
 	static void b_constrainH(int nargs);
 	static void b_constrainV(int nargs);
+	static void b_copyToClipBoard(int nargs);
 	static void b_duplicate(int nargs);
 	static void b_editableText(int nargs);
 	static void b_erase(int nargs);
@@ -427,10 +428,12 @@ public:
 	static void b_closeDA(int nargs);
 	static void b_closeResFile(int nargs);
 	static void b_closeXlib(int nargs);
+	static void b_getNthFileNameInFolder(int nargs);
 	static void b_openDA(int nargs);
 	static void b_openResFile(int nargs);
 	static void b_openXlib(int nargs);
 	static void b_setCallBack(int nargs);
+	static void b_saveMovie(int nargs);
 	static void b_showResFile(int nargs);
 	static void b_showXlib(int nargs);
 	static void b_xFactoryList(int nargs);