[frontierkernel-commits] Frontier/Common/headers FastTimes.h,NONE,1.1 kernelverbdefs.h,1.4,1.5 kernelverbs.h,1.2,1.3 lang.h,1.7,1.8 timedate.h,1.3,1.4

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

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

Modified Files:
	kernelverbdefs.h kernelverbs.h lang.h timedate.h 
Added Files:
	FastTimes.h 
Log Message:
Added clock.milliseconds() verb, and a getmilliseconds() function.
On the mac, getmilliseconds() is a macro, and it uses FastTimes.c (which is in the public domain). It is very fast, but the first call takes a long time. Not sure what to do about that, maybe it should be moved to startup?
Also, the script profiler now reports in milliseconds (1000ths) instead of in ticks (sixtieths).

Index: lang.h
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/headers/lang.h,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** lang.h	11 Jan 2005 22:48:01 -0000	1.7
--- lang.h	13 Jan 2005 23:54:18 -0000	1.8
***************
*** 1167,1170 ****
--- 1167,1174 ----
  extern boolean coercevalue (tyvaluerecord *, tyvaluetype);
  
+ extern boolean coercetypes (tyvaluerecord *, tyvaluerecord *);
+ 
+ extern void disposevalues (tyvaluerecord *, tyvaluerecord *);
+ 
  extern boolean langgetidentifier (hdltreenode, bigstring);
  

Index: kernelverbs.h
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/headers/kernelverbs.h,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** kernelverbs.h	11 Jan 2005 22:48:01 -0000	1.2
--- kernelverbs.h	13 Jan 2005 23:54:18 -0000	1.3
***************
*** 52,54 ****
  extern boolean quicktimeinitverbs (void); /*langquicktime.c*/
  
! extern boolean regexpinitverbs (void); /* langregexp.c */
\ No newline at end of file
--- 52,56 ----
  extern boolean quicktimeinitverbs (void); /*langquicktime.c*/
  
! extern boolean regexpinitverbs (void); /* langregexp.c */
! 
! extern boolean mathinitverbs (void); /* langmath.c */

Index: timedate.h
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/headers/timedate.h,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** timedate.h	11 Jan 2005 22:48:02 -0000	1.3
--- timedate.h	13 Jan 2005 23:54:18 -0000	1.4
***************
*** 115,118 ****
--- 115,123 ----
  extern boolean isLeapYear (short year);
  
+ #ifdef WIN95VERSION
+ 
+ extern long getmilliseconds(void);
+ 
+ #endif /* WIN95VERSION */
  
  #endif /*timedateinclude*/

--- NEW FILE: FastTimes.h ---
/* File "FastTimes.h" - Original code by Matt Slot <fpr...@am...>  */
/* Created 4/24/99    - This file is hereby placed in the public domain       */
/* Updated 5/21/99    - Calibrate to VIA, add TBR support, renamed functions  */
/* Updated 10/4/99    - Use AbsoluteToNanoseconds() in case Absolute = double */
/* Updated 2/15/00    - Check for native Time Manager, no need to calibrate   */
/* Updated 3/21/00    - Fixed ns conversion, create 2 different scale factors */
/* Updated 5/03/00    - Added copyright and placed into PD. No code changes   */

/* This file is Copyright (C) Matt Slot, 1999-2000. It is hereby placed into 
   the public domain. The author makes no warranty as to fitness or stability */

#ifndef __FAST_TIMES_HEADER__
#define __FAST_TIMES_HEADER__

/* **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** */
/* **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** */

#ifdef __cplusplus
extern "C" {
#endif

extern void			FastInitialize(void);
extern UInt64		FastMicroseconds(void);
extern UInt64		FastMilliseconds(void);
extern StringPtr	FastMethod(void);

#ifdef __cplusplus
}
#endif

/* **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** */
/* **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** */

#endif /* __FAST_TIMES_HEADER__ */
Index: kernelverbdefs.h
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/headers/kernelverbdefs.h,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** kernelverbdefs.h	11 Jan 2005 22:48:01 -0000	1.4
--- kernelverbdefs.h	13 Jan 2005 23:54:18 -0000	1.5
***************
*** 50,52 ****
  #define idquicktimeverbs	1022 /*7.0b4 PBS: QuickTime Player window verbs*/
  #define idregexpverbs		1023 /*2003-04-22 AR: regular expression verbs*/
! 
--- 50,52 ----
  #define idquicktimeverbs	1022 /*7.0b4 PBS: QuickTime Player window verbs*/
  #define idregexpverbs		1023 /*2003-04-22 AR: regular expression verbs*/
! #define idmathverbs			1024 /*2004-12-29 SMD: extended math verbs*/