2016-04-01 05:29:47 +03:00
|
|
|
@io.sql
|
|
|
|
@types.sql
|
|
|
|
@reader.sql
|
|
|
|
@printer.sql
|
|
|
|
|
2016-04-07 09:22:15 +03:00
|
|
|
CREATE OR REPLACE PACKAGE mal IS
|
2016-04-01 05:29:47 +03:00
|
|
|
|
2016-04-29 08:11:59 +03:00
|
|
|
FUNCTION MAIN(args varchar DEFAULT '()') RETURN integer;
|
2016-04-01 05:29:47 +03:00
|
|
|
|
2016-04-07 09:22:15 +03:00
|
|
|
END mal;
|
2016-04-01 05:29:47 +03:00
|
|
|
/
|
|
|
|
|
2016-04-07 09:22:15 +03:00
|
|
|
CREATE OR REPLACE PACKAGE BODY mal IS
|
2016-04-01 05:29:47 +03:00
|
|
|
|
2016-04-29 08:11:59 +03:00
|
|
|
FUNCTION MAIN(args varchar DEFAULT '()') RETURN integer IS
|
2016-05-04 07:25:41 +03:00
|
|
|
M types.mal_table; -- general mal value memory pool
|
2016-05-03 07:56:48 +03:00
|
|
|
H types.map_entry_table; -- hashmap memory pool
|
2016-05-03 08:28:33 +03:00
|
|
|
line CLOB;
|
2016-04-01 05:29:47 +03:00
|
|
|
|
2016-04-05 07:37:52 +03:00
|
|
|
-- read
|
2016-04-07 09:22:15 +03:00
|
|
|
FUNCTION READ(line varchar) RETURN integer IS
|
2016-04-05 07:37:52 +03:00
|
|
|
BEGIN
|
2016-05-03 07:56:48 +03:00
|
|
|
RETURN reader.read_str(M, H, line);
|
2016-04-05 07:37:52 +03:00
|
|
|
END;
|
2016-04-01 05:29:47 +03:00
|
|
|
|
2016-04-05 07:37:52 +03:00
|
|
|
-- eval
|
2016-04-07 09:22:15 +03:00
|
|
|
FUNCTION EVAL(ast integer, env varchar) RETURN integer IS
|
2016-04-05 07:37:52 +03:00
|
|
|
BEGIN
|
|
|
|
RETURN ast;
|
|
|
|
END;
|
2016-04-01 05:29:47 +03:00
|
|
|
|
2016-04-05 07:37:52 +03:00
|
|
|
-- print
|
2016-04-07 09:22:15 +03:00
|
|
|
FUNCTION PRINT(exp integer) RETURN varchar IS
|
2016-04-05 07:37:52 +03:00
|
|
|
BEGIN
|
2016-05-03 07:56:48 +03:00
|
|
|
RETURN printer.pr_str(M, H, exp);
|
2016-04-05 07:37:52 +03:00
|
|
|
END;
|
|
|
|
|
|
|
|
-- repl
|
|
|
|
FUNCTION REP(line varchar) RETURN varchar IS
|
|
|
|
BEGIN
|
|
|
|
RETURN PRINT(EVAL(READ(line), ''));
|
|
|
|
END;
|
2016-04-01 05:29:47 +03:00
|
|
|
|
|
|
|
BEGIN
|
2016-05-03 07:56:48 +03:00
|
|
|
-- initialize memory pools
|
2016-04-07 09:22:15 +03:00
|
|
|
M := types.mem_new();
|
2016-05-03 07:56:48 +03:00
|
|
|
H := types.map_entry_table();
|
2016-04-07 09:22:15 +03:00
|
|
|
|
2016-04-05 09:29:14 +03:00
|
|
|
WHILE true LOOP
|
2016-04-01 05:29:47 +03:00
|
|
|
BEGIN
|
2016-05-03 08:28:33 +03:00
|
|
|
line := io.readline('user> ', 0);
|
|
|
|
IF line = EMPTY_CLOB() THEN CONTINUE; END IF;
|
2016-04-01 05:29:47 +03:00
|
|
|
IF line IS NOT NULL THEN
|
2016-05-03 08:28:33 +03:00
|
|
|
io.writeline(REP(line));
|
2016-04-01 05:29:47 +03:00
|
|
|
END IF;
|
|
|
|
|
|
|
|
EXCEPTION WHEN OTHERS THEN
|
2016-05-04 06:29:07 +03:00
|
|
|
IF SQLCODE = -20001 THEN -- io read stream closed
|
2016-05-04 07:25:41 +03:00
|
|
|
io.writeline('closing stream 1');
|
2016-05-04 06:29:07 +03:00
|
|
|
io.close(1); -- close output stream
|
2016-04-01 05:29:47 +03:00
|
|
|
RETURN 0;
|
|
|
|
END IF;
|
2016-05-03 08:28:33 +03:00
|
|
|
io.writeline('Error: ' || SQLERRM);
|
|
|
|
io.writeline(dbms_utility.format_error_backtrace);
|
2016-04-01 05:29:47 +03:00
|
|
|
END;
|
|
|
|
END LOOP;
|
|
|
|
END;
|
2016-04-05 07:37:52 +03:00
|
|
|
|
2016-04-07 09:22:15 +03:00
|
|
|
END mal;
|
2016-04-01 05:29:47 +03:00
|
|
|
/
|
2016-04-05 07:37:52 +03:00
|
|
|
show errors;
|
2016-04-01 05:29:47 +03:00
|
|
|
|
|
|
|
quit;
|