initial addition of strcpy

Author: msaarna

keywords.c

@@ -443,6 +443,8 @@ void keywords (char **cstatement)
 	    playsfx (statement);
 	else if (!strncmp (statement[1], "mutesfx", 8))
 	    mutesfx (statement);
+	else if (!strncmp (statement[1], "strcpy", 6))
+	    dostrcpy (statement);
 	else if (!strncmp (statement[1], "memcpy", 6))
 	    domemcpy (statement);
 	else if (!strncmp (statement[1], "memset", 6))

preprocess.lex

@@ -19,6 +19,7 @@ int linenumber=1;
 %x speechquotestart
 %x songdata
 %x songquotestart
+%x strcpy 
 %x plotchars
 %x plotquotestart
 %x player
@@ -126,6 +127,12 @@ int linenumber=1;
 <plotquotestart>['] {printf("%s",yytext);BEGIN(INITIAL);}
 <plotquotestart>^\n* printf("%s",yytext);
 
+"strcpy" {printf("%s",yytext);BEGIN(strcpy);}
+<strcpy>['] {printf("%s",yytext);BEGIN(plotquotestart);}
+<strcpy>[ \t]+ putchar(' ');
+<strcpy>[ \t\r]+$
+<strcpy>\n {linenumber++;printf("\n");BEGIN(INITIAL);}
+
 "_include"            printf("%s", yytext);  
 "include" {printf("%s",yytext);BEGIN(includes);}
 <includes>^\n* printf("%s",yytext);

statements.c

@@ -1843,6 +1843,30 @@ int inlinealphadata (char **statement)
     return (quotelen);
 }
 
+void dostrcpy(char **statement)
+{
+    //           1        2             3
+    //        strcpy   destination 'string literal'
+
+
+    int autotextwidth = 0;
+
+    assertminimumargs (statement, "strcpy", 2);
+
+    if (statement[3][0] == '\'')
+	autotextwidth = inlinealphadata (statement+1);
+    else
+	prerror ("strcpy requires a string literal");
+
+    printf(" ldy #%d\n",autotextwidth);
+    printf ("copystr%d\n", templabel);
+    printf(" lda [%s-1],y\n",statement[3]);
+    printf(" sta [%s-1],y\n",statement[2]);
+    printf(" dey\n");
+    printf (" bne copystr%d\n", templabel++);
+}
+
+
 void plotchars (char **statement)
 {
     //            1        2          3        4     5                   6

statements.h

@@ -88,6 +88,7 @@ void adjustvisible (char **);
 void gosub (char **);
 void doif (char **);
 void domemcpy (char **);
+void dostrcpy (char **);
 void pokechar (char **);
 void setfade (char **statement);
 void let (char **);