frontierkernel-commits — Mailing list for Subversion commit messages.

[frontierkernel-commits] Frontier/build_CWPro8 Radio.mcp,1.1,1.2

[Andre R. <and...@us...>]

Update of /cvsroot/frontierkernel/Frontier/build_CWPro8
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8097/build_CWPro8

Modified Files:
	Radio.mcp 
Log Message:
Added langmath.c to the _lang group.

Index: Radio.mcp
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/build_CWPro8/Radio.mcp,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
Binary files /tmp/cvsvGlzLL and /tmp/cvspp47Tc differ

[frontierkernel-commits] Frontier/build_CWPro8 Frontier.mcp,1.12,1.13

[Andre R. <and...@us...>]

Update of /cvsroot/frontierkernel/Frontier/build_CWPro8
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7552/build_CWPro8

Modified Files:
	Frontier.mcp 
Log Message:
Moved FastTimes.c from the tool group to the tool/mac group.

Index: Frontier.mcp
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/build_CWPro8/Frontier.mcp,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
Binary files /tmp/cvssSCZUW and /tmp/cvs97zn0h differ

[frontierkernel-commits] Frontier/build_XCode/Frontier.xcode project.pbxproj,1.18,1.19

[Andre R. <and...@us...>]

Update of /cvsroot/frontierkernel/Frontier/build_XCode/Frontier.xcode
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3349/build_XCode/Frontier.xcode

Modified Files:
	project.pbxproj 
Log Message:
Added langmath.c, langmath.h, FastTimes.c, and FastTimes.h to project.

Index: project.pbxproj
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/build_XCode/Frontier.xcode/project.pbxproj,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** project.pbxproj	12 Jan 2005 10:30:10 -0000	1.18
--- project.pbxproj	14 Jan 2005 11:12:17 -0000	1.19
***************
*** 297,300 ****
--- 297,302 ----
  				65D516AB072CED430097D18E,
  				65BBB664072E5643008E2F34,
+ 				65B70CE00797CEAD008C2F1A,
+ 				65B70CEA0797CF78008C2F1A,
  			);
  			isa = PBXHeadersBuildPhase;
***************
*** 550,553 ****
--- 552,557 ----
  				651527A0072BFC6900411831,
  				651527AC072BFC6900411831,
+ 				65B70CDC0797CE4A008C2F1A,
+ 				65B70CE60797CF2D008C2F1A,
  			);
  			isa = PBXSourcesBuildPhase;
***************
*** 612,615 ****
--- 616,620 ----
  				GCC_CHAR_IS_UNSIGNED_CHAR = NO;
  				GCC_C_LANGUAGE_STANDARD = c99;
+ 				GCC_ENABLE_ASM_KEYWORD = YES;
  				GCC_ENABLE_CPP_EXCEPTIONS = NO;
  				GCC_ENABLE_CPP_RTTI = NO;
***************
*** 1854,1857 ****
--- 1859,1863 ----
  				651525E4072BFC6700411831,
  				651525E5072BFC6700411831,
+ 				65B70CE50797CF2D008C2F1A,
  				651525E6072BFC6700411831,
  				651525E7072BFC6700411831,
***************
*** 2432,2435 ****
--- 2438,2442 ----
  				65152633072BFC6700411831,
  				65152634072BFC6800411831,
+ 				65B70CDB0797CE4A008C2F1A,
  				65152635072BFC6800411831,
  				65152636072BFC6800411831,
***************
*** 8357,8360 ****
--- 8364,8368 ----
  				65152940072BFFF600411831,
  				6515290E072BFF7900411831,
+ 				65B70CE90797CF78008C2F1A,
  				65152910072BFF7A00411831,
  				6515289A072BFEE700411831,
***************
*** 8451,8454 ****
--- 8459,8463 ----
  				651527E8072BFE3F00411831,
  				651528BA072BFF0900411831,
+ 				65B70CDF0797CEAD008C2F1A,
  				651528E8072BFF3E00411831,
  				651528E2072BFF3300411831,
***************
*** 8565,8568 ****
--- 8574,8637 ----
  			sourceTree = "<group>";
  		};
