PL/M source code

oo : do ;

/*
This is a demo of using different sort of the declare "literally statements. each one is translated according to its context in order
to produce a readable and clear C language source code.
*/

declare dcl literally 'declare';
declare lit literally 'literally';

dcl c1 literally '1';
dcl PTR lit 'pointer';

dcl end_struct literally 'b PTR';
declare a word,my_struct literally 'structure ( aa(c1) byte , end_struct)';
declare s1 my_struct;

s1.aa(1) = c1;

end;

#include "..\C\builtin.h"

/*
This is a demo of using different sort of the declare "literally statements. each one is translated according to its context in order to produce a readable and clear C language source code.
*/

#define C1 1

typedef struct {
BYTE aa[C1];
POINTER b;
} my_struct;
static WORD a;
static my_struct s1;

main()
{
s1.aa[1] = C1;
}