Developer_Only.jai

/*

  The purpose of this plugin is to disable certain procedures that are intended to be
  developer-only secret code that you don't want to end up in the final release build
  of your program.

  To use this plugin, compile your program with `jai main.jai -plug Developer_Only`
  and then mark certain procedures with the `@Developer` note. These procedures will
  have their body deleted when in developer builds.
  
  Note: The way you specify whether or not you are a developer build is currently
        through the use of a separate command-line argument, "-no_developer",
        but this is pretty easy to change if you want!

*/

#import "Basic";
#import "Compiler";
#import "Metaprogram_Plugins";

get_plugin :: () -> *Metaprogram_Plugin {
	p := New(Metaprogram_Plugin);
	p.message = message;
	p.handle_one_option = handle_one_option;

	return p;
}

#scope_file
message :: (p: *Metaprogram_Plugin, message: *Message) {
	if developer  return;
	if message.kind != .TYPECHECKED  return;

	tc := cast(*Message_Typechecked) message;

	for tc.procedure_bodies {
		procedure := it.expression;
		if procedure.body_flags & .ALREADY_MODIFIED  continue;

		for procedure.header.notes {
			if it.text == "Developer" {
				new_statements: [..] *Code_Node;
				procedure.block.statements = new_statements;
				compiler_modify_procedure(message.workspace, procedure);
			}
		}
	}
}

// @Important: This language has no concept of "debug" or "release" builds built into the compiler itself.
// Instead, it is completely flexible with what kinds of optimizations and runtime checks that you want to
// have enabled, which means you can define different types of builds _very_ easily and have complete
// control over your program.
// Unfortunately, that means we don't have a convient way of determining if we are a developer build from
// looking at the build options. So, as an example, we just define an extra command-line option for that.

developer := true;

handle_one_option :: (p: *Metaprogram_Plugin, options: [] string, cursor: int) -> (new_cursor: int) {
	if options[cursor] == {
	case "-developer";
		developer = true;
	case "-no_developer";
		developer = false;
	case;
		return cursor;
	}
	
	return cursor + 1;
}