+ 		65B70CDB0797CE4A008C2F1A = {
+ 			fileEncoding = 30;
+ 			isa = PBXFileReference;
+ 			lastKnownFileType = sourcecode.c.c;
+ 			name = langmath.c;
+ 			path = ../Common/source/langmath.c;
+ 			refType = 2;
+ 			sourceTree = SOURCE_ROOT;
+ 		};
+ 		65B70CDC0797CE4A008C2F1A = {
+ 			fileRef = 65B70CDB0797CE4A008C2F1A;
+ 			isa = PBXBuildFile;
+ 			settings = {
+ 			};
+ 		};
+ 		65B70CDF0797CEAD008C2F1A = {
+ 			fileEncoding = 30;
+ 			isa = PBXFileReference;
+ 			lastKnownFileType = sourcecode.c.h;
+ 			name = langmath.h;
+ 			path = ../Common/headers/langmath.h;
+ 			refType = 2;
+ 			sourceTree = SOURCE_ROOT;
+ 		};
+ 		65B70CE00797CEAD008C2F1A = {
+ 			fileRef = 65B70CDF0797CEAD008C2F1A;
+ 			isa = PBXBuildFile;
+ 			settings = {
+ 			};
+ 		};
+ 		65B70CE50797CF2D008C2F1A = {
+ 			fileEncoding = 30;
+ 			isa = PBXFileReference;
+ 			lastKnownFileType = sourcecode.c.c;
+ 			name = FastTimes.c;
+ 			path = ../Common/source/FastTimes.c;
+ 			refType = 2;
+ 			sourceTree = SOURCE_ROOT;
+ 		};
+ 		65B70CE60797CF2D008C2F1A = {
+ 			fileRef = 65B70CE50797CF2D008C2F1A;
+ 			isa = PBXBuildFile;
+ 			settings = {
+ 			};
+ 		};
+ 		65B70CE90797CF78008C2F1A = {
+ 			fileEncoding = 30;
+ 			isa = PBXFileReference;
+ 			lastKnownFileType = sourcecode.c.h;
+ 			name = FastTimes.h;
+ 			path = ../Common/headers/FastTimes.h;
+ 			refType = 2;
+ 			sourceTree = SOURCE_ROOT;
+ 		};
+ 		65B70CEA0797CF78008C2F1A = {
+ 			fileRef = 65B70CE90797CF78008C2F1A;
+ 			isa = PBXBuildFile;
+ 			settings = {
+ 			};
+ 		};
  		65BBB661072E563B008E2F34 = {
  			fileEncoding = 30;

[frontierkernel-commits] Frontier/build_CWPro8 Frontier.mcp,1.11,1.12

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

Update of /cvsroot/frontierkernel/Frontier/build_CWPro8
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14508/build_CWPro8

Modified Files:
	Frontier.mcp 
Log Message:
Added FastTimes.c to "tool" file group.

Index: Frontier.mcp
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/build_CWPro8/Frontier.mcp,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
Binary files /tmp/cvs4wkmT1 and /tmp/cvsvHyIFq differ

[frontierkernel-commits] Frontier/build_CWPro8 Frontier.mcp,1.10,1.11

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

Update of /cvsroot/frontierkernel/Frontier/build_CWPro8
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12186

Modified Files:
	Frontier.mcp 
Log Message:
Added langmath.c to _lang group.

Index: Frontier.mcp
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/build_CWPro8/Frontier.mcp,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
Binary files /tmp/cvsnLCrQG and /tmp/cvsaLWlZP differ

[frontierkernel-commits] Frontier/Common/source stringverbs.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-serv9387/Common/source

Modified Files:
	stringverbs.c 
Log Message:
Added optional parameter "ix" to string.patternMatch(). Specifies the position in the source string at which the search should start.

Index: stringverbs.c
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/source/stringverbs.c,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** stringverbs.c	11 Jan 2005 22:48:11 -0000	1.9
--- stringverbs.c	14 Jan 2005 00:10:19 -0000	1.10
***************
*** 1821,1834 ****
  			Handle hsearch, hpattern;
  			long ixmatch;
  			
  			if (!getreadonlytextvalue (hp1, 1, &hpattern))
  				return (false);
  			
  			flnextparamislast = true;
  			
! 			if (!getreadonlytextvalue (hp1, 2, &hsearch))
  				return (false);
  			
! 			ixmatch = searchhandle (hsearch, hpattern, 0, longinfinity);
  			
  			setlongvalue (ixmatch + 1, v);
--- 1821,1846 ----
  			Handle hsearch, hpattern;
  			long ixmatch;
+ 			short ctconsumed = 2;
+ 			short ctpositional = 2;
+ 			tyvaluerecord vixstart;
  			
  			if (!getreadonlytextvalue (hp1, 1, &hpattern))
  				return (false);
  			
+ 			if (!getreadonlytextvalue (hp1, 2, &hsearch))
+ 				return (false);
+ 			
  			flnextparamislast = true;
  			
! 			setlongvalue (1, &vixstart);
! 			
! 			/* 2004-12-27 smd: added optional ix parameter */
! 			if (!getoptionalparamvalue (hp1, &ctconsumed, &ctpositional, "\x02""ix", &vixstart))
  				return (false);
  			
! 			if (vixstart.data.longvalue > 0) /*switch to 0-index*/
! 				--vixstart.data.longvalue;
! 			
! 			ixmatch = searchhandle (hsearch, hpattern, vixstart.data.longvalue, longinfinity);
  			
  			setlongvalue (ixmatch + 1, v);

[frontierkernel-commits] Frontier/Common/resources/Win32 WinLand.rc,1.7,1.8 kernvelverbs.rc,1.4,1.5

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

Update of /cvsroot/frontierkernel/Frontier/Common/resources/Win32
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8274/common/resources/Win32

Modified Files:
	WinLand.rc kernvelverbs.rc 
Log Message:
Resource files that changed. Part of the addition of the math verbs, and clock.milliseconds().

Index: WinLand.rc
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/resources/Win32/WinLand.rc,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** WinLand.rc	11 Jan 2005 22:48:04 -0000	1.7
--- WinLand.rc	14 Jan 2005 00:04:54 -0000	1.8
***************
*** 963,966 ****
--- 963,967 ----
  #define PICT_Errors				267
  #define Window_Errors			268
+ #define Math_errors				269
  #define Script_Window_Buttons	300
  #define Outline_Window_Buttons	301
***************
*** 1554,1557 ****
--- 1555,1560 ----
  
  	1 Window_Errors DISCARDABLE BEGIN "Internal error running \042window.^0\042.\0" END
+ 	
+ 	1 Math_Errors DISCARDABLE BEGIN "Internal error running \042math.^0\042.\0" END
  
  	1 Script_Window_Buttons DISCARDABLE BEGIN "Run\0" END

Index: kernvelverbs.rc
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/resources/Win32/kernvelverbs.rc,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** kernvelverbs.rc	11 Jan 2005 22:48:04 -0000	1.4
--- kernvelverbs.rc	14 Jan 2005 00:04:54 -0000	1.5
***************
*** 303,311 ****
  		"clock\0", 
  		false,
! 			6,
  			"now\0",
  			"set\0",
  			"sleepfor\0",
  			"ticks\0",
  			"waitseconds\0",
  			"waitsixtieths\0",
--- 303,312 ----
  		"clock\0", 
  		false,
! 			7,
  			"now\0",
  			"set\0",
  			"sleepfor\0",
  			"ticks\0",
+ 			"milliseconds\0",
  			"waitseconds\0",
  			"waitsixtieths\0",
***************
*** 1037,1038 ****
--- 1038,1050 ----
  
  #endif //flregexpverbs
+ 
+ 1024 /*mathverbs*/ EFP DISCARDABLE
+ 	BEGIN
+ 	1,					//Number of "blocks" in this resource
+ 		"math\0",		//Function Processor name
+ 		false,			//Window required
+ 			3,			//Count of verbs
+ 			"min\0",
+ 			"max\0",
+ 			"sqrt\0"
+ 	END

[frontierkernel-commits] Frontier/Common/resources/Mac kernvelverbs.r,1.6,1.7 lang.r,1.5,1.6

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

Update of /cvsroot/frontierkernel/Frontier/Common/resources/Mac
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8274/common/resources/Mac

Modified Files:
	kernvelverbs.r lang.r 
Log Message:
Resource files that changed. Part of the addition of the math verbs, and clock.milliseconds().

Index: lang.r
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/resources/Mac/lang.r,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** lang.r	11 Jan 2005 22:48:04 -0000	1.5
--- lang.r	14 Jan 2005 00:04:53 -0000	1.6
***************
*** 1032,1035 ****
--- 1032,1042 ----
  };
  
+ resource 'STR#' (269, "Math Errors", purgeable) {
+ 	{	/* array StringArray: 1 elements */
+ 		/* [1] */
+ 		"Internal error running \"math.^0\"."
+ 	}
+ };
+ 
  resource 'DLOG' (259, "notify", purgeable) {
  	{0, 0, 107, 375},

Index: kernvelverbs.r
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/resources/Mac/kernvelverbs.r,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** kernvelverbs.r	11 Jan 2005 22:48:04 -0000	1.6
--- kernvelverbs.r	14 Jan 2005 00:04:53 -0000	1.7
***************
*** 338,341 ****
--- 338,342 ----
  		"sleepfor",
  		"ticks",
+ 		"milliseconds",  /* 2005-01-08 SMD */
  		"waitseconds",
  		"waitsixtieths"
***************
*** 1100,1101 ****
--- 1101,1113 ----
  };
  
+ resource 'EFP#' (idmathverbs, "math") { /*2004-12-29 SMD: math verbs*/
+ 	
+ 	{
+ 	"math", false, {
+ 		
+ 		"min",
+ 		"max",
+ 		"sqrt"
+ 		}
+ 	}
+ };

