From 8fc78c2c8de45065836c92208830cf4f56afabc8 Mon Sep 17 00:00:00 2001
From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Tue, 26 Nov 2002 13:44:35 +0000
Subject: [PATCH] Added the .TIME pseudo function

git-svn-id: svn://svn.cc65.org/cc65/trunk@1651 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 doc/ca65.sgml      | 32 +++++++++++++++++++++++++-------
 src/ca65/expr.c    |  6 ++++++
 src/ca65/pseudo.c  |  1 +
 src/ca65/scanner.c |  1 +
 src/ca65/scanner.h |  1 +
 5 files changed, 34 insertions(+), 7 deletions(-)

diff --git a/doc/ca65.sgml b/doc/ca65.sgml
index 83eb7fe8d..83f5ab230 100644
--- a/doc/ca65.sgml
+++ b/doc/ca65.sgml
@@ -1,3 +1,4 @@
+
 <!doctype linuxdoc system>
 
 <article>
@@ -406,6 +407,7 @@ Available operators sorted by precedence:
     .DEFINED   	Builtin function	     	     	1
     .MATCH     	Builtin function	     	     	1
     .TCOUNT    	Builtin function	     	     	1
+    .TIME    	Builtin function	     	     	1
     .XMATCH    	Builtin function	     	     	1
     .PARAMCOUNT Builtin pseudo variable	(r/o)	      	1
     .REFERENCED Builtin function	     	       	1
@@ -2139,17 +2141,33 @@ Here's a list of all control commands and a description, what they do:
 
   <tscreen><verb>
     	.macro	ldax	arg
-    		.if (.match (.mid (0, 1, arg), #))
-    		; ldax called with immidiate operand
-		lda	#<(.right (.tcount (arg)-1, arg))
-		ldx	#>(.right (.tcount (arg)-1, arg))
-		.else
-		...
-    		.endif
+    	   	.if (.match (.mid (0, 1, arg), #))
+    	   	; ldax called with immidiate operand
+	   	lda	#<(.right (.tcount (arg)-1, arg))
+	   	ldx	#>(.right (.tcount (arg)-1, arg))
+	   	.else
+	   	...
+    	   	.endif
        	.endmacro
   </verb></tscreen>
 
 
+<sect1><tt>.TIME</tt><label id=".TIME"><p>
+
+  Reading this pseudo variable will give a constant integer value that
+  represents the current time in POSIX standard (as seconds since the 
+  Epoch).
+
+  It may be used to encode the time of translation somewhere in the created
+  code.
+
+  Example:
+
+  <tscreen><verb>
+        .dword  .time   ; Place time here
+  </verb></tscreen>
+
+
 <sect1><tt>.WARNING</tt><label id=".WARNING"><p>
 
   Force an assembly warning. The assembler will output a warning message
diff --git a/src/ca65/expr.c b/src/ca65/expr.c
index ce37e9ba7..0c394b26b 100644
--- a/src/ca65/expr.c
+++ b/src/ca65/expr.c
@@ -34,6 +34,7 @@
 
 
 #include <string.h>
+#include <time.h>
 
 /* common */
 #include "check.h"
@@ -660,6 +661,11 @@ static ExprNode* Factor (void)
 	    N = Function (FuncTCount);
 	    break;
 
+	case TOK_TIME:
+	    N = LiteralExpr (time (0));
+	    NextTok ();
+	    break;
+
 	case TOK_XMATCH:
 	    N = Function (FuncXMatch);
 	    break;
diff --git a/src/ca65/pseudo.c b/src/ca65/pseudo.c
index e521fdbe9..f1ed0a139 100644
--- a/src/ca65/pseudo.c
+++ b/src/ca65/pseudo.c
@@ -1430,6 +1430,7 @@ static CtrlDesc CtrlCmdTab [] = {
     { ccNone,		DoUnexpected	},	/* .STRLEN */
     { ccNone,		DoSunPlus	},
     { ccNone,		DoUnexpected	},	/* .TCOUNT */
+    { ccNone,  	       	DoUnexpected	},	/* .TIME */
     { ccNone,		DoWarning	},
     { ccNone,       	DoWord		},
     { ccNone,  	       	DoUnexpected	},	/* .XMATCH */
diff --git a/src/ca65/scanner.c b/src/ca65/scanner.c
index 05e6820d0..8ccc1f6a6 100644
--- a/src/ca65/scanner.c
+++ b/src/ca65/scanner.c
@@ -228,6 +228,7 @@ struct DotKeyword {
     { ".STRLEN",	TOK_STRLEN	},
     { ".SUNPLUS",  	TOK_SUNPLUS	},
     { ".TCOUNT",	TOK_TCOUNT	},
+    { ".TIME",         	TOK_TIME	},
     { ".WARNING",	TOK_WARNING	},
     { ".WORD", 	  	TOK_WORD	},
     { ".XMATCH",	TOK_XMATCH	},
diff --git a/src/ca65/scanner.h b/src/ca65/scanner.h
index e24397078..720748937 100644
--- a/src/ca65/scanner.h
+++ b/src/ca65/scanner.h
@@ -201,6 +201,7 @@ enum Token {
     TOK_STRLEN,
     TOK_SUNPLUS,
     TOK_TCOUNT,
+    TOK_TIME,
     TOK_WARNING,
     TOK_WORD,
     TOK_XMATCH,