Commit: 1d57db82bd33e6d21f562e8c6771589a4169b086 - kmbasic2 (git)

BASIC compiler/interpreter for PIC32MX/MZ-80K

Commit MetaInfo

• Revisão: 1d57db82bd33e6d21f562e8c6771589a4169b086 (tree)
• Hora: 2019-04-10 06:25:39
• Autor: Katsumi <kmorimatsu@sour...>
• Commiter: Katsumi

Mensagem de Log

Add js files to protozoa repository

Mudança Sumário

• modified: mips/protozoa/protozoa.mcp
• add: mips/protozoa/reservednames.js
• add: mips/protozoa/sharedfiles.js

Diff

--- a/mips/protozoa/protozoa.mcp
+++ b/mips/protozoa/protozoa.mcp
@@ -65,6 +65,8 @@ file_037=.
 file_038=.
 file_039=.
 file_040=.
+file_041=.
+file_042=.
 [GENERATED_FILES]
 file_000=no
 file_001=no
@@ -107,6 +109,8 @@ file_037=no
 file_038=no
 file_039=no
 file_040=no
+file_041=no
+file_042=no
 [OTHER_FILES]
 file_000=no
 file_001=no
@@ -149,6 +153,8 @@ file_037=no
 file_038=no
 file_039=no
 file_040=no
+file_041=yes
+file_042=yes
 [FILE_INFO]
 file_000=args.c
 file_001=class.c
@@ -191,6 +197,8 @@ file_037=interface\SDFSIO.h
 file_038=interface\videoout.h
 file_039=interface\libsdfsio.a
 file_040=App_32MX170F256B.ld
+file_041=reservednames.js
+file_042=sharedfiles.js
 [SUITE_INFO]
 suite_guid={62D235D8-2DB2-49CD-AF24-5489A6015337}
 suite_state=