[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
  	*/
  	

[frontierkernel-commits] Frontier/Common/headers langmath.h,NONE,1.1

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

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

Added Files:
	langmath.h 
Log Message:
Added new verb group "math".
Presently contains only three verbs: math.min, math.max, and math.sqrt.

--- NEW FILE: langmath.h ---
/******************************************************************************

    Created by Seth Dillingham on 12/29/04.
    
    Copyright (C) 2004 Macrobyte Resources.

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

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

#ifndef mathinclude
#define mathinclude
#endif

/*prototypes*/

[frontierkernel-commits] Frontier/Common/source langmath.c,NONE,1.1

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

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

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

--- NEW FILE: langmath.c ---
/*
 *  langmath.c
 *  Frontier
 *
 *  Created by Seth Dillingham on 12/29/04.
 *  Copyright 2004 __MyCompanyName__. All rights reserved.
 *
 */
#include <math.h>

#include "frontier.h"
#include "standard.h"

#include "error.h"
#include "memory.h"
#include "ops.h"
#include "resources.h"
#include "lang.h"
#include "langinternal.h"
#include "langexternal.h"
#include "langsystem7.h"
#include "tablestructure.h"
#include "kernelverbs.h"
#include "kernelverbdefs.h"
#include "shell.rsrc.h"
#include "timedate.h"
#include "langmath.h"

#define matherrorlist 269
#define notimplementederror 1

typedef enum tymathtoken { /*verbs that are processed by langmath.c*/
	
	minfunc,
	
	maxfunc,
	
	sqrtfunc,

	cmathverbs
	} tymathtoken;

static boolean mathfunctionvalue (short token, hdltreenode hparam1, tyvaluerecord *vreturned, bigstring bserror) {
	
	hdltreenode hp1 = hparam1;
	tyvaluerecord *v = vreturned;
	short errornum = 0;
	
	setbooleanvalue (false, v); /*by default, math functions return false*/
	
	switch (token) {
	
		case minfunc: { /* 2004/12/29 smd */
			
			tyvaluerecord v1, v2;
			boolean fl;
			
			if (!getparamvalue (hp1, 1, &v1))
				break;
			
			flnextparamislast = true;
			
			if (!getparamvalue (hp1, 2, &v2))
				break;
			
			if (!coercetypes (&v1, &v2)) {
				
				break;
			}
			
			switch (v1.valuetype) {
				
				case novaluetype: {  /* no test needed, nil is nil*/
					initvalue (v, novaluetype);
					return true;
					}
				
				case booleanvaluetype: /* just return an or */
					return setbooleanvalue (v1.data.flvalue || v2.data.flvalue, v);
				
				/* all the rest return the greater of the two values */
				case charvaluetype:
					return setcharvalue (min (v1.data.chvalue, v2.data.chvalue), v);
							
				case intvaluetype:
					return setintvalue (min (v1.data.intvalue, v2.data.intvalue), v);
				
				case longvaluetype:
					return setlongvalue (min (v1.data.longvalue, v2.data.longvalue), v);
				
				case ostypevaluetype:
					return setostypevalue (min (v1.data.longvalue, v2.data.longvalue), v);
					
/*				case fixedvaluetype:
					return setfixedvalue (min (v1.data.longvalue, v2.data.longvalue), v);
*/				
				case directionvaluetype:
					return setdirectionvalue (min ((short) v1.data.dirvalue, (short) v2.data.dirvalue), v);
					
				case datevaluetype:
					return setdatevalue (timegreaterthan (v1.data.datevalue, v2.data.datevalue) ? v1.data.datevalue : v2.data.datevalue, v);
				
				case singlevaluetype:
					return setsinglevalue (min (v1.data.singlevalue, v2.data.singlevalue), v);
				
				case doublevaluetype:
					return setdoublevalue (min (**v1.data.doublevalue, **v2.data.doublevalue), v);
				
				case stringvaluetype: {
					
					Handle h;
					
					if (comparehandles (v1.data.stringvalue, v2.data.stringvalue) == 1)
						copyhandle (v2.data.stringvalue, &h);
					else
						copyhandle (v1.data.stringvalue, &h);
						
					return (setheapvalue (h, stringvaluetype, v));
					}
				
				default:
					langerror (comparisonnotpossibleerror);
					
					fl = false; /*operation is not defined*/
					
					break;
				} /*switch*/
			
			return (false);
			}
		
		case maxfunc: { /* 2004/12/29 smd */
			
			tyvaluerecord v1, v2;
			boolean fl;
			
			if (!getparamvalue (hparam1, 1, &v1))
				break;
			
			flnextparamislast = true;
			
			if (!getparamvalue (hparam1, 2, &v2))
				break;
			
			if (!coercetypes (&v1, &v2)) {
				
				disposevalues (&v1, &v2);
				
				break;
			}
			
			switch (v1.valuetype) {
				
				case novaluetype: {  /* no test needed, nil is nil*/
					initvalue (v, novaluetype);
					return true;
					}
				
				case booleanvaluetype: /* just return an or */
					return setbooleanvalue (v1.data.flvalue || v2.data.flvalue, v);
				
				/* all the rest return the greater of the two values */
				case charvaluetype:
					return setcharvalue (max (v1.data.chvalue, v2.data.chvalue), v);
							
				case intvaluetype:
					return setintvalue (max (v1.data.intvalue, v2.data.intvalue), v);
				
				case longvaluetype:
					return setlongvalue (max (v1.data.longvalue, v2.data.longvalue), v);
				
				case ostypevaluetype:
					return setostypevalue (max (v1.data.longvalue, v2.data.longvalue), v);
					
/*				case fixedvaluetype:
					return setfixedvalue (max (v1.data.longvalue, v2.data.longvalue), v);
*/				
				case directionvaluetype:
					return setdirectionvalue (max ((short) v1.data.dirvalue, (short) v2.data.dirvalue), v);
					
				case datevaluetype:
					return setdatevalue (timegreaterthan (v1.data.datevalue, v2.data.datevalue) ? v1.data.datevalue : v2.data.datevalue, v);
				
				case singlevaluetype:
					return setsinglevalue (max (v1.data.singlevalue, v2.data.singlevalue), v);
				
				case doublevaluetype:
					return setdoublevalue (max (**v1.data.doublevalue, **v2.data.doublevalue), v);
				
				case stringvaluetype: {
					
					Handle h;
					
					if (comparehandles (v1.data.stringvalue, v2.data.stringvalue) == 1)
						copyhandle (v1.data.stringvalue, &h);
					else
						copyhandle (v2.data.stringvalue, &h);
						
					return (setheapvalue (h, stringvaluetype, v));
					}
				
				default:
					langerror (comparisonnotpossibleerror);
					
					fl = false; /*operation is not defined*/
					
					break;
				} /*switch*/
			
			return (false);
			}
		
		case sqrtfunc: { /* 2004/12/29 smd */
			
			tyvaluerecord v1;
			double d;
			
			flnextparamislast = true;
			
			if (!getdoubleparam (hp1, 1, &v1))
				break;
			
			d = sqrt (**v1.data.doublevalue);
			
			return (setdoublevalue (d, v));
			}

		default:
			errornum = notimplementederror;
			
			goto error;
		} /*switch*/
	
	error:
	
	if (errornum != 0) /*get error string*/
		getstringlist (matherrorlist, errornum, bserror);
	
	return (false);
	} /*langmathvalue*/
	

boolean mathinitverbs (void) {
	
	/*
	2004-12-29 smd: new math verbs
	*/
	
	return (loadfunctionprocessor (idmathverbs, &mathfunctionvalue));
	} /*mathinitverbs*/

[frontierkernel-commits] Frontier/Common/source FastTimes.c,NONE,1.1 timedate.c,1.6,1.7 lang.c,1.5,1.6

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

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

Modified Files:
	timedate.c lang.c 
Added Files:
	FastTimes.c 
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: timedate.c
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/source/timedate.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** timedate.c	11 Jan 2005 22:48:11 -0000	1.6
--- timedate.c	13 Jan 2005 23:54:18 -0000	1.7
***************
*** 35,38 ****
--- 35,39 ----
  #include "langinternal.h"
  #include "shell.h"
+ 
  #include "timedate.h"
  
***************
*** 1536,1539 ****
--- 1537,1561 ----
  
  
+ #ifdef WIN95VERSION
+ 
+ static unsigned long long getlongermilliseconds (void) {
+ 	LARGE_INTEGER counter, freq;
+ 	unsigned long long freqLong;
+ 	
+ 	QueryPerformanceCounter (&counter);  /* counter hits since boot-up */
+ 	
+ 	QueryPerformanceFrequency (&freq);   /* frequency of coutner hits (per second) */
+ 	
+ 	freqLong = ( freq.LowPart | ( freq.HighPart << 32 ) ) / 1000;
+ 	
+ 	return ( counter.LowPart | ( counter.HighPart << 32 ) ) / freqLong;
+ } /* getlongermilliseconds */
+ 
+ 
+ extern long getmilliseconds(void) {
+ 	return ((long) getlongermilliseconds ());
+ } /* getmilliseconds */
+ 
+ #endif
  
  

Index: lang.c
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/source/lang.c,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** lang.c	11 Jan 2005 22:48:05 -0000	1.5
--- lang.c	13 Jan 2005 23:54:18 -0000	1.6
***************
*** 47,50 ****
--- 47,55 ----
  #include "shell.rsrc.h"
  #include "shellhooks.h"
+ 
+ #ifdef WIN95VERSION
+ 	#include "timedate.h" /* for the milliseconds function */
+ #endif
+ 
  #include "process.h"
  #include "tablestructure.h"
***************
*** 145,149 ****
  	//short ix, ixtop;
  	tyerrorrecord *pe;
! 	unsigned long ticksnow = gettickcount ();
  	
  	if ((hs == nil) || ((**hs).toperror <= 0))
--- 150,155 ----
  	//short ix, ixtop;
  	tyerrorrecord *pe;
! 	/*unsigned long ticksnow = gettickcount ();*/
! 	unsigned long msnow = getmilliseconds ();
  	
  	if ((hs == nil) || ((**hs).toperror <= 0))
***************
*** 166,170 ****
  		pe = &(**hs).stack [(**hs).toperror - 1];
  		
! 		(*pe).profilebase = ticksnow;
  		
  		(*pe).profiletotal = 0;
--- 172,176 ----
  		pe = &(**hs).stack [(**hs).toperror - 1];
  		
! 		(*pe).profilebase = msnow;
  		
  		(*pe).profiletotal = 0;
***************
*** 185,189 ****
  	short ix;
  	tyerrorrecord item;
! 	unsigned long ticksnow = gettickcount ();
  	
  	if ((hs == nil) || ((**hs).toperror <= 0))
--- 191,196 ----
  	short ix;
  	tyerrorrecord item;
! 	/*unsigned long ticksnow = gettickcount ();*/
! 	unsigned long msnow = getmilliseconds ();
  	
  	if ((hs == nil) || ((**hs).toperror <= 0))
***************
*** 198,202 ****
  			if (item.profilebase != 0) { // included in profile
  			
! 				item.profiletotal += ticksnow - item.profilebase;
  				
  				langtracktimeslice (&item);
--- 205,209 ----
  			if (item.profilebase != 0) { // included in profile
  			
! 				item.profiletotal += msnow - item.profilebase;
  				
  				langtracktimeslice (&item);
***************
*** 236,240 ****
  	if (hp && (**hp).flprofiling) {
  		
! 		item.profilebase = gettickcount ();
  		
  		item.profiletotal = 0;
--- 243,248 ----
  	if (hp && (**hp).flprofiling) {
  		
! 		/* item.profilebase = gettickcount (); */
! 		item.profilebase = getmilliseconds ();
  		
  		item.profiletotal = 0;
***************
*** 280,284 ****
  		item = (**hs).stack [ixtop]; // the one we just popped
  		
! 		item.profiletotal += gettickcount () - item.profilebase;
  		
  		pe = &(**hs).stack [ixtop - 1]; // new new current top item
--- 288,293 ----
  		item = (**hs).stack [ixtop]; // the one we just popped
  		
! 		/* item.profiletotal += gettickcount () - item.profilebase; */
! 		item.profiletotal += getmilliseconds () - item.profilebase;
  		
  		pe = &(**hs).stack [ixtop - 1]; // new new current top item
***************
*** 288,292 ****
  		
  		if ((**hp).flprofilesliced && (ixtop > 0)) // restart previous function timer
! 			(*pe).profilebase = gettickcount ();
  		}
  	
--- 297,302 ----
  		
  		if ((**hp).flprofilesliced && (ixtop > 0)) // restart previous function timer
! 			/* (*pe).profilebase = gettickcount (); */
! 			(*pe).profilebase = getmilliseconds ();
  		}
  	

--- NEW FILE: FastTimes.c ---
/* File "FastTimes.c" - 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 2/19/00    - Fixed default value for gScale under native Time Mgr  */
/* 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   */
/* Updated 8/01/00    - Made "Carbon-compatible" by replacing LMGetTicks()    */
/* Updated 8/22/00    - Fixed optimizer bug, changed GENPPC macros, extern C  */

/* 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 */

#include <Gestalt.h>
#include <LowMem.h>
#include <CodeFragments.h>
#include <DriverServices.h>
#include <Timer.h>

#include "FastTimes.h"

/* **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** */
/* **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** */
/*
	On 680x0 machines, we just use Microseconds().
	
	On PowerPC machines, we try several methods:
	  * DriverServicesLib is available on all PCI PowerMacs, and perhaps
	    some NuBus PowerMacs. If it is, we use UpTime() : Overhead = 2.1 µsec.
	  * The PowerPC 601 has a built-in "real time clock" RTC, and we fall
	    back to that, accessing it directly from asm. Overhead = 1.3 µsec.
	  * Later PowerPCs have an accurate "time base register" TBR, and we 
	    fall back to that, access it from PowerPC asm. Overhead = 1.3 µsec.
	  * We can also try Microseconds() which is emulated : Overhead = 36 µsec.

	On PowerPC machines, we avoid the following:
	  * OpenTransport is available on all PCI and some NuBus PowerMacs, but it
	    uses UpTime() if available and falls back to Microseconds() otherwise.
	  * InputSprocket is available on many PowerMacs, but again it uses
	    UpTime() if available and falls back to Microseconds() otherwise.

	Another PowerPC note: certain configurations, especially 3rd party upgrade
	cards, may return inaccurate timings for the CPU or memory bus -- causing
	skew in various system routines (up to 20% drift!). The VIA chip is very
	accurate, and it's the basis for the Time Manager and Microseconds().
	Unfortunately, it's also very slow because the MacOS has to (a) switch to
	68K and (b) poll for a VIA event.
	
	We compensate for the drift by calibrating a floating point scale factor
	between our fast method and the accurate timer at startup, then convert
	each sample quickly on the fly. I'd rather not have the initialization 
	overhead -- but it's simply necessary for accurate timing. You can drop
	it down to 30 ticks if you prefer, but that's as low as I'd recommend.

	Under MacOS 9, "new world" Macs (iMacs, B+W G3s and G+W G4s) have a native
	Time Manager implementation: UpTime(), Microseconds(), and TickCount() are
	all based on the same underlying counter. This makes it silly to calibrate
	UpTime() against TickCount(). We now check for this feature using Gestalt(),
	and skip the whole calibration step if possible.

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

#define RTCToNano(w)	((double) (w).hi * 1000000000.0 + (double) (w).lo)
#define WideTo64bit(w)	(*(UInt64 *) &(w))

/* LMGetTicks() is not in Carbon and TickCount() has a fair bit of overhead,
   so for speed we always read lowmem directly. This is a MacOS X no-no, but 
   it always work on those systems that don't have a native Time Manager (ie,
   anything before MacOS 9) -- regardless whether we are in Carbon or not! */
#define MyLMGetTicks()	(*(volatile UInt32 *) 0x16A)

static Boolean			gInited = false;

#if TARGET_CPU_PPC

static Boolean			gNative = false;
static Boolean			gUseRTC = false;
static Boolean			gUseTBR = false;
static double			gScaleUSec = 1.0 / 1000.0;    /* 1 / ( nsec / usec) */
static double			gScaleMSec = 1.0 / 1000000.0; /* 1 / ( nsec / msec) */

static asm UnsignedWide PollRTC(void);
static asm UnsignedWide PollTBR(void);
static Ptr FindFunctionInSharedLib(StringPtr libName, StringPtr funcName);

/* Functions loaded from DriverServicesLib */
typedef AbsoluteTime 	(*UpTimeProcPtr)(void);
typedef Nanoseconds 	(*A2NSProcPtr)(AbsoluteTime);
static UpTimeProcPtr 	gUpTime = NULL;
static A2NSProcPtr 		gA2NS = NULL;

#endif /* TARGET_CPU_PPC */

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

void FastInitialize() {
	SInt32			result;

	if (!gInited) {

#if TARGET_CPU_PPC

		/* Initialize the feature flags */
		gNative = gUseRTC = gUseTBR = false;

		/* We use CFM to find and load needed symbols from shared libraries, so
		   the application doesn't have to weak-link them, for convenience.   */
		gUpTime = (UpTimeProcPtr) FindFunctionInSharedLib(
				"\pDriverServicesLib", "\pUpTime");
		if (gUpTime) gA2NS = (A2NSProcPtr) FindFunctionInSharedLib(
				"\pDriverServicesLib", "\pAbsoluteToNanoseconds");
		if (!gA2NS) gUpTime = nil; /* Pedantic but necessary */

		if (gUpTime) {
			/* If we loaded UpTime(), then we need to know if the system has
			   a native implementation of the Time Manager. If so, then it's
			   pointless to calculate a scale factor against the missing VIA */

			/* gestaltNativeTimeMgr = 4 in some future version of the headers */
			if (!Gestalt(gestaltTimeMgrVersion, &result) &&
					(result > gestaltExtendedTimeMgr)) 
				gNative = true;
			}
		  else {
			/* If no DriverServicesLib, use Gestalt() to get the processor type. 
			   Only NuBus PowerMacs with old System Software won't have DSL, so
			   we know it should either be a 601 or 603. */

			/* Use the processor gestalt to determine which register to use */
		 	if (!Gestalt(gestaltNativeCPUtype, &result)) {
				if (result == gestaltCPU601) gUseRTC = true;
				  else if (result > gestaltCPU601) gUseTBR = true;
				}
			}

		/* Now calculate a scale factor to keep us accurate. */
		if ((gUpTime && !gNative) || gUseRTC || gUseTBR) {
			UInt64			tick, usec1, usec2;
			UnsignedWide	wide;

			/* Wait for the beginning of the very next tick */
#if TARGET_API_MAC_CARBON
			for(tick = TickCount() + 1; tick > TickCount(); );
#else
			for(tick = MyLMGetTicks() + 1; tick > MyLMGetTicks(); );
#endif /* TARGET_API_MAC_CARBON */

			/* Poll the selected timer and prepare it (since we have time) */
			wide = (gUpTime) ? (*gA2NS)((*gUpTime)()) : 
					((gUseRTC) ? PollRTC() : PollTBR());
			usec1 = (gUseRTC) ? RTCToNano(wide) : WideTo64bit(wide);
			
			/* Wait for the exact 60th tick to roll over */
#if TARGET_API_MAC_CARBON
			while(tick + 60 > TickCount());
#else
			while(tick + 60 > MyLMGetTicks());
#endif /* TARGET_API_MAC_CARBON */

			/* Poll the selected timer again and prepare it  */
			wide = (gUpTime) ? (*gA2NS)((*gUpTime)()) : 
					((gUseRTC) ? PollRTC() : PollTBR());
			usec2 = (gUseRTC) ? RTCToNano(wide) : WideTo64bit(wide);
			
			/* Calculate a scale value that will give microseconds per second.
			   Remember, there are actually 60.15 ticks in a second, not 60.  */
			gScaleUSec = (60.0 * 1000000.0) / ((usec2 - usec1) * 60.15);
			gScaleMSec = gScaleUSec / 1000.0;
			}

#endif /* TARGET_CPU_PPC */

		/* We've initialized our globals */
		gInited = true;
		}
	}

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

UInt64 FastMicroseconds() {
	UnsignedWide	wide;
	UInt64			usec;
	
#if TARGET_CPU_PPC
	/* Initialize globals the first time we are called */
	if (!gInited) FastInitialize();
	
	if (gNative) {
		/* Use DriverServices if it's available -- it's fast and compatible */
		wide = (*gA2NS)((*gUpTime)());
		usec = (double) WideTo64bit(wide) * gScaleUSec + 0.5;
		}
	  else if (gUpTime) {
		/* Use DriverServices if it's available -- it's fast and compatible */
		wide = (*gA2NS)((*gUpTime)());
		usec = (double) WideTo64bit(wide) * gScaleUSec + 0.5;
		}
	  else if (gUseTBR) {
		/* On a recent PowerPC, we poll the TBR directly */
		wide = PollTBR();
		usec = (double) WideTo64bit(wide) * gScaleUSec + 0.5;
		}
	  else if (gUseRTC) {
		/* On a 601, we can poll the RTC instead */
		wide = PollRTC();
		usec = (double) RTCToNano(wide) * gScaleUSec + 0.5;
		}
	  else 
#endif /* TARGET_CPU_PPC */
		{
		/* If all else fails, suffer the mixed mode overhead */
		Microseconds(&wide);
		usec = WideTo64bit(wide);
		}

	return(usec);
	}

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

UInt64 FastMilliseconds() {
	UnsignedWide	wide;
	UInt64			msec;	
	
#if TARGET_CPU_PPC
	/* Initialize globals the first time we are called */
	if (!gInited) FastInitialize();
	
	if (gNative) {
		/* Use DriverServices if it's available -- it's fast and compatible */
		wide = (*gA2NS)((*gUpTime)());
		msec = (double) WideTo64bit(wide) * gScaleMSec + 0.5;
		}
	  else if (gUpTime) {
		/* Use DriverServices if it's available -- it's fast and compatible */
		wide = (*gA2NS)((*gUpTime)());
		msec = (double) WideTo64bit(wide) * gScaleMSec + 0.5;
		}
	  else if (gUseTBR) {
		/* On a recent PowerPC, we poll the TBR directly */
		wide = PollTBR();
		msec = (double) WideTo64bit(wide) * gScaleMSec + 0.5;
		}
	  else if (gUseRTC) {
		/* On a 601, we can poll the RTC instead */
		wide = PollRTC();
		msec = (double) RTCToNano(wide) * gScaleMSec + 0.5;
		}
	  else 
#endif /* TARGET_CPU_PPC */
		{
		/* If all else fails, suffer the mixed mode overhead */
		Microseconds(&wide);
		msec = ((double) WideTo64bit(wide) + 500.0) / 1000.0;
		}

	return(msec);
	}

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

StringPtr FastMethod() {
	StringPtr	method = "\p<Unknown>";

#if TARGET_CPU_PPC
	/* Initialize globals the first time we are called */
	if (!gInited) FastInitialize();
	
	if (gNative) {
		/* The Time Manager and UpTime() are entirely native on this machine */
		method = "\pNative UpTime()";
		}
	  else if (gUpTime) {
		/* Use DriverServices if it's available -- it's fast and compatible */
		method = "\pUpTime()";
		}
	  else if (gUseTBR) {
		/* On a recent PowerPC, we poll the TBR directly */
		method = "\pPowerPC TBR";
		}
	  else if (gUseRTC) {
		/* On a 601, we can poll the RTC instead */
		method = "\pPowerPC RTC";
		}
	  else 
#endif /* TARGET_CPU_PPC */
		{
		/* If all else fails, suffer the mixed mode overhead */
		method = "\pMicroseconds()";
		}

	return(method);
	}

/* **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** */
/* **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** */
#pragma mark -

#if TARGET_CPU_PPC
asm static UnsignedWide PollRTC_() {
entry PollRTC /* Avoid CodeWarrior glue */
	machine 601
@AGAIN:
	mfrtcu	r4 /* RTCU = SPR 4 */
	mfrtcl	r5 /* RTCL = SPR 5 */
	mfrtcu	r6
	cmpw	r4,r6
	bne		@AGAIN
	stw		r4,0(r3)
	stw		r5,4(r3)
	blr
	}

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

asm static UnsignedWide PollTBR_() {
entry PollTBR /* Avoid CodeWarrior glue */
	machine 604
@AGAIN:
	mftbu	r4 /* TBRU = SPR 268 */
	mftb	r5 /* TBRL = SPR 269 */
	mftbu	r6
	cmpw	r4,r6
	bne		@AGAIN
	stw		r4,0(r3)
	stw		r5,4(r3)
	blr
	}

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

static Ptr FindFunctionInSharedLib(StringPtr libName, StringPtr funcName) {
	OSErr				error = noErr;
	Str255				errorStr;
	Ptr					func = NULL;
	Ptr					entry = NULL;
	CFragSymbolClass	symClass;
	CFragConnectionID	connID;
	
	/* Find CFM containers for the current archecture -- CFM-PPC or CFM-68K */
	if (/* error = */ GetSharedLibrary(libName, kCompiledCFragArch,
			kLoadCFrag, &connID, &entry, errorStr)) return(NULL);
	if (/* error = */ FindSymbol(connID, funcName, &func, &symClass))
		return(NULL);
	
	return(func);
	}
#endif /* TARGET_CPU_PPC */

[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*/

[frontierkernel-commits] Frontier/Common/headers versions.h,1.7,1.7.2.1

[Andre R. <and...@us...>]

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

Modified Files:
      Tag: Frontier_10_0_STABLE-branch
	versions.h 
Log Message:
Bump version number to 10.0a6 for stable release track.

Index: versions.h
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/headers/versions.h,v
retrieving revision 1.7
retrieving revision 1.7.2.1
diff -C2 -d -r1.7 -r1.7.2.1
*** versions.h	12 Jan 2005 11:32:33 -0000	1.7
--- versions.h	13 Jan 2005 16:51:55 -0000	1.7.2.1
***************
*** 43,50 ****
  
  #define radio_stage_code				0x40	/* dev = 0x20, alpha = 0x40, beta = 0x60, final = 0x80 */
! #define	radio_revision_level			5		/* for non-final releases only */
! #define	radio_build_number				5		/* increment by one for every release, final or not */
  
! #define radio_version_string			"10.0a5"
  
  
--- 43,50 ----
  
  #define radio_stage_code				0x40	/* dev = 0x20, alpha = 0x40, beta = 0x60, final = 0x80 */
! #define	radio_revision_level			6		/* for non-final releases only */
! #define	radio_build_number				6		/* increment by one for every release, final or not */
  
! #define radio_version_string			"10.0a6"
  
  
***************
*** 57,64 ****
  
  #define frontier_stage_code				0x40	/* dev = 0x20, alpha = 0x40, beta = 0x60, final = 0x80 */
! #define	frontier_revision_level			5		/* for non-final releases only */
! #define	frontier_build_number			5		/* increment by one for every release, final or not */
  
! #define frontier_version_string			"10.0a5"
  
  
--- 57,64 ----
  
  #define frontier_stage_code				0x40	/* dev = 0x20, alpha = 0x40, beta = 0x60, final = 0x80 */
! #define	frontier_revision_level			6		/* for non-final releases only */
! #define	frontier_build_number			6		/* increment by one for every release, final or not */
  
! #define frontier_version_string			"10.0a6"
  
  

[frontierkernel-commits] Frontier/Common/headers versions.h,1.7,1.8

[Andre R. <and...@us...>]

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

Modified Files:
	versions.h 
Log Message:
Bump version number to 10.1a1 for the experimental release track.

Index: versions.h
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/headers/versions.h,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** versions.h	12 Jan 2005 11:32:33 -0000	1.7
--- versions.h	13 Jan 2005 16:38:24 -0000	1.8
***************
*** 38,50 ****
  #define	radio_major_version_bcd			0x10 	/* major version in BCD notation */
  
! #define	radio_sub_version				0
  #define	radio_minor_version				0
! #define	radio_subminor_version_bcd		0x00  	/* sub and minor version in BCD notation */
  
  #define radio_stage_code				0x40	/* dev = 0x20, alpha = 0x40, beta = 0x60, final = 0x80 */
! #define	radio_revision_level			5		/* for non-final releases only */
! #define	radio_build_number				5		/* increment by one for every release, final or not */
  
! #define radio_version_string			"10.0a5"
  
  
--- 38,50 ----
  #define	radio_major_version_bcd			0x10 	/* major version in BCD notation */
  
! #define	radio_sub_version				1
  #define	radio_minor_version				0
! #define	radio_subminor_version_bcd		0x10  	/* sub and minor version in BCD notation */
  
  #define radio_stage_code				0x40	/* dev = 0x20, alpha = 0x40, beta = 0x60, final = 0x80 */
! #define	radio_revision_level			1		/* for non-final releases only */
! #define	radio_build_number				1		/* increment by one for every release, final or not */
  
! #define radio_version_string			"10.1a1"
  
  
***************
*** 52,64 ****
  #define	frontier_major_version_bcd		0x10 	/* major version in BCD notation */
  
! #define	frontier_sub_version			0
  #define	frontier_minor_version			0
! #define	frontier_subminor_version_bcd	0x00  	/* sub and minor version in BCD notation */
  
  #define frontier_stage_code				0x40	/* dev = 0x20, alpha = 0x40, beta = 0x60, final = 0x80 */
! #define	frontier_revision_level			5		/* for non-final releases only */
! #define	frontier_build_number			5		/* increment by one for every release, final or not */
  
! #define frontier_version_string			"10.0a5"
  
  
--- 52,64 ----
  #define	frontier_major_version_bcd		0x10 	/* major version in BCD notation */
  
! #define	frontier_sub_version			1
  #define	frontier_minor_version			0
! #define	frontier_subminor_version_bcd	0x10  	/* sub and minor version in BCD notation */
  
  #define frontier_stage_code				0x40	/* dev = 0x20, alpha = 0x40, beta = 0x60, final = 0x80 */
! #define	frontier_revision_level			1		/* for non-final releases only */
! #define	frontier_build_number			1		/* increment by one for every release, final or not */
  
! #define frontier_version_string			"10.1a1"
  
  

[frontierkernel-commits] Frontier/Common/resources/Mac SHELL.R,1.6,1.7

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/Frontier/Common/resources/Mac
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20403

Modified Files:
	SHELL.R 
Log Message:
removed UserLand and (tm), changed report internal error string to point to <http://groups.yahoo.com/group/frontierkernel/>

Index: SHELL.R
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/resources/Mac/SHELL.R,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** SHELL.R	11 Jan 2005 22:48:04 -0000	1.6
--- SHELL.R	13 Jan 2005 01:02:31 -0000	1.7
***************
*** 574,578 ****
  #else
  		/* [1] */
! 		"UserLand Frontierª",
  #endif
  		/* [2] */
--- 574,578 ----
  #else
  		/* [1] */
! 		"Frontier", /* 2005-01-04 creedon - removed UserLand and (tm) for open source release */
  #endif
  		/* [2] */
***************
*** 611,615 ****
  		"Command Key:",
  		/* [7] */
! 		"Internal error#^0.  Please report to UserLand Technical Support",
  		/* [8] */
  		"; ",
--- 611,615 ----
  		"Command Key:",
  		/* [7] */
! 		"Internal error#^0.  Please report to <http://groups.yahoo.com/group/frontierkernel/>",
  		/* [8] */
  		"; ",
***************
*** 2685,2689 ****
  
  resource 'STR ' (256) {
! 	"UserLand Frontierª\n\nPowerful cross-platform web scripting.\n\nUse Frontier to manage large, dynamic websites with multiple authors."
  };
  
--- 2685,2689 ----
  
  resource 'STR ' (256) {
! 	"Frontierª\n\nHigh performance Web content management, object database, system-level and Internet scripting environment, including source code editing and debugging"
  };
  

[frontierkernel-commits] Frontier/Common/source langhtml.c,1.4,1.5

[creedon <icr...@us...>]

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

Modified Files:
	langhtml.c 
Log Message:
removed UserLand

Index: langhtml.c
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/source/langhtml.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** langhtml.c	11 Jan 2005 22:48:06 -0000	1.4
--- langhtml.c	12 Jan 2005 23:01:06 -0000	1.5
***************
*** 152,158 ****
  
  	#if TARGET_API_MAC_CARBON == 1
! 		#define STR_P_SERVERSTRING				"\x18" "UserLand Frontier/^0-^1X"
  	#else
! 		#define STR_P_SERVERSTRING				"\x17" "UserLand Frontier/^0-^1"
  	#endif
  
--- 152,158 ----
  
  	#if TARGET_API_MAC_CARBON == 1
! 		#define STR_P_SERVERSTRING			"\x0f" "Frontier/^0-^1X" /* 2005-01-04 creedon - removed UserLand for open source release */
  	#else
! 		#define STR_P_SERVERSTRING			"\x0e" "Frontier/^0-^1" /* 2005-01-04 creedon - removed UserLand for open source release */
  	#endif
  

[frontierkernel-commits] Frontier/Common/resources/Mac osacomponent.r,1.5,1.6

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/Frontier/Common/resources/Mac
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15588

Modified Files:
	osacomponent.r 
Log Message:
removed UserLand and (tm)

Index: osacomponent.r
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/resources/Mac/osacomponent.r,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** osacomponent.r	11 Jan 2005 22:48:04 -0000	1.5
--- osacomponent.r	12 Jan 2005 22:18:27 -0000	1.6
***************
*** 45,50 ****
  	
  		{
! 		"Through",		'thgh',
! 		"Between",		'btwn',
  		"Against",		'agst',
  		"OutOf",		'outo',
--- 45,50 ----
  	
  		{
! 		"Through",	'thgh',
! 		"Between",	'btwn',
  		"Against",		'agst',
  		"OutOf",		'outo',
***************
*** 53,57 ****
  		"Around",		'arnd',
  		"Beside",		'bsid',
! 		"Beneath",		'bnth',
  		"Under",		'undr',
  		"Above",		'abve',
--- 53,57 ----
  		"Around",		'arnd',
  		"Beside",		'bsid',
! 		"Beneath",	'bnth',
  		"Under",		'undr',
  		"Above",		'abve',
***************
*** 65,74 ****
  
  resource 'thng' (128, sysHeap) {
! 	'osa ', 'LAND', 'LAND',						/* ComponentDescription */
  	kOSASupportsCompiling + kOSASupportsConvenience + kOSASupportsEventHandling, 0x00,	/*flags & mask*/
! 	'STUB', 128,								/* resource where Component code is found */
! 	'STR ', 128,								/* name string resource */
! 	'STR ', 129,								/* info string resource */
! 	'ICON', 129									/* icon resource */
  };
  
--- 65,74 ----
  
  resource 'thng' (128, sysHeap) {
! 	'osa ', 'LAND', 'LAND',													/* ComponentDescription */
  	kOSASupportsCompiling + kOSASupportsConvenience + kOSASupportsEventHandling, 0x00,	/*flags & mask*/
! 	'STUB', 128,															/* resource where Component code is found */
! 	'STR ', 128,															/* name string resource */
! 	'STR ', 129,															/* info string resource */
! 	'ICON', 129															/* icon resource */
  };
  
***************
*** 95,107 ****
  	{	/* array StringArray: 5 elements */
  		/* [1] */
! 		"UserLand Frontierª",
  		/* [2] */
  		"UserTalk",
  		/* [2] */
! 		"UserLand Frontierª UserTalk scripting component",
  		/* [4] */
! 		"UserLand Frontierª Menu Sharing component",
  		/* [5] */
! 		"UserLand Frontierª Window Sharing component"
  	}
  };
--- 95,107 ----
  	{	/* array StringArray: 5 elements */
  		/* [1] */
! 		"Frontier",							/* 2005-01-04 creedon - removed UserLand and (tm) for open source release */
  		/* [2] */
  		"UserTalk",
  		/* [2] */
! 		"Frontier UserTalk scripting component",	/* 2005-01-04 creedon - removed UserLand and (tm) for open source release */
  		/* [4] */
! 		"Frontier Menu Sharing component",		/* 2005-01-04 creedon - removed UserLand and (tm) for open source release */
  		/* [5] */
! 		"Frontier Window Sharing component"	/* 2005-01-04 creedon - removed UserLand and (tm) for open source release */
  	}
  };

[frontierkernel-commits] Frontier/Common/source about.c,1.5,1.6

[Andre R. <and...@us...>]

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

Modified Files:
	about.c 
Log Message:
Updated About window and startup splash screen: Removed UserLand and trademark char from app name. Fixed minimum window width. Re-enabled old tagline. Switched URL to our new site on sourceforge.net.

Index: about.c
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/source/about.c,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** about.c	11 Jan 2005 22:48:04 -0000	1.5
--- about.c	12 Jan 2005 11:34:26 -0000	1.6
***************
*** 136,140 ****
  #define aboutlineheight 14
  
! #define aboutlinewidth 300
  
  #define aboutvertstart 0
--- 136,140 ----
  #define aboutlineheight 14
  
! #define aboutlinewidth 250 /*2005-01-12 aradke*/
  
  #define aboutvertstart 0
***************
*** 160,164 ****
  #define versionwidth 56
  
! #define minaboutwidth  (aboutlinewidth + abouthorizgap + 2 * abouthorizinset)
  
  #define agentmenuhorizgap 10
--- 160,164 ----
  #define versionwidth 56
  
! #define minaboutwidth  (aboutlinewidth + abouthorizgap + 2 * abouthorizinset + 4 * abouticonsize)	/*2005-01-12 aradke*/
  
  #define agentmenuhorizgap 10
***************
*** 166,183 ****
  static byte * aboutstrings [] = {
  
! #ifdef PIKE
! 	"\x2b" "The power of Web publishing on your desktop", /*7.0b1 PBS*/
! #else
! 	"\x2e" "Powerful cross-platform web content management", /*6.1 AR*/
! #endif
  		
!     /*"\x25" "Powerful cross-platform web scripting",*/
  	
  	"\x23" "© 1992-" copyright_year_string " UserLand Software, Inc.",
  
  #ifdef PIKE
! 	"\x1a" "http://radio.userland.com/", /*7.0d8 PBS*/
  #else
! 	"\x1d" "http://frontier.userland.com/",
  #endif
  	
--- 166,183 ----
  static byte * aboutstrings [] = {
  
! //#ifdef PIKE
! //	"\x2b" "The power of Web publishing on your desktop", /*7.0b1 PBS*/
! //#else
! //	"\x2e" "Powerful cross-platform web content management", /*6.1 AR*/
! //#endif
  		
!     "\x25" "Powerful cross-platform web scripting", /*2005-01-12 aradke: re-enabled*/
  	
  	"\x23" "© 1992-" copyright_year_string " UserLand Software, Inc.",
  
  #ifdef PIKE
! 	"\x26" "http://frontierkernel.sourceforge.net/", /*2005-01-12 aradke*/
  #else
! 	"\x26" "http://frontierkernel.sourceforge.net/", /*2005-01-12 aradke*/
  #endif
  	
***************
*** 202,220 ****
  	
  #ifdef PIKE
! 	#ifdef MACVERSION
! 		"\x0f" "Radio UserLand\xaa", /*7.0d8 PBS*/
! 	#endif
! 	#ifdef WIN95VERSION
! 		"\x0f" "Radio UserLand\x99", /*7.0d8 PBS*/
! 	#endif
  	
! 	"\x14" "About Radio UserLand", /*7.0d8 PBS*/
  #else
! 	#ifdef MACVERSION
! 		"\x12" "UserLand Frontier\xaa",
! 	#endif
! 	#ifdef WIN95VERSION
! 		"\x12" "UserLand Frontier\x99",
! 	#endif
  	
  	"\x0e" "About Frontier",
--- 202,210 ----
  	
  #ifdef PIKE
! 	"\x05" "Radio", /*2005-01-12 aradke*/
  	
! 	"\x0b" "About Radio", /*2005-01-12 aradke*/
  #else
! 	"\x08" "Frontier", /*2005-01-12 aradke*/
  	
  	"\x0e" "About Frontier",
***************
*** 756,759 ****
--- 746,751 ----
  		setglobalfontsizestyle (geneva, 9, bold);
  	
+ 		rabout.left += abouticonsize; /*2005-01-12 aradke: shorter frontieritem, indent it too*/ 
+ 
  		movepento (rabout.left, rabout.top + abouticonsize + globalfontinfo.ascent);
  		
***************
*** 766,770 ****
  		
  
! 		rabout.left += abouticonsize;
  		
  		rabout.right = rabout.left + abouticonsize;
--- 758,762 ----
  		
  
! 		//rabout.left += abouticonsize; /*2005-01-12 aradke*/
  		
  		rabout.right = rabout.left + abouticonsize;

[frontierkernel-commits] Frontier/Common/headers versions.h,1.6,1.7

[Andre R. <and...@us...>]

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

Modified Files:
	versions.h 
Log Message:
Removed UserLand and trademark character from app name. Bumped copyright year string to 2005.

Index: versions.h
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/headers/versions.h,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** versions.h	11 Jan 2005 22:48:02 -0000	1.6
--- versions.h	12 Jan 2005 11:32:33 -0000	1.7
***************
*** 63,83 ****
  
  
! #define	copyright_year_string	"2004"
  
  
  /* Define app name and related strings */
  #ifdef PIKE
! 	#define APPNAME						"Radio UserLand"
  	#define APPNAME_SHORT				"Radio"
  #else
! 	#define APPNAME						"UserLand Frontier"
  	#define APPNAME_SHORT				"Frontier"
  #endif
  
  /* app name for display -- ends with the trademark character */
  #ifdef MACVERSION
! 	#define APPNAME_TM					APPNAME "\xAA"
  #endif
  #ifdef WIN95VERSION
! 	#define APPNAME_TM					APPNAME "\x99"
  #endif
--- 63,84 ----
  
  
! #define	copyright_year_string	"2005"
  
  
  /* Define app name and related strings */
  #ifdef PIKE
! 	#define APPNAME						"Radio"
  	#define APPNAME_SHORT				"Radio"
  #else
! 	#define APPNAME						"Frontier"
  	#define APPNAME_SHORT				"Frontier"
  #endif
  
  /* app name for display -- ends with the trademark character */
+ /* 2005-01-12 aradke: app names no longer include trademark character */
  #ifdef MACVERSION
! 	#define APPNAME_TM					APPNAME
  #endif
  #ifdef WIN95VERSION
! 	#define APPNAME_TM					APPNAME
  #endif

[frontierkernel-commits] Frontier/build_XCode/Frontier.xcode project.pbxproj,1.17,1.18

[Andre R. <and...@us...>]

Update of /cvsroot/frontierkernel/Frontier/build_XCode/Frontier.xcode
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18277/Frontier.xcode

Modified Files:
	project.pbxproj 
Log Message:
Removed UserLand and trademark character from the names of all generated binaries.

Index: project.pbxproj
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/build_XCode/Frontier.xcode/project.pbxproj,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** project.pbxproj	22 Nov 2004 04:56:18 -0000	1.17
--- project.pbxproj	12 Jan 2005 10:30:10 -0000	1.18
***************
*** 632,636 ****
  				OTHER_LDFLAGS = "-multiply_defined warning";
  				OTHER_REZFLAGS = "-d TARGET_API_MAC_CARBON=1 -d FRONTIER_FRAMEWORK_INCLUDES=1 -i ../Common/headers";
! 				PRODUCT_NAME = "Userland Frontier™";
  				REZ_PREPROCESSOR_DEFINITIONS = "";
  				REZ_PREPROCESSOR_UNDEFINITIONS = "";
--- 632,636 ----
  				OTHER_LDFLAGS = "-multiply_defined warning";
  				OTHER_REZFLAGS = "-d TARGET_API_MAC_CARBON=1 -d FRONTIER_FRAMEWORK_INCLUDES=1 -i ../Common/headers";
! 				PRODUCT_NAME = Frontier;
  				REZ_PREPROCESSOR_DEFINITIONS = "";
  				REZ_PREPROCESSOR_UNDEFINITIONS = "";
***************
*** 658,662 ****
  			includeInIndex = 0;
  			isa = PBXFileReference;
! 			path = "Userland Frontier™.app";
  			refType = 3;
  			sourceTree = BUILT_PRODUCTS_DIR;
--- 658,662 ----
  			includeInIndex = 0;
  			isa = PBXFileReference;
! 			path = Frontier.app;
  			refType = 3;
  			sourceTree = BUILT_PRODUCTS_DIR;
***************
*** 8632,8636 ****
  			fileEncoding = 30;
  			isa = PBXFileReference;
! 			lastKnownFileType = text.plist.xml;
  			path = Info.plist;
  			refType = 2;
--- 8632,8636 ----
  			fileEncoding = 30;
  			isa = PBXFileReference;
! 			lastKnownFileType = text.xml;
  			path = Info.plist;
  			refType = 2;

[frontierkernel-commits] Frontier/build_CWPro8 Frontier.mcp,1.9,1.10

[Andre R. <and...@us...>]

Update of /cvsroot/frontierkernel/Frontier/build_CWPro8
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12946

Modified Files:
	Frontier.mcp 
Log Message:
Removed UserLand and trademark character from the names of all generated binaries.

Index: Frontier.mcp
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/build_CWPro8/Frontier.mcp,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
Binary files /tmp/cvsdya80o and /tmp/cvsibMTx2 differ

[frontierkernel-commits] Frontier/build_GNU frontier.gnu.h,1.1,1.2

[Andre R. <and...@us...>]

Update of /cvsroot/frontierkernel/Frontier/build_GNU
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10968/build_GNU

Modified Files:
	frontier.gnu.h 
Log Message:
Added CVS keyword header to all source files.

Index: frontier.gnu.h
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/build_GNU/frontier.gnu.h,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** frontier.gnu.h	3 Jan 2005 00:40:53 -0000	1.1
--- frontier.gnu.h	12 Jan 2005 09:50:48 -0000	1.2
***************
*** 1,3 ****
--- 1,5 ----
  
+ /*	$Id$    */
+ 
  /******************************************************************************
  

[frontierkernel-commits] Frontier/build_CWPro8 Frontier.mcp,1.8,1.9

[Andre R. <and...@us...>]

Update of /cvsroot/frontierkernel/Frontier/build_CWPro8
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25998

Modified Files:
	Frontier.mcp 
Log Message:
Removed targets for building the Radio kernel, now available seperately in the newly created Radio.mcp project file for CodeWarrior 8.

Index: Frontier.mcp
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/build_CWPro8/Frontier.mcp,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
Binary files /tmp/cvsgT04wX and /tmp/cvsTpFYik differ

[frontierkernel-commits] Frontier/build_CWPro8 Radio.mcp,NONE,1.1

[Andre R. <and...@us...>]

Update of /cvsroot/frontierkernel/Frontier/build_CWPro8
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25433

Added Files:
	Radio.mcp 
Log Message:
CodeWarrior 8 project file for building the Radio kernel, added for archival purposes.

--- NEW FILE: Radio.mcp ---
(This appears to be a binary file; contents omitted.)