ase/cmd/com/awk.js

@@ -0,0 +1,72 @@
+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;}"
+		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;
+}
+
+function awk_OpenExtio (extio)
+{
+	WScript.echo ("OpenExtio - type: " + extio.Type + " mode: " + extio.Mode + " name: [" + extio.Name + "]");
+	return 1;
+}
+
+function awk_CloseExtio (extio)
+{
+	WScript.echo ("CloseExtio");
+	return 0;
+}
+
+function awk_WriteExtio (extio, buf)
+{
+	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);
+}
+
+