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

ccns · Jan 25, 2019 · effe3c8 · effe3c8
1 parent f62fd02
commit effe3c8
Show file tree

Hide file tree

Showing 3 changed files with 31 additions and 0 deletions.
diff --git a/include/config.h b/include/config.h
@@ -91,6 +91,10 @@
 
 #define GRAYOUT                 /* 淡入淡出特效系統 */
 
+#ifdef  M3_USE_BBSLUA           /* Enable BBS-Lua */
+#define USE_BBSLUA
+#endif
+
 /* ----------------------------------------------------- */
 /* 隨 BBS 站規模成長而擴增                               */
 /* ----------------------------------------------------- */

diff --git a/maple/more.c b/maple/more.c
@@ -695,6 +695,25 @@ more(
             shift = 0;
             break;
         }
+/* BBS-Lua */
+#ifdef M3_USE_BBSLUA
+        else if (key == 'L' || key == 'l')
+        {
+#ifdef M3_USE_PFTERM
+            screen_backup_t old_screen = {0};
+            scr_dump(&old_screen);
+#else
+            screenline slt[T_LINES];
+            vs_save(slt);
+#endif
+            bbslua(fpath);
+#ifdef M3_USE_PFTERM
+            scr_restore_free(&old_screen);
+#else
+            vs_restore(slt);
+#endif
+        }
+#endif  /* #ifdef M3_USE_BBSLUA */
 /* 081229.cache: BBSRuby */
 //      else if (key == '!')
 //      {

diff --git a/maple/pmore.c b/maple/pmore.c
@@ -2831,6 +2831,14 @@ _pmore2(
                 break;
 #endif // PMORE_USE_INTERNAL_HELP
 
+            /* BBS-Lua */
+#ifdef USE_BBSLUA
+            case 'l': case 'L':
+                bbslua(* (char **)ahctx);
+                MFDISP_DIRTY();
+                break;
+#endif // USE_BBSLUA
+
             /* debug system */
 #ifdef DEBUG
             case 'd':