Merge pull request #303 from taisukef/c--

taisukef · web-flow · commit 6c1325e2db25 · 2025-02-18T22:42:52.000+09:00
add C--
diff --git a/.gitignore b/.gitignore
@@ -1,6 +1,7 @@
 *.class
 __pycache__
 a.out
+a.out.*
 *.exe
 main
 *.o
diff --git a/README.md b/README.md
@@ -5,9 +5,9 @@ Geo3x3
 
 ## Supported Languages
 
-109 languages supported ([langlist.csv](langlist.csv) / [langlist.html](https://taisukef.github.io/Geo3x3/langlist.html))  
+110 languages supported ([langlist.csv](langlist.csv) / [langlist.html](https://taisukef.github.io/Geo3x3/langlist.html))  
 
-([JavaScript](#in-JavaScript-HTML) / [TypeScript](#in-TypeScript-Deno) / [Zen](#in-Zen) / [C](#in-C) / [C++](#in-C-1) / [C#](#in-C-2) / [Swift](#in-Swift) / [Java](#in-Java) / [Python](#in-Python) / [Ruby](#in-Ruby) / [PHP](#in-PHP) / [Go](#in-Go) / [Kotlin](#in-Kotlin) / [Dart](#in-Dart) / [Rust](#in-Rust) / [Haskell](#in-haskell-ghc-84x-or-later) / [OpenVBS](#in-OpenVBS) / [VBScript](#in-VBScript) / [Visual Basic](#in-Visual-Basic) / [Scala](#in-Scala) / [R](#in-R) / [GAS](#in-GAS-Google-App-Script) / [Nim](#in-Nim) / [Lua](#in-Lua) / [Perl](#in-Perl) / [Elixir](#in-Elixir) / [Groovy](#in-Groovy) / [D](#in-D) / [Julia](#in-Julia) / [Racket](#in-Racket) / [OCaml](#in-OCaml) / [Erlang](#in-Erlang) / [Clojure](#in-Clojure) / [F#](#in-F) / [Haxe](#in-Haxe) / [Scheme](#in-Scheme-R6RS) / [Common Lisp](#in-Common-Lisp) / [Elm](#in-Elm) / [Hack](#in-Hack) / [PureScript](#in-PureScript) / [CoffeeScript](#in-CoffeeScript) / [Objective-C](#in-Objective-C) / [Frege](#in-Frege) / [Eiffel](#in-Eiffel) / [Ada](#in-Ada) / [Free Pascal](#in-Free-Pascal) / [Crystal](#in-Crystal) / [Forth](#in-Forth) / [Bash](#in-Bash) / [AWK](#in-AWK) / [Vim script](#in-Vim-script) / [Vim9 script](#in-Vim9-script) / [IchigoJam BASIC](#in-IchigoJam-BASIC) / [GnuCOBOL](#in-GnuCOBOL) / [MoonScript](#in-MoonScript) / [Octave](#in-Octave) / [Emacs Lisp](#in-Emacs-Lisp) / [Fortran 90](#in-Fortran-90) / [MariaDB SQL/PSM](#in-MariaDB-SQL) / [PL/pgSQL](#in-PLpgSQL) / [Tcl](#in-Tcl) / [V](#in-V) / [Pike](#in-Pike) / [Io](#in-Io) / [Wren](#in-Wren) / [GNU Smalltalk](#in-GNU-Smalltalk) / [JScript](#in-JScript) / [Pharo](#in-Pharo) / [Scratch](#in-Scratch) / [Standard ML](#in-Standard-ML) / [なでしこ](#in-なでしこ) / [Kuin](#in-Kuin) / [ClojureScript](#in-ClojureScript) / [HSP](#in-HSP) / [Reason](#in-Reason) / [THPL](#in-THPL) / [Janet](#in-Janet) / [Phel](#in-Phel) / [Raku](#in-Raku) / [文言](#in-文言) / [Vala](#in-Vala) / [SmileBASIC](#in-SmileBASIC) / [Small Basic](#in-Small-Basic) / [Flix](#in-Flix) / [PowerShell](#in-PowerShell) / [Koka](#in-Koka) / [Zig](#in-Zig) / [BanchaScript](#in-BanchaScript) / [AssemblyScript](#in-AssemblyScript) / [Clawn](#in-Clawn) / [FORTRAN 77](#in-FORTRAN-77) / [orelang](#in-orelang) / [Laze](#in-Laze) / [WebAssembly](#in-WebAssembly) / [Nelua](#in-Nelua) / [Roland](#in-Roland) / [ReScript](#in-ReScript) / [Effekt](#in-Effekt) / [Ceylon](#in-Ceylon) / [Mochi](#in-Mochi) / [Neko](#in-Neko) / [NekoML](#in-NekoML) / [LLVM IR](#in-LLVM-IR) / [Mojo](#in-Mojo) / [Pkl](#in-Pkl) / [Jsonnet](#in-Jsonnet) / [AppleScript](#in-AppleScript) / [DNCL3](#in-DNCL3) / [Wirth](#in-Wirth))
+([JavaScript](#in-JavaScript-HTML) / [TypeScript](#in-TypeScript-Deno) / [Zen](#in-Zen) / [C](#in-C) / [C++](#in-C-1) / [C#](#in-C-2) / [Swift](#in-Swift) / [Java](#in-Java) / [Python](#in-Python) / [Ruby](#in-Ruby) / [PHP](#in-PHP) / [Go](#in-Go) / [Kotlin](#in-Kotlin) / [Dart](#in-Dart) / [Rust](#in-Rust) / [Haskell](#in-haskell-ghc-84x-or-later) / [OpenVBS](#in-OpenVBS) / [VBScript](#in-VBScript) / [Visual Basic](#in-Visual-Basic) / [Scala](#in-Scala) / [R](#in-R) / [GAS](#in-GAS-Google-App-Script) / [Nim](#in-Nim) / [Lua](#in-Lua) / [Perl](#in-Perl) / [Elixir](#in-Elixir) / [Groovy](#in-Groovy) / [D](#in-D) / [Julia](#in-Julia) / [Racket](#in-Racket) / [OCaml](#in-OCaml) / [Erlang](#in-Erlang) / [Clojure](#in-Clojure) / [F#](#in-F) / [Haxe](#in-Haxe) / [Scheme](#in-Scheme-R6RS) / [Common Lisp](#in-Common-Lisp) / [Elm](#in-Elm) / [Hack](#in-Hack) / [PureScript](#in-PureScript) / [CoffeeScript](#in-CoffeeScript) / [Objective-C](#in-Objective-C) / [Frege](#in-Frege) / [Eiffel](#in-Eiffel) / [Ada](#in-Ada) / [Free Pascal](#in-Free-Pascal) / [Crystal](#in-Crystal) / [Forth](#in-Forth) / [Bash](#in-Bash) / [AWK](#in-AWK) / [Vim script](#in-Vim-script) / [Vim9 script](#in-Vim9-script) / [IchigoJam BASIC](#in-IchigoJam-BASIC) / [GnuCOBOL](#in-GnuCOBOL) / [MoonScript](#in-MoonScript) / [Octave](#in-Octave) / [Emacs Lisp](#in-Emacs-Lisp) / [Fortran 90](#in-Fortran-90) / [MariaDB SQL/PSM](#in-MariaDB-SQL) / [PL/pgSQL](#in-PLpgSQL) / [Tcl](#in-Tcl) / [V](#in-V) / [Pike](#in-Pike) / [Io](#in-Io) / [Wren](#in-Wren) / [GNU Smalltalk](#in-GNU-Smalltalk) / [JScript](#in-JScript) / [Pharo](#in-Pharo) / [Scratch](#in-Scratch) / [Standard ML](#in-Standard-ML) / [なでしこ](#in-なでしこ) / [Kuin](#in-Kuin) / [ClojureScript](#in-ClojureScript) / [HSP](#in-HSP) / [Reason](#in-Reason) / [THPL](#in-THPL) / [Janet](#in-Janet) / [Phel](#in-Phel) / [Raku](#in-Raku) / [文言](#in-文言) / [Vala](#in-Vala) / [SmileBASIC](#in-SmileBASIC) / [Small Basic](#in-Small-Basic) / [Flix](#in-Flix) / [PowerShell](#in-PowerShell) / [Koka](#in-Koka) / [Zig](#in-Zig) / [BanchaScript](#in-BanchaScript) / [AssemblyScript](#in-AssemblyScript) / [Clawn](#in-Clawn) / [FORTRAN 77](#in-FORTRAN-77) / [orelang](#in-orelang) / [Laze](#in-Laze) / [WebAssembly](#in-WebAssembly) / [Nelua](#in-Nelua) / [Roland](#in-Roland) / [ReScript](#in-ReScript) / [Effekt](#in-Effekt) / [Ceylon](#in-Ceylon) / [Mochi](#in-Mochi) / [Neko](#in-Neko) / [NekoML](#in-NekoML) / [LLVM IR](#in-LLVM-IR) / [Mojo](#in-Mojo) / [Pkl](#in-Pkl) / [Jsonnet](#in-Jsonnet) / [AppleScript](#in-AppleScript) / [DNCL3](#in-DNCL3) / [Wirth](#in-Wirth) / [C--](#in-C-3))
 
 ## What is Geo3x3
 Geo3x3 is a simple geo-coding system for WGS84  
@@ -2440,6 +2440,59 @@ to run:
 $ deno -A https://code4fukui.github.io/Wirth/cli.js geo3x3.wirth
 ```
 
+## in C--
+[C--](https://github.com/tctsigemura/C--)  
+[geo3x3.hmm](https://github.com/taisukef/Geo3x3/blob/master/geo3x3.hmm)
+```
+#include <stdio.hmm>
+#include "geo3x3.hmm"
+
+int[] lat = {0, 3, 5, 6, 5, 8, 5, 8, 0};
+int[] lng = {1, 3, 9, 7, 4, 5, 4, 3, 3};
+
+public int main() {
+  char[] code = geo3x3_encode(lat, lng, 14);
+  if (code == null) {
+    printf("err geo3x3_encode\n");
+    return 1;
+  }
+  printf("geo3x3_encode: %s\n", code); // geo3x3: E9139519253557
+  free(code);
+
+  int n = 9;
+  void[][] res = geo3x3_decode("E9139659937288", n);
+  printf("geo3x3_decode:\n");
+  printf("  lat: ");
+  show(res[0], n);
+  printf("  lng: ");
+  show(res[1], n);
+  int[] level2 = res[2];
+  printf("  level: %d\n", level2[0]);
+  printf("  unit: ");
+  show(res[3], n);
+  for (int i = 0; i < 4; i = i + 1) {
+    free(res[i]);
+  }
+  free(res);
+  return 0;
+}
+```
+setup:
+```
+clone https://github.com/tctsigemura/C--.git
+cd C--/src
+make
+sudo make install
+cd ../lib
+sudo make install
+cd ../include
+sudo make install
+```
+to run:
+```bash
+$ cm2c simple_geo3x3.cmm; ./a.out
+```
+
 ## How to contribute
 1. add a lang
 2. add a lang section in [README.md](README.md) (ex. [Neko](#in-Neko))
diff --git a/geo3x3.hmm b/geo3x3.hmm
@@ -0,0 +1,167 @@
+#include <stdlib.hmm>
+
+int[] create(int val, int n) {
+  int[] res = iMalloc(n);
+  for (int i = 0; i < n; i = i + 1) {
+    res[i] = 0;
+  }
+  res[0] = val / 100;
+  res[1] = val / 10 % 10;
+  res[2] = val % 10;
+  return res;
+}
+
+void show(int[] val, int n) {
+  for (int i = 0; i < n; i = i + 1) {
+    printf("%d ", val[i]);
+  }
+  printf("\n");
+}
+
+void norm(int[] a, int n) {
+  for (int i = n - 1; i >= 1; i = i - 1) {
+    a[i - 1] = a[i - 1] + a[i] / 10;
+    a[i] = a[i] % 10;
+  }
+}
+
+void add(int[] a, int[] b, int[] c, int n) {
+  for (int i = 0; i < n; i = i + 1) {
+    c[i] = a[i] + b[i];
+  }
+  norm(c, n);
+}
+
+void sub(int[] a, int[] b, int[] c, int n) {
+  for (int i = n - 1; i >= 0; i = i - 1) {
+    if (a[i] < b[i] && i > 0) {
+      a[i - 1] = a[i - 1] - 1;
+      a[i] = a[i] + 10;
+    }
+    c[i] = a[i] - b[i];
+  }
+}
+
+void xmul(int[] a, int x, int n) {
+  for (int i = n - 1; i >= 0; i = i - 1) {
+    a[i] = a[i] * x;
+  }
+  norm(a, n);
+}
+
+void xdiv(int[] a, int x, int n) {
+  for (int i = 0; i < n; i = i + 1) {
+    int d = a[i] % x;
+    a[i] = a[i] / x;
+    if (i < n - 1) {
+      a[i + 1] = a[i + 1] + d * 10;
+    }
+  }
+}
+
+void a2b(int[] a, int[] b, int n) {
+  for (int i = 0; i < n; i = i + 1) {
+    b[i] = a[i];
+  }
+}
+
+int divx(int[] a, int[] b, int n) {
+  int[] a2 = create(0, n);
+  int[]c = create(0, n);
+  for (int i = 0; i < n; i = i + 1) {
+    a2[i] = a[i];
+    c[i] = 0;
+  }
+  int x = 0;
+  for (;;) {
+    sub(a2, b, c, n);
+    if (c[0] < 0) {
+      break;
+    }
+    x = x + 1;
+    a2b(c, a2, n);
+  }
+  free(a2);
+  free(c);
+  return x;
+}
+
+public char[] geo3x3_encode(int[] lat, int[] lng, int level) {
+  int n = 9;
+  char[] code = cMalloc(level + 1);
+  lat[1] = lat[1] + 9;
+  norm(lat, n);
+  if (lng[0] >= 0) {
+    code[0] = 'E';
+  } else {
+    code[0] = 'W';
+    int[] n180 = create(180, n);
+    add(lng, n180, lng, n);
+    free(n180);
+  }
+  int[] temp = create(0, n);
+  int[] unit = create(180, n);
+  for (int i = 1; i < level; i = i + 1) {
+    xdiv(unit, 3, n);
+    int y = divx(lat, unit, n);
+    int x = divx(lng, unit, n);
+    code[i] = chr('0' + (x + y * 3 + 1));
+    a2b(unit, temp, n);
+    xmul(temp, x, n);
+    sub(lng, temp, lng, n);
+    a2b(unit, temp, n);
+    xmul(temp, y, n);
+    sub(lat, temp, lat, n);
+  }
+  code[level] = '\0';
+  free(temp);
+  free(unit);
+  return code;
+}
+
+public int[][] geo3x3_decode(char[] code, int n) {
+  boolean flg = false;
+  if (code[0] == 'W') {
+    flg = true;
+  }
+  int[] unit = create(180, n);
+  int[] lat = create(0, n);
+  int[] lng = create(0, n);
+  int[] temp = create(0, n);
+  int level = 1;
+  for (int i = 1;; i = i + 1) {
+    char c = code[i];
+    if (c == '\0') {
+      break;
+    }
+    int m = c - '1';
+    xdiv(unit, 3, n);
+    a2b(unit, temp, n);
+    xmul(temp, m % 3, n);
+    add(lng, temp, lng, n);
+    a2b(unit, temp, n);
+    xmul(temp, m / 3, n);
+    add(lat, temp, lat, n);
+    level = level + 1;
+  }
+  a2b(unit, temp, n);
+  xdiv(temp, 2, n);
+  add(lat, temp, lat, n);
+  add(lng, temp, lng, n);
+  int[] n90 = create(90, n);
+  sub(lat, n90, lat, n);
+  free(n90);
+  if (flg) {
+    int[] n180 = create(180, n);
+    sub(lng, n180, lng, n);
+    free(n180);
+  }
+  int[] level2 = iMalloc(1);
+  level2[0] = level;
+  void[][] res = rMalloc(4);
+  res[0] = lat;
+  res[1] = lng;
+  res[2] = level2;
+  res[3] = unit;
+  return res;
+}
diff --git a/langlist.csv b/langlist.csv
@@ -108,3 +108,4 @@ Jsonnet,"jsonnet,libsonnet",none,none,local,script,https://github.com/taisukef/G
 AppleScript,applescript,end,none,none,script,https://github.com/taisukef/Geo3x3/blob/master/geo3x3_encode.applescript
 DNCL3,dncl,blacket,none,none,script,https://github.com/taisukef/Geo3x3/blob/master/geo3x3.dncl
 Wirth,wirth,end,none,none,script,https://github.com/taisukef/Geo3x3/blob/master/geo3x3.wirth
+C--,"cmm,hmm",blacket,int,none,compile,https://github.com/taisukef/Geo3x3/blob/master/geo3x3.hmm
diff --git a/simple_geo3x3.c b/simple_geo3x3.c
diff --git a/simple_geo3x3.cmm b/simple_geo3x3.cmm
@@ -0,0 +1,33 @@
+#include <stdio.hmm>
+#include <stdlib.hmm>
+#include "geo3x3.hmm"
+
+int[] lat = {0, 3, 5, 6, 5, 8, 5, 8, 0};
+int[] lng = {1, 3, 9, 7, 4, 5, 4, 3, 3};
+
+public int main() {
+  char[] code = geo3x3_encode(lat, lng, 14);
+  if (code == null) {
+    printf("err geo3x3_encode\n");
+    return 1;
+  }
+  printf("geo3x3_encode: %s\n", code); // geo3x3: E9139519253557
+  free(code);
+
+  int n = 9;
+  void[][] res = geo3x3_decode("E9139659937288", n);
+  printf("geo3x3_decode:\n");
+  printf("  lat: ");
+  show(res[0], n);
+  printf("  lng: ");
+  show(res[1], n);
+  int[] level2 = res[2];
+  printf("  level: %d\n", level2[0]);
+  printf("  unit: ");
+  show(res[3], n);
+  for (int i = 0; i < 4; i = i + 1) {
+    free(res[i]);
+  }
+  free(res);
+  return 0;
+}

-Original file line number
+Diff line change
@@ @@ -1,6 +1,7 @@ @@
 *.class
 __pycache__
 a.out
 +a.out.*
 *.exe
 main
 *.o