--- /dev/null
+++ b/mips/protozoa/reservednames.js
@@ -0,0 +1,188 @@
+/*
+   This file is provided under the LGPL license ver 2.1.
+   Written by Katsumi.
+   http://hp.vector.co.jp/authors/VA016157/
+   [e-mail]
+*/
+
+/*
+	This script is to make lines of reserved words for long var names.
+*/
+
+function name2int(name){
+	var g_source=name+'$';
+	var g_srcpos=0;
+	var prevpos=0;
+	var i=0;
+	var b1=g_source.charCodeAt(0);
+	do {
+		// First character must be A-Z
+		// From second, A-Z and 0-9 can be used.
+		i*=36;
+		if ('0'.charCodeAt(0)<=b1 && b1<='9'.charCodeAt(0)) {
+			i+=b1-'0'.charCodeAt(0);
+		} else if (g_srcpos==prevpos) {
+			// First character must be A-Z.
+			// Subtract 9, resulting 1-26 but not 10-35.
+			// This subtraction is required to maintain
+			// final number being <0x80000000.
+			i+=b1-'A'.charCodeAt(0)+1;
+		} else {
+			i+=b1-'A'.charCodeAt(0)+10;
+		}
+		g_srcpos++;
+		b1=g_source.charCodeAt(g_srcpos);
+	} while ('0'.charCodeAt(0)<= b1 && b1<='9'.charCodeAt(0) || 'A'.charCodeAt(0)<=b1 && b1<='Z'.charCodeAt(0));
+	return i+65536;
+}
+
+var namearray=[
+	'ABS',
+	'ACOS',
+	'ARGS',
+	'ASC',
+	'ASIN',
+	'ATAN',
+	'ATAN2',
+	'BREAK',
+	'CALL',
+	'CDATA',
+	'CEIL',
+	'CHR',
+	'CIRCLE',
+	'CLEAR',
+	'CLS',
+	'COLOR',
+	'COS',
+	'COSH',
+	'CREAD',
+	'CURSOR',
+	'DATA',
+	'DEC',
+	'DELETE',
+	'DIM',
+	'DO',
+	'ELSE',
+	'ELSEIF',
+	'END',
+	'ENDIF',
+	'EXEC',
+	'EXP',
+	'FABS',
+	'FCLOSE',
+	'FEOF',
+	'FGET',
+	'FGETC',
+	'FIELD',
+	'FILE',
+	'FINPUT',
+	'FLEN',
+	'FLOAT',
+	'FLOOR',
+	'FMOD',
+	'FOPEN',
+	'FOR',
+	'FPRINT',
+	'FPUT',
+	'FPUTC',
+	'FSEEK',
+	'GCLS',
+	'GCOLOR',
+	'GETDIR',
+	'GOSUB',
+	'GOTO',
+	'GPRINT',
+	'HEX',
+	'IDLE',
+	'IF',
+	'INKEY',
+	'INPUT',
+	'INT',
+	'KEYS',
+	'LABEL',
+	'LEN',
+	'LET',
+	'LINE',
+	'LOG',
+	'LOG10',
+	'LOOP',
+	'MODF',
+	'MUSIC',
+	'NEXT',
+	'NEW',
+	'NOT',
+	'OPTION',
+	'PCG',
+	'PEEK',
+	'PEEK16',
+	'PEEK32',
+	'PI',
+	'POINT',
+	'POKE',
+	'POKE16',
+	'POKE32',
+	'POW',
+	'PRINT',
+	'PSET',
+	'PUBLIC',
+	'PUTBMP',
+	'READ',
+	'REM',
+	'RETURN',
+	'RND',
+	'SCROLL',
+	'SETDIR',
+	'SGN',
+	'SIN',
+	'SINH',
+	'SOUND',
+	'SQRT',
+	'SYSTEM',
+	'TAN',
+	'TANH',
+	'TIMER',
+	'TVRAM',
+	'UNTIL',
+	'USEPCG',
+	'USEVAR',
+	'VAL',
+	'VAR',
+	'WAIT',
+	'WEND',
+	'WHILE',
+	'WIDTH',
+	// For megalopa
+	'// For Megalopa',
+	'OUT',
+	'OUT8H',
+	'OUT8L',
+	'OUT16',
+	'IN',
+	'IN8H',
+	'IN8L',
+	'IN16',
+	'ANALOG',
+	'PWM',
+	'SERIAL',
+	'SPI',
+	'I2C',
+];
+var result='';
+for(key in namearray){
+	var nameint='0000'+name2int(namearray[key]).toString(16);
+	nameint=nameint.substr(nameint.length-8);
+	if (namearray[key].substr(0,2)=='//') {
+		// This is a comment
+		result+=namearray[key]+"\r\n";
+	} else {
+		result+="\t0x"+nameint+", /*"+namearray[key]+"*/\r\n";
+	}
+}
+
+var fso = new ActiveXObject("Scripting.FileSystemObject");
+var file = fso.CreateTextFile("result.txt");
+file.Write(result);
+file.Close();
+
+WScript.Echo('Done!');
+

--- /dev/null
+++ b/mips/protozoa/sharedfiles.js
@@ -0,0 +1,61 @@
+/*
+'   This file is provided under the LGPL license ver 2.1.',
+'   Written by Katsumi.',
+   http://hp.vector.co.jp/authors/VA016157/
+'   [e-mail]',
+*/
+
+/*
+'	This script is to copy shared files.',
+*/
+
+var filearray=[
+	'args.c',
+	'class.c',
+	'cmpdata.c',
+	'compiler.c',
+	'debug.c',
+	'error.c',
+	'exception.c',
+	'file.c',
+	'float.c',
+	'function.c',
+	'globalvars.c',
+	'library.c',
+	'linker.c',
+	'memory.c',
+	'operator.c',
+	'run.c',
+	'string.c',
+	'statement.c',
+	'timer.c',
+	'value.c',
+	'varname.c',
+	'compiler.h',
+	'debug.h',
+	'reservednames.js',
+	'sharedfiles.js',
+	'class.txt',
+];
+
+var WshShell = WScript.CreateObject("WScript.Shell");
+var FSO = WScript.CreateObject("Scripting.FileSystemObject");
+
+
+// Create a folder on desktop
+try {
+	var SharedFiles=WshShell.SpecialFolders("Desktop") + '\\sharedfiles\\';
+	FSO.CreateFolder(SharedFiles);
+} catch (e) {
+	WScript.Echo('"sharedfiles" folder already exists on desktop!');
+	WScript.Quit();
+}
+
+// Copy files to 'sharedfiles' directory
+for(var i in filearray){
+	FSO.CopyFile (filearray[i],SharedFiles + filearray[i]);
+}
+
+// All done
+WScript.Echo('Done!');
+