<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><br><div><div>On Oct 4, 2012, at 3:30 PM, <a href="mailto:openbios-request@openbios.org">openbios-request@openbios.org</a> wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><span class="Apple-style-span" style="border-collapse: separate; font-family: Helvetica; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-align: -webkit-auto; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; font-size: medium; "><br>Message: 4<br>Date: Mon, 24 Sep 2012 23:40:27 +0100<br>From: Mark Cave-Ayland <<a href="mailto:mark.cave-ayland@ilande.co.uk">mark.cave-ayland@ilande.co.uk</a>><br>To: The OpenBIOS Mailinglist <<a href="mailto:openbios@openbios.org">openbios@openbios.org</a>><br>Subject: Re: [OpenBIOS] [PATCH] Adds the get-time word to the<br><span class="Apple-tab-span" style="white-space: pre; "> </span>dictionary. It returns the current time and date on the stack.<br>Message-ID: <<a href="mailto:5060E15B.3020103@ilande.co.uk">5060E15B.3020103@ilande.co.uk</a>><br>Content-Type: text/plain; charset=ISO-8859-1; format=flowed<br><br>On 23/09/12 22:57, Programmingkid wrote:<br><br><blockquote type="cite">Made a few changes to the patch. Thank you Tarl for your suggestions.<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">Signed-Off-By: John Arbuckle<<a href="mailto:programmingkidx@gmail.com">programmingkidx@gmail.com</a>><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">---<br></blockquote><blockquote type="cite"> forth/system/main.fs | 22 ++++++++++++++++++++++<br></blockquote><blockquote type="cite"> 1 files changed, 22 insertions(+), 0 deletions(-)<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">diff --git a/forth/system/main.fs b/forth/system/main.fs<br></blockquote><blockquote type="cite">index 122ab1f..16d4829 100644<br></blockquote><blockquote type="cite">--- a/forth/system/main.fs<br></blockquote><blockquote type="cite">+++ b/forth/system/main.fs<br></blockquote><blockquote type="cite">@@ -58,3 +58,25 @@ variable DIAG-list<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"> outer-interpreter<br></blockquote><blockquote type="cite"> ;<br></blockquote><blockquote type="cite">+<br></blockquote><blockquote type="cite">+\ Returns the time ( -- second minute hour day month year )<br></blockquote><blockquote type="cite">+: get-time<br></blockquote><blockquote type="cite">+ " rtc" open-dev ( device )<br></blockquote><blockquote type="cite">+ dup<span class="Apple-tab-span" style="white-space: pre; "> </span><span class="Apple-converted-space"> </span> ( device device )<br></blockquote><blockquote type="cite">+<br></blockquote><blockquote type="cite">+ 0= if \ if the real-time clock isn't available<br></blockquote><blockquote type="cite">+ drop ( )<br></blockquote><blockquote type="cite">+ true ( flag )<br></blockquote><blockquote type="cite">+ cr<br></blockquote><blockquote type="cite">+ abort" Sorry but get-time isn't available for your system. "<br></blockquote><blockquote type="cite">+ then<br></blockquote><blockquote type="cite">+<br></blockquote><blockquote type="cite">+ " get-time" ( device addr len )<br></blockquote><blockquote type="cite">+ rot ( addr len device )<br></blockquote><blockquote type="cite">+ dup ( addr len device device )<br></blockquote><blockquote type="cite">+>r ( addr len device ) ( R: device )<br></blockquote><blockquote type="cite">+ $call-method ( addr len device -- second minute hour day month year ) ( R: device )<br></blockquote><blockquote type="cite">+ r> ( device ) ( R: )<br></blockquote><blockquote type="cite">+ close-dev ( device -- )<br></blockquote><blockquote type="cite">+;<br></blockquote><blockquote type="cite">+<br></blockquote><br>While I'm not objecting to this patch in principle, I find it quite<span class="Apple-converted-space"> </span><br>unusual that Apple would place a word with the same arguments in the<span class="Apple-converted-space"> </span><br>global namespace. In particular, I see references like this which<span class="Apple-converted-space"> </span><br>suggest it is not required:<span class="Apple-converted-space"> </span><br><a href="http://hints.macworld.com/article.php?story=20060814075952448">http://hints.macworld.com/article.php?story=20060814075952448</a>.<br><br>Can you give some more context as to why the get-time word in the rtc<span class="Apple-converted-space"> </span><br>node cannot be used?<br></span></blockquote></div><div><br></div><div>I was trying out some source code I found in the book "Mac OS X Internals" on page 320. When I typed get-time, the word was not found in the dictionary. So I thought I could make a contribution by adding this word to the dictionary. A little later I found out the word was a part of the rtc node. I figure adding this word to the dictionary might help the next person who might be reading this book and trying out some of the source code in it. </div></body></html>