[frontierkernel-commits] Frontier/Common/source langvalue.c,1.6,1.7 langverbs.c,1.8,1.9 shell.c,1.9,1.10

[Seth D. <set...@us...>]

Update of /cvsroot/frontierkernel/Frontier/Common/source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6829/Common/source

Modified Files:
	langvalue.c langverbs.c shell.c 
Log Message:
Added new verb group "math".
Presently contains only three verbs: math.min, math.max, and math.sqrt.

Index: shell.c
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/source/shell.c,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** shell.c	11 Jan 2005 22:48:10 -0000	1.9
--- shell.c	13 Jan 2005 23:58:04 -0000	1.10
***************
*** 1325,1328 ****
--- 1325,1330 ----
  #endif
  	
+ 	mathinitverbs (); /*2004-12-30 smd: langmath.c*/
+ 	
  	dllinitverbs (); /*2004-11-29 aradke: langdll.c*/
  	

Index: langverbs.c
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/source/langverbs.c,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** langverbs.c	11 Jan 2005 22:48:08 -0000	1.8
--- langverbs.c	13 Jan 2005 23:58:04 -0000	1.9
***************
*** 219,222 ****
--- 219,224 ----
  		tickcountfunc,
  		
+ 		millisecondcountfunc,
+ 		
  		delayfunc,
  		
***************
*** 3003,3006 ****
--- 3005,3015 ----
  			return (setlongvalue (gettickcount (), v));
  		
+ 		case millisecondcountfunc: {  /* 2005-01-08 SMD */
+ 			if (!langcheckparamcount (hparam1, 0))
+ 				break;
+ 			
+ 			return (setlongvalue (getmilliseconds (), v));
+ 			}
+ 		
  		case delayfunc: {
  			long ctseconds;

Index: langvalue.c
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/source/langvalue.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** langvalue.c	11 Jan 2005 22:48:08 -0000	1.6
--- langvalue.c	13 Jan 2005 23:58:04 -0000	1.7
***************
*** 1078,1082 ****
  
  
! static void disposevalues (tyvaluerecord *val1, tyvaluerecord *val2) {
  	
  	/*
--- 1078,1082 ----
  
  
! void disposevalues (tyvaluerecord *val1, tyvaluerecord *val2) {
  	
  	/*
***************
*** 1102,1105 ****
--- 1102,1107 ----
  	5.0.2b10 dmb: dispose heap values that are actually on the tmp stack; don't
  	base it on their type
+ 	
+ 	2004-12-30 SMD: now extern instead of static
  	*/
  	
***************
*** 3671,3675 ****
  
  
! static boolean coercetypes (tyvaluerecord *v1, tyvaluerecord *v2) {
  	
  	/*
--- 3673,3677 ----
  
  
! boolean coercetypes (tyvaluerecord *v1, tyvaluerecord *v2) {
  	
  	/*
***************
*** 3691,3694 ****
--- 3693,3698 ----
  	9/22/92 dmb: use new coercionweight function instead of langheaptype; it 
  	offers more granularity, and is written specifically to serve this routine
+ 	
+ 	2004-12-30 SMD: now extern instead of static
  	*/