*** empty log message ***

ase/awk/makefile.tcc

@@ -0,0 +1,20 @@
+SRCS = awk.c err.c tree.c tab.c map.c parse.c run.c sa.c val.c misc.c
+OBJS = $(SRCS:.c=.obj)
+OUT = xpawk.lib
+
+CC = tcc
+CFLAGS = -1 -O -mh -I..\.. -Ddos -DXP_AWK_STAND_ALONE
+
+all: $(OBJS)
+	tlib $(OUT) @&&!
++-$(**: = &^
++-)
+!
+
+clean:
+	del $(OBJS) $(OUT) *.obj
+
+.SUFFIXES: .c .obj
+.c.obj:
+	$(CC) $(CFLAGS) -c $<
+

ase/awk/sa.c

@@ -1,5 +1,5 @@
 /*
- * $Id: sa.c,v 1.18 2006-04-21 16:21:27 bacon Exp $
+ * $Id: sa.c,v 1.19 2006-04-30 18:05:07 bacon Exp $
  */
 
 #include <xp/awk/awk_i.h>
@@ -133,7 +133,9 @@ int xp_vsprintf (xp_char_t* buf, xp_size_t size, const xp_char_t* fmt, xp_va_lis
 	xp_char_t* nf = __adjust_format (fmt);
 	if (nf == XP_NULL) return -1;
 
-#if defined(XP_CHAR_IS_MCHAR)
+#if defined(dos) || defined(__dos)
+	n = vsprintf (buf, nf, ap); /* TODO: write your own vsnprintf */
+#elif defined(XP_CHAR_IS_MCHAR)
 	n = vsnprintf (buf, size, nf, ap);
 #elif defined(_WIN32)
 	n = _vsnwprintf (buf, size, nf, ap);

ase/awk/val.h

@@ -1,5 +1,5 @@
 /*
- * $Id: val.h,v 1.21 2006-04-26 15:53:17 bacon Exp $
+ * $Id: val.h,v 1.22 2006-04-30 18:05:07 bacon Exp $
  */
 
 #ifndef _XP_AWK_VAL_H_
@@ -27,14 +27,15 @@ typedef struct xp_awk_val_str_t  xp_awk_val_str_t;
 typedef struct xp_awk_val_rex_t  xp_awk_val_rex_t;
 typedef struct xp_awk_val_map_t  xp_awk_val_map_t;
 
+#if XP_SIZEOF_INT == 2
 #define XP_AWK_VAL_HDR \
 	unsigned int type: 3; \
-	unsigned int ref: 28
-/*
+	unsigned int ref: 13
+#else
 #define XP_AWK_VAL_HDR \
-	int type: 4; \
-	int ref: 27
-*/
+	unsigned int type: 3; \
+	unsigned int ref: 29
+#endif
 
 struct xp_awk_val_t
 {