*** empty log message ***

ase/test/com/awk.js

@@ -0,0 +1,54 @@
+var awk, first, n
+
+first = true
+
+function awk_OpenSource (mode)
+{
+	WScript.echo ("OpenSource - mode:" + mode);
+	return 1;
+}
+
+function awk_CloseSource (mode)
+{
+	WScript.echo ("CloseSource - mode:" + mode);
+	return 0;
+}
+
+function awk_ReadSource (buf)
+{
+	WScript.echo ("ReadSource - buf: [" + buf.Value + "]");
+	if (first)
+	{
+		buf.Value = "BEGIN {print 1; print 2; print 3 > \"x\";}"
+		first = false
+		return buf.Value.length;
+	}
+	else return 0;
+}
+
+function awk_WriteSource (buf)
+{
+	//WScript.echo ("WriteSource - cnt: " + cnt)
+	WScript.echo (buf.Value);
+	return buf.Value.length;
+}
+
+awk = WScript.CreateObject("ASE.Awk");
+WScript.ConnectObject (awk, "awk_");
+
+
+n = awk.Parse();
+if (n == -1)
+{
+	WScript.echo ("parse failed");
+	WScript.quit (1);
+}
+
+n = awk.Run ();
+if (n == -1)
+{
+	WScript.echo ("run failed");
+	WScript.quit (1);
+}
+
+

ase/test/com/awk.vbs

@@ -0,0 +1,30 @@
+dim awk, first
+
+first = true
+
+function awk_OpenSource (mode)
+	WScript.echo ("OpenSource - mode:" & mode)
+	awk_OpenSource = 1
+end function
+
+function awk_CloseSource (mode)
+	WScript.echo ("CloseSource - mode:" & mode)
+	awk_CloseSource = 0
+end function
+
+function awk_ReadSource (buf, cnt)
+	WScript.echo ("ReadSource - cnt: " & cnt)
+	if first then
+		buf.Value = "BEGIN {print 1;}"
+		first = false
+		awk_ReadSource = len(buf.Value)
+	else 
+		awk_ReadSource = 0
+	end if
+end function
+
+set awk = WScript.CreateObject("ASE.Awk")
+call WScript.ConnectObject (awk, "awk_")
+
+WScript.echo awk.Parse
+set awk = nothing