[Tinyos-commits] CVS: tinyos-1.x/tos/lib/VM/languages/motlle/src mload.mt, 1.4, 1.5

[David Gay]

Update of /cvsroot/tinyos/tinyos-1.x/tos/lib/VM/languages/motlle/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24466/src

Modified Files:
	mload.mt 
Log Message:
pick default language for mload
more scheme-like lexing (chars, #t, #f, number-radix prefixes)
more scheme-like constants


Index: mload.mt
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/tos/lib/VM/languages/motlle/src/mload.mt,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** mload.mt	25 Oct 2005 22:33:21 -0000	1.4
--- mload.mt	25 Oct 2005 23:08:52 -0000	1.5
***************
*** 1,5 ****
  any usage()
  {
!   pformat(stderr(), "Usage: mload [-h/--help] [-s] [-e] [-c] <file or command>\n");
  }
  
--- 1,5 ----
  any usage()
  {
!   pformat(stderr(), "Usage: mload [-h/--help] [-s/-m] [-e] [-c] <file or command>\n");
  }
  
***************
*** 32,35 ****
--- 32,37 ----
        else if (!string_cmp("-s", argv[i]))
  	is_scheme = true;
+       else if (!string_cmp("-m", argv[i]))
+ 	is_scheme = false;
        else if (!string_cmp("-h", argv[i]) ||
  	       !string_cmp("--help", argv[i]))