mirror of
https://github.com/kichikuou/xsystem35-sdl2.git
synced 2026-09-22 22:48:08 +03:00
kichikuou
a627a8ea3d
Define a dedicated `vmvar_t` type for values stored in variable pages and propagate it through interfaces that expose those values. Keep the type as int for now so this commit does not change runtime behavior. This separates VM storage from ordinary int buffers and makes a later conversion to 16-bit storage mechanically checkable.
101 lines
2.4 KiB
C
101 lines
2.4 KiB
C
/*
|
|
* Math.c 汎用数学関数？ OnlyYou -リ・クスル他
|
|
*
|
|
* Copyright (C) 1997-1998 Masaki Chikama (Wren) <chikama@kasumi.ipl.mech.nagoya-u.ac.jp>
|
|
* 1998- <masaki-c@is.aist-nara.ac.jp>
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
*
|
|
*/
|
|
/* $Id: Math.c,v 1.3 2001/11/29 11:21:44 chikama Exp $ */
|
|
|
|
#include "config.h"
|
|
|
|
#include <stdio.h>
|
|
|
|
#include "portab.h"
|
|
#include "system.h"
|
|
#include "xsystem35.h"
|
|
#include "modules.h"
|
|
#include "nact.h"
|
|
#include "randMT.h"
|
|
|
|
static int numtblmax;
|
|
|
|
static void RandMTInit() {
|
|
/*
|
|
(おそらく Mersenne Twister使用の) 乱数初期化
|
|
|
|
p1: 初期化用 seed
|
|
*/
|
|
int p1 = getCaliValue(); /* ITimer */
|
|
|
|
TRACE("Math.RandMTInit %d:", p1);
|
|
}
|
|
|
|
static void RandMTGet() {
|
|
/*
|
|
1 から num までの乱数を生成
|
|
|
|
num: 最大値
|
|
var: 結果を返す変数
|
|
*/
|
|
int num = getCaliValue();
|
|
vmvar_t *var = getCaliVariable();
|
|
|
|
if (num == 0 || num == 1) {
|
|
*var = num;
|
|
} else {
|
|
*var = (int)(genrand() * num) + 1;
|
|
}
|
|
|
|
TRACE("Math.RandMTGet %d,%p:", num, var);
|
|
}
|
|
|
|
static void RandMTMakeNumTable() {
|
|
/*
|
|
乱数テーブルの最大値を設定
|
|
|
|
p1: 最大値
|
|
*/
|
|
int p1 = getCaliValue();
|
|
|
|
numtblmax = p1;
|
|
|
|
TRACE("Math.RandMTMakeNumTable %d:", p1);
|
|
}
|
|
|
|
static void RandMTGetNumTable() {
|
|
/*
|
|
乱数テーブルから値を取得
|
|
|
|
var: 乱数を格納する変数
|
|
*/
|
|
vmvar_t *var = getCaliVariable();
|
|
|
|
*var = (int)(genrand() * numtblmax) + 1;
|
|
|
|
TRACE("Math.RandMTGetNumTable %d:", *var);
|
|
}
|
|
|
|
static const ModuleFunc functions[] = {
|
|
{"RandMTGet", RandMTGet},
|
|
{"RandMTGetNumTable", RandMTGetNumTable},
|
|
{"RandMTInit", RandMTInit},
|
|
{"RandMTMakeNumTable", RandMTMakeNumTable},
|
|
};
|
|
|
|
const Module module_Math = {"Math", functions, sizeof(functions) / sizeof(ModuleFunc)};
|