Added the .TIME pseudo function

git-svn-id: svn://svn.cc65.org/cc65/trunk@1651 b7a2c559-68d2-44c3-8de9-860c34a00d81

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), #))
+    	   	.if (.match (.mid (0, 1, arg), #))
-    		; ldax called with immidiate operand
+    	   	; ldax called with immidiate operand
-		lda	#<(.right (.tcount (arg)-1, arg))
+	   	lda	#<(.right (.tcount (arg)-1, arg))
-		ldx	#>(.right (.tcount (arg)-1, arg))
+	   	ldx	#>(.right (.tcount (arg)-1, arg))
-		.else
+	   	.else
-		...
+	   	...
-    		.endif
+    	   	.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

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;

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

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	},

src/ca65/scanner.h

@@ -201,6 +201,7 @@ enum Token {
     TOK_STRLEN,
     TOK_SUNPLUS,
     TOK_TCOUNT,
+    TOK_TIME,
     TOK_WARNING,
     TOK_WORD,
     TOK_XMATCH,