[270] | 1 | /*
|
---|
| 2 | * ã·ã¹ãã é¢é£
|
---|
| 3 | *
|
---|
| 4 | * Copyright (c) 2016 Wakayama.rb Ruby Board developers
|
---|
| 5 | *
|
---|
| 6 | * This software is released under the MIT License.
|
---|
| 7 | * https://github.com/wakayamarb/wrbb-v2lib-firm/blob/master/MITL
|
---|
| 8 | *
|
---|
| 9 | */
|
---|
| 10 | #include <arduino.h>
|
---|
| 11 | /*#include <eeprom.h>*/
|
---|
| 12 | /*#include <reboot.h>*/
|
---|
| 13 |
|
---|
| 14 | #include <mruby.h>
|
---|
| 15 | #include <mruby/string.h>
|
---|
| 16 | #include <mruby/variable.h>
|
---|
| 17 | #include <mruby/version.h>
|
---|
| 18 | /*#include <eeploader.h>*/
|
---|
| 19 |
|
---|
| 20 | #include "../llbruby.h"
|
---|
| 21 |
|
---|
| 22 | #if BOARD == BOARD_GR || FIRMWARE == SDBT || FIRMWARE == SDWF || BOARD == BOARD_P05 || BOARD == BOARD_P06
|
---|
| 23 | #include "sSdCard.h"
|
---|
| 24 | #include "sWiFi.h"
|
---|
| 25 | #endif
|
---|
| 26 |
|
---|
| 27 | #define EEPROMADDRESS 0xFF
|
---|
| 28 |
|
---|
| 29 | /******************************************************/
|
---|
| 30 | /* çµäºããã¾ã*/
|
---|
| 31 | /* System.exit()*/
|
---|
| 32 | /* ã¨ã©ã¼å¤ããã©ããå³çµäº*/
|
---|
| 33 | /******************************************************/
|
---|
| 34 | mrb_value mrb_system_exit(mrb_state *mrb, mrb_value self)
|
---|
| 35 | {
|
---|
| 36 | mrb_raise(mrb, mrb_class_get(mrb, "Sys#exit Called"), "Normal Completion");
|
---|
| 37 |
|
---|
| 38 | return mrb_nil_value(); /*æ»ãå¤ã¯ç¡ãã§ããã*/
|
---|
| 39 | }
|
---|
| 40 |
|
---|
| 41 | /******************************************************/
|
---|
| 42 | /* 次ã«å®è¡ããã¹ã¯ãªãããã¡ã¤ã«ãVmFilenameã«ã»ãããã¾ãã*/
|
---|
| 43 | /* System.setRun( filename )*/
|
---|
| 44 | /******************************************************/
|
---|
| 45 | mrb_value mrb_system_setrun(mrb_state *mrb, mrb_value self)
|
---|
| 46 | {
|
---|
| 47 | mrb_value text;
|
---|
| 48 |
|
---|
| 49 | mrb_get_args(mrb, "S", &text);
|
---|
| 50 | char *str = RSTRING_PTR(text);
|
---|
| 51 | int len = RSTRING_LEN(text);
|
---|
| 52 | if (len > sizeof(RubyFilename) - 1)
|
---|
| 53 | len = sizeof(RubyFilename) - 1;
|
---|
| 54 |
|
---|
| 55 | strcpy(RubyFilename, (char*)str);
|
---|
| 56 | RubyFilename[0] = '\0';
|
---|
| 57 |
|
---|
| 58 | return mrb_nil_value(); /*æ»ãå¤ã¯ç¡ãã§ããã*/
|
---|
| 59 | }
|
---|
| 60 |
|
---|
| 61 | /******************************************************/
|
---|
| 62 | /* ã·ã¹ãã ã®ãã¼ã¸ã§ã³ãåå¾ãã¾ã*/
|
---|
| 63 | /* System.version([R])*/
|
---|
| 64 | /* å¼æ°ãããã°mrubyã®ãã¼ã·ã§ã³ãè¿ã*/
|
---|
| 65 | /******************************************************/
|
---|
| 66 | mrb_value mrb_system_version(mrb_state *mrb, mrb_value self)
|
---|
| 67 | {
|
---|
| 68 | int tmp;
|
---|
| 69 |
|
---|
| 70 | int n = mrb_get_args(mrb, "|i", &tmp);
|
---|
| 71 |
|
---|
| 72 | if (n >= 1) {
|
---|
| 73 | /*return mrb_const_get(mrb, mrb_obj_value(mrb->kernel_module), mrb_intern_lit(mrb, "MRUBY_VERSION"));*/
|
---|
| 74 | return mrb_str_new_cstr(mrb, MRUBY_VERSION);
|
---|
| 75 | }
|
---|
| 76 | return mrb_str_new_cstr(mrb, (const char*)ProgVer);
|
---|
| 77 | }
|
---|
| 78 |
|
---|
| 79 | /******************************************************/
|
---|
| 80 | /*ãã©ãã·ã¥ã¡ã¢ãªã«æ¸ãè¾¼ã¿ã¾ã*/
|
---|
| 81 | /* System.push(address, buf, length)*/
|
---|
| 82 | /* address: æ¸ãè¾¼ã¿éå§ã¢ãã¬ã¹(0x0000ï½0x00ff)*/
|
---|
| 83 | /* buf: æ¸ãè¾¼ããã¼ã¿*/
|
---|
| 84 | /* length: æ¸ãè¾¼ããµã¤ãº*/
|
---|
| 85 | /* æ»ãå¤*/
|
---|
| 86 | /* 1:æå, 0:失æ*/
|
---|
| 87 | /******************************************************/
|
---|
| 88 | mrb_value mrb_system_push(mrb_state *mrb, mrb_value self)
|
---|
| 89 | {
|
---|
| 90 | int address;
|
---|
| 91 | mrb_value value;
|
---|
| 92 | int len;
|
---|
| 93 | char *str;
|
---|
| 94 |
|
---|
| 95 | mrb_get_args(mrb, "iSi", &address, &value, &len);
|
---|
| 96 |
|
---|
| 97 | str = RSTRING_PTR(value);
|
---|
| 98 |
|
---|
| 99 | if (address > EEPROMADDRESS) {
|
---|
| 100 | return mrb_fixnum_value(0);
|
---|
| 101 | }
|
---|
| 102 |
|
---|
| 103 | int ret = 1;
|
---|
| 104 | for (int i = 0; i < len; i++) {
|
---|
| 105 | ret = EEPROM_write((unsigned long)address, (unsigned char)str[i]);
|
---|
| 106 | if (ret == -1) {
|
---|
| 107 | ret = 0;
|
---|
| 108 | break;
|
---|
| 109 | }
|
---|
| 110 | address++;
|
---|
| 111 | }
|
---|
| 112 |
|
---|
| 113 | return mrb_fixnum_value(ret);
|
---|
| 114 | }
|
---|
| 115 |
|
---|
| 116 | /******************************************************/
|
---|
| 117 | /*ãã©ãã·ã¥ã¡ã¢ãªããèªã¿åºãã¾ã*/
|
---|
| 118 | /* System.pop(address, length)*/
|
---|
| 119 | /* address: èªã¿è¾¼ã¿ã¢ãã¬ã¹(0x0000ï½0x00ff)*/
|
---|
| 120 | /* length: èªã¿è¾¼ã¿ãµã¤ãº(MAX 32ãã¤ã)*/
|
---|
| 121 | /* æ»ãå¤*/
|
---|
| 122 | /* èªã¿è¾¼ãã ãã¼ã¿*/
|
---|
| 123 | /******************************************************/
|
---|
| 124 | mrb_value mrb_system_pop(mrb_state *mrb, mrb_value self)
|
---|
| 125 | {
|
---|
| 126 | unsigned char str[32];
|
---|
| 127 | int address;
|
---|
| 128 | int len;
|
---|
| 129 |
|
---|
| 130 | mrb_get_args(mrb, "ii", &address, &len);
|
---|
| 131 |
|
---|
| 132 | if (len > 32) {
|
---|
| 133 | len = 32;
|
---|
| 134 | }
|
---|
| 135 |
|
---|
| 136 | if (address > EEPROMADDRESS) {
|
---|
| 137 | return mrb_str_new(mrb, (const char *)str, 0);
|
---|
| 138 | }
|
---|
| 139 |
|
---|
| 140 | for (int i = 0; i < len; i++) {
|
---|
| 141 | str[i] = EEPROM_read((unsigned long)address);
|
---|
| 142 | address++;
|
---|
| 143 | }
|
---|
| 144 |
|
---|
| 145 | return mrb_str_new(mrb, (const char *)str, len);
|
---|
| 146 | }
|
---|
| 147 |
|
---|
| 148 | /******************************************************/
|
---|
| 149 | /* ãã¡ã¤ã«ãã¼ãã¼ãå¼ã³åºãã¾ã*/
|
---|
| 150 | /* System.fileload()*/
|
---|
| 151 | /******************************************************/
|
---|
| 152 | mrb_value mrb_system_fileload(mrb_state *mrb, mrb_value self)
|
---|
| 153 | {
|
---|
| 154 | /*ãã¡ã¤ã«ãã¼ãã¼ã®å¼ã³åºã*/
|
---|
| 155 | if (fileloader((const char*)ProgVer, MRUBY_VERSION) == 1) {
|
---|
| 156 | mrb_full_gc(mrb); /*å¼·å¶GCãå
|
---|
| 157 | ¥ãã*/
|
---|
| 158 | /*å¼·å¶çµäº*/
|
---|
| 159 | mrb_raise(mrb, mrb_class_get(mrb, "Sys#exit Called"), "Normal Completion");
|
---|
| 160 | }
|
---|
| 161 |
|
---|
| 162 | mrb_full_gc(mrb); /*å¼·å¶GCãå
|
---|
| 163 | ¥ãã*/
|
---|
| 164 |
|
---|
| 165 | return mrb_nil_value(); /*æ»ãå¤ã¯ç¡ãã§ããã*/
|
---|
| 166 | }
|
---|
| 167 |
|
---|
| 168 | /******************************************************/
|
---|
| 169 | /* ãªã»ãããã¾ã*/
|
---|
| 170 | /* System.reset()*/
|
---|
| 171 | /******************************************************/
|
---|
| 172 | mrb_value mrb_system_reset(mrb_state *mrb, mrb_value self)
|
---|
| 173 | {
|
---|
| 174 | system_reboot(REBOOT_USERAPP); /*ãªã»ããå¾ã«ã¦ã¼ã¶ã¢ããªãèµ·åãã*/
|
---|
| 175 |
|
---|
| 176 | return mrb_nil_value(); /*æ»ãå¤ã¯ç¡ãã§ããã*/
|
---|
| 177 | }
|
---|
| 178 |
|
---|
| 179 | /******************************************************/
|
---|
| 180 | /* SDã«ã¼ãã使ããããã«ãã¾ã: System.useSD*/
|
---|
| 181 | /* System.useSD()*/
|
---|
| 182 | /*æ»ãå¤*/
|
---|
| 183 | /* 0:使ç¨ä¸å¯, 1:使ç¨å¯è½*/
|
---|
| 184 | /******************************************************/
|
---|
| 185 | mrb_value mrb_system_useSD(mrb_state *mrb, mrb_value self)
|
---|
| 186 | {
|
---|
| 187 | int ret = 0;
|
---|
| 188 |
|
---|
| 189 | #if BOARD == BOARD_GR || FIRMWARE == SDBT || FIRMWARE == SDWF || BOARD == BOARD_P05 || BOARD == BOARD_P06
|
---|
| 190 | ret = sdcard_Init(mrb); /*SDã«ã¼ãé¢é£ã¡ã½ããã®è¨å®*/
|
---|
| 191 | #endif
|
---|
| 192 |
|
---|
| 193 | return mrb_fixnum_value(ret);
|
---|
| 194 | }
|
---|
| 195 |
|
---|
| 196 | /******************************************************/
|
---|
| 197 | /* WiFiã¢ã¸ã¥ã¼ã«ESP8266ãã¼ãã使ããããã«ãã¾ã: System.useWiFi*/
|
---|
| 198 | /* System.useWiFi()*/
|
---|
| 199 | /*æ»ãå¤*/
|
---|
| 200 | /* 0:使ç¨ä¸å¯, 1:使ç¨å¯è½*/
|
---|
| 201 | /******************************************************/
|
---|
| 202 | mrb_value mrb_system_useWiFi(mrb_state *mrb, mrb_value self)
|
---|
| 203 | {
|
---|
| 204 | int ret = 0;
|
---|
| 205 |
|
---|
| 206 | #if (BOARD == FIRMWARE && BOARD == SDWF) || BOARD == BOARD_P05 || BOARD == BOARD_P06
|
---|
| 207 | ret = esp8266_Init(mrb); /*ESP8266ãã¼ãé¢é£ã¡ã½ããã®è¨å®*/
|
---|
| 208 | #endif
|
---|
| 209 |
|
---|
| 210 | return mrb_fixnum_value(ret);
|
---|
| 211 | }
|
---|
| 212 |
|
---|
| 213 | /******************************************************/
|
---|
| 214 | /* å®è¡ãã¦ããmrbãã¡ã¤ã«ãã¹ãåå¾ãã¾ã: System.getMrbPath*/
|
---|
| 215 | /* System.getMrbPath()*/
|
---|
| 216 | /*æ»ãå¤*/
|
---|
| 217 | /* å®è¡ãã¦ããmrbãã¡ã¤ã«ãã¹*/
|
---|
| 218 | /******************************************************/
|
---|
| 219 | mrb_value mrb_system_getmrbpath(mrb_state *mrb, mrb_value self)
|
---|
| 220 | {
|
---|
| 221 | return mrb_str_new_cstr(mrb, (const char*)ExeFilename);
|
---|
| 222 | }
|
---|
| 223 |
|
---|
| 224 | /******************************************************/
|
---|
| 225 | /* ã©ã¤ãã©ãªãå®ç¾©ãã¾ã*/
|
---|
| 226 | /******************************************************/
|
---|
| 227 | void sys_Init(mrb_state *mrb)
|
---|
| 228 | {
|
---|
| 229 | struct RClass *systemModule = mrb_define_module(mrb, "System");
|
---|
| 230 |
|
---|
| 231 | mrb_define_module_function(mrb, systemModule, "exit", mrb_system_exit, MRB_ARGS_NONE());
|
---|
| 232 | mrb_define_module_function(mrb, systemModule, "reset", mrb_system_reset, MRB_ARGS_NONE());
|
---|
| 233 | mrb_define_module_function(mrb, systemModule, "setrun", mrb_system_setrun, MRB_ARGS_REQ(1));
|
---|
| 234 | mrb_define_module_function(mrb, systemModule, "version", mrb_system_version, MRB_ARGS_OPT(1));
|
---|
| 235 |
|
---|
| 236 | mrb_define_module_function(mrb, systemModule, "push", mrb_system_push, MRB_ARGS_REQ(3));
|
---|
| 237 | mrb_define_module_function(mrb, systemModule, "pop", mrb_system_pop, MRB_ARGS_REQ(2));
|
---|
| 238 |
|
---|
| 239 | mrb_define_module_function(mrb, systemModule, "fileload", mrb_system_fileload, MRB_ARGS_NONE());
|
---|
| 240 |
|
---|
| 241 | mrb_define_module_function(mrb, systemModule, "useSD", mrb_system_useSD, MRB_ARGS_NONE());
|
---|
| 242 | mrb_define_module_function(mrb, systemModule, "useWiFi", mrb_system_useWiFi, MRB_ARGS_NONE());
|
---|
| 243 |
|
---|
| 244 | mrb_define_module_function(mrb, systemModule, "getMrbPath", mrb_system_getmrbpath, MRB_ARGS_NONE());
|
---|
| 245 | }
|
---|