uasm 1.0.9+2.57

A library to build the UASM compiler, for usage in build scripts.
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40


;--- macro expansion
;--- test ifidn
;--- test expansion operator at start of line
;--- test literal character operator in a FORC string

	.386
	.model flat, stdcall
	option casemap:none

L macro parms:VARARG
local wstr,i,c,tstr
	wstr textequ <>
	i = 0
	for parm,<parms>
	  c SubStr <parm>,1,1
	  ifidn c,<!">
		tstr SubStr <parm>,2,@SizeStr(parm)-2
%		forc chr$,<tstr>
		  if i
			wstr CatStr wstr,<,>
		  endif
		  wstr CatStr wstr,<'&chr$'>
		  i = i + 1
		endm
	  else
		if i
		  wstr CatStr wstr,<,>
		endif
		wstr CatStr wstr,<parm>
	  endif
	endm
	exitm <wstr>
endm

	.data

	dw L("ab!c")

	end