Mercurial > repos > rhope

diff interp.c @ 26:20d40cb8abf3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added Get Double@File
author Mike Pavone <pavone@retrodev.com>
date Fri, 26 Jun 2009 17:23:20 -0400
parents 23dd9c766699
children d8b4d38fceb6
line wrap: on
line diff
--- a/interp.c	Wed Jun 24 23:56:49 2009 -0400
+++ b/interp.c	Fri Jun 26 17:23:20 2009 -0400
@@ -1687,6 +1687,10 @@
 	aworker->input_types[0] = BUILTIN_TYPE_FILE;
 	//add_method(this_comp, aworker);
 	
+	aworker = create_worker(prog, "Get Double@File", 1, 3, WORKER_TYPE);
+	aworker->implement_func=(custom_worker *)vis_file_get_double;
+	aworker->input_types[0] = BUILTIN_TYPE_FILE;
+	
 	aworker = create_worker(prog, "Put String@File", 2, 1, WORKER_TYPE);
 	aworker->implement_func=(custom_worker *)vis_file_put_string;
 	aworker->input_types[0] = BUILTIN_TYPE_FILE;