6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-02-04 13:32:54 +00:00
Code Issues Projects Releases Wiki Activity

Handle "label" and "segment" attributes for assembler output.

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@5594 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
uz 2012-03-10 20:51:52 +00:00
parent 74108cd74f
commit 4c36a39814
1 changed files with 102 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

114
src/sp65/asm.c
View File

@ -38,6 +38,7 @@
#include <string.h>
/* common */
#include "chartype.h"
#include "check.h"
#include "cmdline.h"
#include "version.h"
@ -55,19 +56,34 @@
void WriteAsmFile (const StrBuf* Data, const Collection* A)
/* Write the contents of Data to the given file in assembler (ca65) format */
static int ValidAsmLabel (const char* L)
/* Check an assembler label for validity */
{
/* Must begin with underscore or alphabetic character */
if (*L != '_' && !IsAlpha (*L)) {
return 0;
}
++L;
/* Remainder must be as above plus digits */
while (*L) {
if (*L != '_' && !IsAlNum (*L)) {
return 0;
}
++L;
}
/* Ok */
return 1;
}
static unsigned GetBytesPerLine (const Collection* A)
/* Return the number of bytes per line from the attribute collection A */
{
FILE* F;
const char* D;
unsigned Size;
unsigned Base = 16;
unsigned BytesPerLine = 16;
char C;
/* Get the file name */
const char* Name = NeedAttrVal (A, "name", "write");
unsigned BytesPerLine = 16;
/* Check for a bytesperline attribute */
const char* V = GetAttrVal (A, "bytesperline");
@ -75,13 +91,76 @@ void WriteAsmFile (const StrBuf* Data, const Collection* A)
(BytesPerLine < 1 || BytesPerLine > 64)) {
Error ("Invalid value for attribute `bytesperline'");
}
return BytesPerLine;
}
static unsigned GetBase (const Collection* A)
/* Return the number base from the attribute collection A */
{
char C;
unsigned Base = 16;
/* Check for a base attribute */
V = GetAttrVal (A, "base");
const char* V = GetAttrVal (A, "base");
if ((V && sscanf (V, "%u%c", &Base, &C) != 1) ||
(Base != 2 && Base != 10 && Base != 16)) {
Error ("Invalid value for attribute `base'");
}
return Base;
}
static const char* GetLabel (const Collection* A)
/* Return the assembler label from the attribute collection A */
{
/* Check for a label attribute */
const char* Label = GetAttrVal (A, "label");
if (Label && !ValidAsmLabel (Label)) {
Error ("Invalid value for attribute `label'");
}
return Label;
}
static const char* GetSegment (const Collection* A)
/* Return the segment name from the attribute collection A */
{
/* Check for a label attribute */
const char* Seg = GetAttrVal (A, "segment");
if (Seg && !ValidAsmLabel (Seg)) {
Error ("Invalid value for attribute `segment'");
}
return Seg;
}
void WriteAsmFile (const StrBuf* Data, const Collection* A)
/* Write the contents of Data to the given file in assembler (ca65) format */
{
FILE* F;
const char* D;
unsigned Size;
/* Get the file name */
const char* Name = NeedAttrVal (A, "name", "write");
/* Check the number of bytes per line */
unsigned BytesPerLine = GetBytesPerLine (A);
/* Get the number base */
unsigned Base = GetBase (A);
/* Get the assembler label */
const char* Label = GetLabel (A);
/* Get the segment */
const char* Segment = GetSegment (A);
/* Open the output file */
F = fopen (Name, "w");
@ -98,6 +177,17 @@ void WriteAsmFile (const StrBuf* Data, const Collection* A)
ProgName,
GetVersionAsString ());
/* If we have a segment defined, output a segment directive */
if (Segment) {
fprintf (F, ".segment \"%s\"\n\n", Segment);
}
/* If we have an assembler label, output that */
if (Label) {
fprintf (F, "%s:\n", Label);
}
/* Write the data */
D = SB_GetConstBuf (Data);
Size = SB_GetLen (Data);