aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--README.md0
-rw-r--r--TODO.md0
-rwxr-xr-xcsv2sc76
-rwxr-xr-xsc2csv73
4 files changed, 149 insertions, 0 deletions
diff --git a/README.md b/README.md
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/README.md
diff --git a/TODO.md b/TODO.md
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/TODO.md
diff --git a/csv2sc b/csv2sc
new file mode 100755
index 0000000..8efb54b
--- /dev/null
+++ b/csv2sc
@@ -0,0 +1,76 @@
+#!/usr/bin/gawk -f
+#
+# csv2sc ver. 0.1 (2001/12/4)
+# Copyright (C) 2001 SIGEHUZI Tomoo (tomoo@s.email.ne.jp)
+
+function is_date(s) {
+ if (split(s, date, "/") != 3) return 0;
+ if (date[1] !~ /(19|20)?[0-9][0-9]/) return 0;
+ if (date[2] !~ /(0?[1-9]|1[012])/) return 0;
+ if (date[2] !~ /(0?[1-9]|[12][0-9]|3[01])/) return 0;
+ return 1;
+}
+
+function i_index(n, i, s) {
+ s = "";
+ for (s = ""; ; n = (n - i) / nix - 1) {
+ i = n % nix;
+ s = sprintf("%s%s", ix[i], s);
+ if (n < 1) break;
+ }
+ return s;
+}
+
+BEGIN {
+ nix = split("BCDEFGHIJKLMNOPQRSTUVWXYZ", ix, "") + 1;
+ ix[0] = "A";
+}
+
+{
+ s = sprintf("%s%s", s, $0);
+ np += gsub(/"/, "\a");
+ if (np % 2) {
+ s = sprintf("%s\n", s);
+ next;
+ }
+ m = n = split(s, a, ",");
+
+ np = 0;
+ s = "";
+ for (i = j = 1; i <= n; i++) {
+ s = sprintf("%s%s", s, a[i]);
+ np += gsub(/"/, "\a", a[i]);
+ if (np % 2) {
+ s = sprintf("%s,", s);
+ continue;
+ }
+ np = 0;
+ a[j++] = s;
+ s = "";
+ }
+ n = j - 1;
+ for (i = 1; i <= n; i++) {
+ s = a[i];
+ sub(/^"/, "", s);
+ sub(/"$/, "", s);
+ gsub(/\\/, "\\\\", s);
+ gsub(/""/, "\\\"", s);
+ gsub(/\n/, "\\n", s);
+ gsub(/\t/, "\\t", s);
+ a[i] = s;
+ }
+
+ for (i = 1; i <= n; i++) {
+ s = a[i];
+ I = i_index(i - 1);
+ if (s ~ /^[0-9.]+$/) printf("let %s%d = %s\n", I, J, s);
+ else if (is_date(s))
+ printf("let %s%d = @dts(%d,%d,%d)\nfmt %s%d \"\004%%Y/%%m/%%d\"\n",
+ I, J, date[1], date[2], date[3], I, J);
+ else printf("leftstring %s%d = \"%s\"\n", I, J, s);
+ }
+
+ J++;
+ np = 0;
+ s = "";
+}
diff --git a/sc2csv b/sc2csv
new file mode 100755
index 0000000..2f2fae5
--- /dev/null
+++ b/sc2csv
@@ -0,0 +1,73 @@
+#!/usr/bin/gawk -f
+#
+# sc2csv ver. 0.1 (2001/12/4)
+# Copyright (C) 2001 SIGEHUZI Tomoo (tomoo@s.email.ne.jp)
+
+function pos(s, n, a) {
+ sub(/[0-9]*$/, " &", s);
+ n = split(s, a);
+ if (n != 2) return 1;
+ J = a[2];
+ s = a[1];
+ n = split(s, a, "");
+ if (n < 1) return 1;
+ I = 0;
+ for (i = 1; i <= n; i++) {
+ if (a[i] !~ /^[A-Z]$/) return 1;
+ I = I * 26 + v[a[i]];
+ }
+ if (I > N[J]) N[J] = I;
+ return 0;
+}
+
+
+function invalid_line() {
+ print "Invalid line:", $0 > "/dev/stderr";
+ exit(1);
+}
+
+
+BEGIN {
+ nap = split("ABCDEFGHIJKLMNOPQRSTUVWXYZ", ap, "");
+ for (i = 1; i <= nap; i++) v[ap[i]] = i - 1;
+}
+
+
+/^\#/ {next;}
+
+
+/^goto / {next;}
+
+
+{
+ if (NF == 0) next;
+ if ($1 ~ /^fmt$/) next;
+ if (pos($2) || $3 != "=") invalid_line();
+ val = $0;
+ sub(/^[^=]*= /, "", val);
+ if ($1 == "let") {
+ if (val ~ /^@dts\([0-9]*,[0-9]*,[0-9]*\)$/) {
+ split(substr(val, 6, length(val) - 6), date, ",");
+ a[I,J] = sprintf("%d/%d/%d", date[1], date[2], date[3]);
+ }
+ else a[I,J] = val;
+ }
+ else if ($1 ~ /^(left|right)string$/) {
+ if (val ~ /^".*"$/) {
+ s = substr(val, 2, length(val) - 2);
+ gsub(/\\t/, "\t", s);
+ gsub(/\\n/, "\n", s);
+ gsub(/\\"/, "\"\"", s);
+ a[I,J] = (s ~ /[,"\n\t]/) ? sprintf("\"%s\"", s) : s;
+ }
+ else a[I,J] = val; # Much left to be done.
+ }
+ else invalid_line();
+}
+
+END {
+ for (j = 0; j <= J; j++) {
+ for (i = 0; i < N[j]; i++) printf("%s,", a[i,j]);
+ print a[i,j];
+ }
+}