BBS-Ruby porting part 4: Enable BBS-Ruby in more().

ccns · Feb 12, 2019 · 400f19c · 400f19c
1 parent d306ce2
commit 400f19c
Show file tree

Hide file tree

Showing 3 changed files with 30 additions and 7 deletions.
diff --git a/include/config.h b/include/config.h
@@ -105,6 +105,10 @@
 #define USE_BBSLUA
 #endif
 
+#ifdef  M3_USE_BBSRUBY          /* Enable BBS-Ruby */
+#define USE_BBSRUBY
+#endif
+
 /* ----------------------------------------------------- */
 /* 隨 BBS 站規模成長而擴增                               */
 /* ----------------------------------------------------- */

diff --git a/maple/more.c b/maple/more.c
@@ -718,14 +718,25 @@ more(
 #endif
         }
 #endif  /* #ifdef M3_USE_BBSLUA */
+#ifdef M3_USE_BBSRUBY
 /* 081229.cache: BBSRuby */
-//      else if (key == '!')
-//      {
-//          screenline slt[T_LINES];
-//          vs_save(slt);
-//          run_ruby(fpath);
-//          vs_restore(slt);
-//      }
+        else if (key == '!')
+        {
+#ifdef M3_USE_PFTERM
+            screen_backup_t old_screen = {0};
+            scr_dump(&old_screen);
+#else
+            screenline slt[T_LINES];
+            vs_save(slt);
+#endif
+            run_ruby(fpath);
+#ifdef M3_USE_PFTERM
+            scr_restore_free(&old_screen);
+#else
+            vs_restore(slt);
+#endif
+        }
+#endif  /* #ifdef M3_USE_BBSRUBY */
 
         else            /* 其他鍵都是使用者中斷 */
         {

diff --git a/maple/pmore.c b/maple/pmore.c
@@ -2835,6 +2835,14 @@ _pmore2(
                 break;
 #endif // USE_BBSLUA
 
+            /* BBS-Ruby */
+#ifdef USE_BBSRUBY
+            case '!':
+                run_ruby(* (char **)ahctx);
+                MFDISP_DIRTY();
+                break;
+#endif // USE_BBSRUBY
+
             /* debug system */
 #ifdef DEBUG
             case 'd':