[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/date seconds,NONE,1.1 hour,NONE,1.1 day,1.1.1.1,1.2 minute,1.1.1.1,1.2 year,1.1.1.1,1.2 month,1.1.1.1,1.2

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/date
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32618

Modified Files:
	day minute year month 
Added Files:
	seconds hour 
Log Message:
kernelized date verbs.  see < http://groups.yahoo.com/group/frontierkernel/message/1005 >.

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

Index: year
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/date/year,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** year	26 Mar 2005 19:42:41 -0000	1.1.1.1
--- year	8 Apr 2005 20:05:57 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.date.year
  
! on year (theDate = clock.now ()) { //return just the year from the date
	local (day, month, year, hour, minute, second);
	date.get (theDate, @day, @month, @year, @hour, @minute, @second);
	return (year)};
Çbundle //test code
	Çdialog.alert (date.year ())
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.date.year
  
! on year (theDate = clock.now ()) { //return just the year from the date
	Çbundle  // old code, pre-kernelization, SMD 2005-04-07
		Çlocal (day, month, year, hour, minute, second)
		Çdate.get (theDate, @day, @month, @year, @hour, @minute, @second)
		Çreturn (year)
	kernel (date.year)};
Çbundle //test code
	Çdialog.alert (date.year ())
\ No newline at end of file

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

Index: day
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/date/day,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** day	26 Mar 2005 19:42:38 -0000	1.1.1.1
--- day	8 Apr 2005 20:05:56 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.date.day
  
! on day (theDate = clock.now ()) { //return just the day from the date
	local (day, month, year, hour, minute, second);
	date.get (theDate, @day, @month, @year, @hour, @minute, @second);
	return (day)};
Çbundle //test code
	Çdialog.alert (date.day ())
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.date.day
  
! on day (theDate = clock.now ()) { //return just the day from the date
	Çbundle  // old code, pre-kernelization, SMD 2005-04-07
		Çlocal (day, month, year, hour, minute, second)
		Çdate.get (theDate, @day, @month, @year, @hour, @minute, @second)
		Çreturn (day)
	kernel (date.day)};
Çbundle //test code
	Çdialog.alert( date.day() )
\ No newline at end of file

Index: minute
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/date/minute,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** minute	26 Mar 2005 19:42:41 -0000	1.1.1.1
--- minute	8 Apr 2005 20:05:57 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.date.minute
  
! on minute (theDate = clock.now ()) {
	Ç5/17/01; 3:22:19 PM by DW
		ÇI have lots of scripts that want to know the current minute and don't care what hour, second, day or year it is. This verb just returns the current minute.
	local (day, month, year, hour, minute, second);
	date.get (theDate, @day, @month, @year, @hour, @minute, @second);
	return (minute)};
Çbundle //test code
	Çdialog.alert (minute ())
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.date.minute
  
! on minute (theDate = clock.now ()) {
	Çchanges
		Ç5/17/01; 3:22:19 PM by DW
			ÇI have lots of scripts that want to know the current minute and don't care what hour, second, day or year it is. This verb just returns the current minute.
		ÇFri, Apr 8, 2005 at 8:40:43 AM by SMD
			ÇKernelized
	Çbundle  // old code, pre-kernelization, SMD 2005-04-07
		Çlocal (day, month, year, hour, minute, second)
		Çdate.get (theDate, @day, @month, @year, @hour, @minute, @second)
		Çreturn (minute)
	kernel (date.minute)};
Çbundle //test code
	Çdialog.alert (minute ())
\ No newline at end of file

Index: month
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/date/month,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** month	26 Mar 2005 19:42:41 -0000	1.1.1.1
--- month	8 Apr 2005 20:05:57 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.date.month
  
! on month (theDate = clock.now ()) { //return just the month from the date
	local (day, month, year, hour, minute, second);
	date.get (theDate, @day, @month, @year, @hour, @minute, @second);
	return (month)};
Çbundle //test code
	Çdialog.alert (date.month ())
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.date.month
  
! on month (theDate = clock.now ()) { //return just the month from the date
	Çbundle  // old code, pre-kernelization, SMD 2005-04-07
		Çlocal (day, month, year, hour, minute, second)
		Çdate.get (theDate, @day, @month, @year, @hour, @minute, @second)
		Çreturn (month)
	kernel (date.month)};
Çbundle //test code
	Çdialog.alert (date.month ())
\ No newline at end of file