2014-02-10 01:10:30 +00:00
/*************************************************************************/
/* gd_script.cpp */
/*************************************************************************/
/* This file is part of: */
/* GODOT ENGINE */
2017-08-27 12:11:45 +00:00
/* https://godotengine.org */
2014-02-10 01:10:30 +00:00
/*************************************************************************/
2017-01-01 21:01:57 +00:00
/* Copyright (c) 2007-2017 Juan Linietsky, Ariel Manzur. */
2017-04-07 22:45:00 +00:00
/* Copyright (c) 2014-2017 Godot Engine contributors (cf. AUTHORS.md) */
2014-02-10 01:10:30 +00:00
/* */
/* Permission is hereby granted, free of charge, to any person obtaining */
/* a copy of this software and associated documentation files (the */
/* "Software"), to deal in the Software without restriction, including */
/* without limitation the rights to use, copy, modify, merge, publish, */
/* distribute, sublicense, and/or sell copies of the Software, and to */
/* permit persons to whom the Software is furnished to do so, subject to */
/* the following conditions: */
/* */
/* The above copyright notice and this permission notice shall be */
/* included in all copies or substantial portions of the Software. */
/* */
/* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, */
/* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF */
/* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.*/
/* IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY */
/* CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, */
/* TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE */
/* SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. */
/*************************************************************************/
# include "gd_script.h"
# include "gd_compiler.h"
2017-03-18 23:36:26 +00:00
# include "global_constants.h"
# include "globals.h"
2014-06-11 13:41:03 +00:00
# include "io/file_access_encrypted.h"
2017-03-18 23:36:26 +00:00
# include "os/file_access.h"
2016-05-22 00:18:16 +00:00
# include "os/os.h"
2014-02-10 01:10:30 +00:00
2014-09-15 14:33:30 +00:00
///////////////////////////
2017-03-18 23:36:26 +00:00
GDNativeClass : : GDNativeClass ( const StringName & p_name ) {
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
name = p_name ;
2014-02-10 01:10:30 +00:00
}
/*void GDNativeClass::call_multilevel(const StringName& p_method,const Variant** p_args,int p_argcount){
} */
2017-03-18 23:36:26 +00:00
bool GDNativeClass : : _get ( const StringName & p_name , Variant & r_ret ) const {
2014-02-10 01:10:30 +00:00
bool ok ;
int v = ObjectTypeDB : : get_integer_constant ( name , p_name , & ok ) ;
if ( ok ) {
2017-03-18 23:36:26 +00:00
r_ret = v ;
2014-02-10 01:10:30 +00:00
return true ;
} else {
return false ;
}
}
void GDNativeClass : : _bind_methods ( ) {
2017-03-18 23:36:26 +00:00
ObjectTypeDB : : bind_method ( _MD ( " new " ) , & GDNativeClass : : _new ) ;
2014-02-10 01:10:30 +00:00
}
Variant GDNativeClass : : _new ( ) {
Object * o = instance ( ) ;
if ( ! o ) {
2017-03-18 23:36:26 +00:00
ERR_EXPLAIN ( " Class type: ' " + String ( name ) + " ' is not instantiable. " ) ;
ERR_FAIL_COND_V ( ! o , Variant ( ) ) ;
2014-02-10 01:10:30 +00:00
}
Reference * ref = o - > cast_to < Reference > ( ) ;
if ( ref ) {
return REF ( ref ) ;
} else {
return o ;
}
}
Object * GDNativeClass : : instance ( ) {
return ObjectTypeDB : : instance ( name ) ;
}
2017-03-18 23:36:26 +00:00
GDInstance * GDScript : : _create_instance ( const Variant * * p_args , int p_argcount , Object * p_owner , bool p_isref , Variant : : CallError & r_error ) {
2014-02-10 01:10:30 +00:00
/* STEP 1, CREATE */
2017-03-18 23:36:26 +00:00
GDInstance * instance = memnew ( GDInstance ) ;
instance - > base_ref = p_isref ;
2014-02-10 01:10:30 +00:00
instance - > members . resize ( member_indices . size ( ) ) ;
2017-03-18 23:36:26 +00:00
instance - > script = Ref < GDScript > ( this ) ;
instance - > owner = p_owner ;
2016-06-01 23:22:02 +00:00
# ifdef DEBUG_ENABLED
//needed for hot reloading
2017-03-18 23:36:26 +00:00
for ( Map < StringName , MemberInfo > : : Element * E = member_indices . front ( ) ; E ; E = E - > next ( ) ) {
instance - > member_indices_cache [ E - > key ( ) ] = E - > get ( ) . index ;
2016-06-01 23:22:02 +00:00
}
# endif
2014-02-10 01:10:30 +00:00
instance - > owner - > set_script_instance ( instance ) ;
/* STEP 2, INITIALIZE AND CONSRTUCT */
instances . insert ( instance - > owner ) ;
2017-03-18 23:36:26 +00:00
initializer - > call ( instance , p_args , p_argcount , r_error ) ;
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
if ( r_error . error ! = Variant : : CallError : : CALL_OK ) {
instance - > script = Ref < GDScript > ( ) ;
2014-12-18 04:50:47 +00:00
instance - > owner - > set_script_instance ( NULL ) ;
2014-02-10 01:10:30 +00:00
instances . erase ( p_owner ) ;
2017-03-18 23:36:26 +00:00
ERR_FAIL_COND_V ( r_error . error ! = Variant : : CallError : : CALL_OK , NULL ) ; //error constructing
2014-02-10 01:10:30 +00:00
}
//@TODO make thread safe
return instance ;
}
2017-03-18 23:36:26 +00:00
Variant GDScript : : _new ( const Variant * * p_args , int p_argcount , Variant : : CallError & r_error ) {
2014-02-10 01:10:30 +00:00
/* STEP 1, CREATE */
2016-02-28 02:10:44 +00:00
if ( ! valid ) {
2017-03-18 23:36:26 +00:00
r_error . error = Variant : : CallError : : CALL_ERROR_INVALID_METHOD ;
2016-02-28 02:10:44 +00:00
return Variant ( ) ;
}
2017-03-18 23:36:26 +00:00
r_error . error = Variant : : CallError : : CALL_OK ;
2014-02-10 01:10:30 +00:00
REF ref ;
2017-03-18 23:36:26 +00:00
Object * owner = NULL ;
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
GDScript * _baseptr = this ;
2014-02-10 01:10:30 +00:00
while ( _baseptr - > _base ) {
2017-03-18 23:36:26 +00:00
_baseptr = _baseptr - > _base ;
2014-02-10 01:10:30 +00:00
}
2016-06-07 02:40:50 +00:00
if ( _baseptr - > native . ptr ( ) ) {
2017-03-18 23:36:26 +00:00
owner = _baseptr - > native - > instance ( ) ;
2016-06-07 02:40:50 +00:00
} else {
2017-03-18 23:36:26 +00:00
owner = memnew ( Reference ) ; //by default, no base means use reference
2016-06-07 02:40:50 +00:00
}
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
Reference * r = owner - > cast_to < Reference > ( ) ;
2014-02-10 01:10:30 +00:00
if ( r ) {
2017-03-18 23:36:26 +00:00
ref = REF ( r ) ;
2014-02-10 01:10:30 +00:00
}
2017-03-18 23:36:26 +00:00
GDInstance * instance = _create_instance ( p_args , p_argcount , owner , r ! = NULL , r_error ) ;
2014-02-10 01:10:30 +00:00
if ( ! instance ) {
if ( ref . is_null ( ) ) {
memdelete ( owner ) ; //no owner, sorry
}
return Variant ( ) ;
}
2016-03-08 23:00:52 +00:00
if ( ref . is_valid ( ) ) {
2014-02-10 01:10:30 +00:00
return ref ;
} else {
return owner ;
}
}
bool GDScript : : can_instance ( ) const {
2014-09-22 03:50:48 +00:00
//return valid; //any script in GDscript can instance
return valid | | ( ! tool & & ! ScriptServer : : is_scripting_enabled ( ) ) ;
2014-02-10 01:10:30 +00:00
}
StringName GDScript : : get_instance_base_type ( ) const {
if ( native . is_valid ( ) )
return native - > get_name ( ) ;
if ( base . is_valid ( ) )
return base - > get_instance_base_type ( ) ;
return StringName ( ) ;
}
struct _GDScriptMemberSort {
int index ;
StringName name ;
2017-03-18 23:36:26 +00:00
_FORCE_INLINE_ bool operator < ( const _GDScriptMemberSort & p_member ) const { return index < p_member . index ; }
2014-02-10 01:10:30 +00:00
} ;
# ifdef TOOLS_ENABLED
void GDScript : : _placeholder_erased ( PlaceHolderScriptInstance * p_placeholder ) {
placeholders . erase ( p_placeholder ) ;
}
2014-12-07 05:04:20 +00:00
/*
2014-02-10 01:10:30 +00:00
void GDScript : : _update_placeholder ( PlaceHolderScriptInstance * p_placeholder ) {
List < PropertyInfo > plist ;
GDScript * scr = this ;
Map < StringName , Variant > default_values ;
while ( scr ) {
Vector < _GDScriptMemberSort > msort ;
for ( Map < StringName , PropertyInfo > : : Element * E = scr - > member_info . front ( ) ; E ; E = E - > next ( ) ) {
_GDScriptMemberSort ms ;
ERR_CONTINUE ( ! scr - > member_indices . has ( E - > key ( ) ) ) ;
2014-10-28 01:54:32 +00:00
ms . index = scr - > member_indices [ E - > key ( ) ] . index ;
2014-02-10 01:10:30 +00:00
ms . name = E - > key ( ) ;
msort . push_back ( ms ) ;
}
msort . sort ( ) ;
msort . invert ( ) ;
for ( int i = 0 ; i < msort . size ( ) ; i + + ) {
plist . push_front ( scr - > member_info [ msort [ i ] . name ] ) ;
if ( scr - > member_default_values . has ( msort [ i ] . name ) )
default_values [ msort [ i ] . name ] = scr - > member_default_values [ msort [ i ] . name ] ;
else {
Variant : : CallError err ;
default_values [ msort [ i ] . name ] = Variant : : construct ( scr - > member_info [ msort [ i ] . name ] . type , NULL , 0 , err ) ;
}
}
scr = scr - > _base ;
}
p_placeholder - > update ( plist , default_values ) ;
2014-12-07 05:04:20 +00:00
} */
2014-02-10 01:10:30 +00:00
# endif
2016-01-02 23:17:31 +00:00
2017-03-18 23:36:26 +00:00
bool GDScript : : get_property_default_value ( const StringName & p_property , Variant & r_value ) const {
2016-01-02 23:17:31 +00:00
# ifdef TOOLS_ENABLED
//for (const Map<StringName,Variant>::Element *I=member_default_values.front();I;I=I->next()) {
// print_line("\t"+String(String(I->key())+":"+String(I->get())));
//}
2017-03-18 23:36:26 +00:00
const Map < StringName , Variant > : : Element * E = member_default_values_cache . find ( p_property ) ;
2016-01-02 23:17:31 +00:00
if ( E ) {
2017-03-18 23:36:26 +00:00
r_value = E - > get ( ) ;
2016-01-02 23:17:31 +00:00
return true ;
}
if ( base_cache . is_valid ( ) ) {
2017-03-18 23:36:26 +00:00
return base_cache - > get_property_default_value ( p_property , r_value ) ;
2016-01-02 23:17:31 +00:00
}
# endif
return false ;
}
2017-03-18 23:36:26 +00:00
ScriptInstance * GDScript : : instance_create ( Object * p_this ) {
2014-09-22 03:50:48 +00:00
2014-02-10 01:10:30 +00:00
if ( ! tool & & ! ScriptServer : : is_scripting_enabled ( ) ) {
# ifdef TOOLS_ENABLED
//instance a fake script for editing the values
//plist.invert();
/*print_line("CREATING PLACEHOLDER");
for ( List < PropertyInfo > : : Element * E = plist . front ( ) ; E ; E = E - > next ( ) ) {
print_line ( E - > get ( ) . name ) ;
} */
2017-03-18 23:36:26 +00:00
PlaceHolderScriptInstance * si = memnew ( PlaceHolderScriptInstance ( GDScriptLanguage : : get_singleton ( ) , Ref < Script > ( this ) , p_this ) ) ;
2014-02-10 01:10:30 +00:00
placeholders . insert ( si ) ;
2014-12-07 05:04:20 +00:00
//_update_placeholder(si);
_update_exports ( ) ;
2014-02-10 01:10:30 +00:00
return si ;
# else
return NULL ;
# endif
}
2017-03-18 23:36:26 +00:00
GDScript * top = this ;
while ( top - > _base )
top = top - > _base ;
2014-02-10 01:10:30 +00:00
if ( top - > native . is_valid ( ) ) {
2017-03-18 23:36:26 +00:00
if ( ! ObjectTypeDB : : is_type ( p_this - > get_type_name ( ) , top - > native - > get_name ( ) ) ) {
2014-02-10 01:10:30 +00:00
if ( ScriptDebugger : : get_singleton ( ) ) {
2017-03-18 23:36:26 +00:00
GDScriptLanguage : : get_singleton ( ) - > debug_break_parse ( get_path ( ) , 0 , " Script inherits from native type ' " + String ( top - > native - > get_name ( ) ) + " ', so it can't be instanced in object of type: ' " + p_this - > get_type ( ) + " ' " ) ;
2014-02-10 01:10:30 +00:00
}
2017-03-18 23:36:26 +00:00
ERR_EXPLAIN ( " Script inherits from native type ' " + String ( top - > native - > get_name ( ) ) + " ', so it can't be instanced in object of type: ' " + p_this - > get_type ( ) + " ' " ) ;
2014-02-10 01:10:30 +00:00
ERR_FAIL_V ( NULL ) ;
}
}
2015-11-28 18:53:05 +00:00
Variant : : CallError unchecked_error ;
2017-03-18 23:36:26 +00:00
return _create_instance ( NULL , 0 , p_this , p_this - > cast_to < Reference > ( ) , unchecked_error ) ;
2014-02-10 01:10:30 +00:00
}
bool GDScript : : instance_has ( const Object * p_this ) const {
2017-03-18 23:36:26 +00:00
return instances . has ( ( Object * ) p_this ) ;
2014-02-10 01:10:30 +00:00
}
bool GDScript : : has_source_code ( ) const {
2017-03-18 23:36:26 +00:00
return source ! = " " ;
2014-02-10 01:10:30 +00:00
}
String GDScript : : get_source_code ( ) const {
return source ;
}
2017-03-18 23:36:26 +00:00
void GDScript : : set_source_code ( const String & p_code ) {
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
if ( source = = p_code )
2014-12-07 05:04:20 +00:00
return ;
2017-03-18 23:36:26 +00:00
source = p_code ;
2014-12-07 05:04:20 +00:00
# ifdef TOOLS_ENABLED
2017-03-18 23:36:26 +00:00
source_changed_cache = true ;
//print_line("SC CHANGED "+get_path());
2014-12-07 05:04:20 +00:00
# endif
2014-09-22 03:50:48 +00:00
}
2014-12-07 05:04:20 +00:00
# ifdef TOOLS_ENABLED
2017-03-18 23:36:26 +00:00
void GDScript : : _update_exports_values ( Map < StringName , Variant > & values , List < PropertyInfo > & propnames ) {
2014-12-07 05:04:20 +00:00
if ( base_cache . is_valid ( ) ) {
2017-03-18 23:36:26 +00:00
base_cache - > _update_exports_values ( values , propnames ) ;
2014-12-07 05:04:20 +00:00
}
2017-03-18 23:36:26 +00:00
for ( Map < StringName , Variant > : : Element * E = member_default_values_cache . front ( ) ; E ; E = E - > next ( ) ) {
values [ E - > key ( ) ] = E - > get ( ) ;
2014-12-07 05:04:20 +00:00
}
2017-03-18 23:36:26 +00:00
for ( List < PropertyInfo > : : Element * E = members_cache . front ( ) ; E ; E = E - > next ( ) ) {
2014-12-07 05:04:20 +00:00
propnames . push_back ( E - > get ( ) ) ;
}
}
# endif
2014-10-12 05:13:22 +00:00
2014-12-07 05:04:20 +00:00
bool GDScript : : _update_exports ( ) {
2014-09-22 03:50:48 +00:00
# ifdef TOOLS_ENABLED
2014-10-12 05:13:22 +00:00
2017-03-18 23:36:26 +00:00
bool changed = false ;
2014-09-22 03:50:48 +00:00
2014-12-07 05:04:20 +00:00
if ( source_changed_cache ) {
//print_line("updating source for "+get_path());
2017-03-18 23:36:26 +00:00
source_changed_cache = false ;
changed = true ;
2014-09-22 03:50:48 +00:00
2017-03-18 23:36:26 +00:00
String basedir = path ;
2014-09-22 03:50:48 +00:00
2017-03-18 23:36:26 +00:00
if ( basedir = = " " )
basedir = get_path ( ) ;
2014-09-22 03:50:48 +00:00
2017-03-18 23:36:26 +00:00
if ( basedir ! = " " )
basedir = basedir . get_base_dir ( ) ;
2014-09-22 03:50:48 +00:00
2014-12-07 05:04:20 +00:00
GDParser parser ;
2017-03-18 23:36:26 +00:00
Error err = parser . parse ( source , basedir , true , path ) ;
2014-10-12 05:13:22 +00:00
2017-03-18 23:36:26 +00:00
if ( err = = OK ) {
2014-10-12 05:13:22 +00:00
2017-03-18 23:36:26 +00:00
const GDParser : : Node * root = parser . get_parse_tree ( ) ;
ERR_FAIL_COND_V ( root - > type ! = GDParser : : Node : : TYPE_CLASS , false ) ;
2014-09-22 03:50:48 +00:00
2017-03-18 23:36:26 +00:00
const GDParser : : ClassNode * c = static_cast < const GDParser : : ClassNode * > ( root ) ;
2014-10-12 05:13:22 +00:00
2014-12-07 05:04:20 +00:00
if ( base_cache . is_valid ( ) ) {
base_cache - > inheriters_cache . erase ( get_instance_ID ( ) ) ;
2017-03-18 23:36:26 +00:00
base_cache = Ref < GDScript > ( ) ;
2014-12-07 05:04:20 +00:00
}
2014-10-12 05:13:22 +00:00
2017-03-18 23:36:26 +00:00
if ( c - > extends_used & & String ( c - > extends_file ) ! = " " & & String ( c - > extends_file ) ! = get_path ( ) ) {
2014-10-12 05:13:22 +00:00
2014-12-07 05:04:20 +00:00
String path = c - > extends_file ;
if ( path . is_rel_path ( ) ) {
2014-09-22 03:50:48 +00:00
2014-12-07 05:04:20 +00:00
String base = get_path ( ) ;
2017-03-18 23:36:26 +00:00
if ( base = = " " | | base . is_rel_path ( ) ) {
2014-09-22 03:50:48 +00:00
2017-03-18 23:36:26 +00:00
ERR_PRINT ( ( " Could not resolve relative path for parent class: " + path ) . utf8 ( ) . get_data ( ) ) ;
2014-12-07 05:04:20 +00:00
} else {
2017-03-18 23:36:26 +00:00
path = base . get_base_dir ( ) . plus_file ( path ) ;
2014-12-07 05:04:20 +00:00
}
}
2017-03-18 23:36:26 +00:00
if ( path ! = get_path ( ) ) {
2016-01-02 16:56:58 +00:00
Ref < GDScript > bf = ResourceLoader : : load ( path ) ;
2014-12-07 05:04:20 +00:00
2016-01-02 16:56:58 +00:00
if ( bf . is_valid ( ) ) {
2014-12-07 05:04:20 +00:00
2016-01-02 16:56:58 +00:00
//print_line("parent is: "+bf->get_path());
2017-03-18 23:36:26 +00:00
base_cache = bf ;
2016-01-02 16:56:58 +00:00
bf - > inheriters_cache . insert ( get_instance_ID ( ) ) ;
2014-12-07 05:04:20 +00:00
2016-01-02 16:56:58 +00:00
//bf->_update_exports(p_instances,true,false);
}
} else {
2017-03-18 23:36:26 +00:00
ERR_PRINT ( ( " Path extending itself in " + path ) . utf8 ( ) . get_data ( ) ) ;
2014-12-07 05:04:20 +00:00
}
}
2017-01-14 17:03:38 +00:00
members_cache . clear ( ) ;
2014-12-07 05:04:20 +00:00
member_default_values_cache . clear ( ) ;
2017-03-18 23:36:26 +00:00
for ( int i = 0 ; i < c - > variables . size ( ) ; i + + ) {
if ( c - > variables [ i ] . _export . type = = Variant : : NIL )
2014-12-07 05:04:20 +00:00
continue ;
members_cache . push_back ( c - > variables [ i ] . _export ) ;
//print_line("found "+c->variables[i]._export.name);
2017-03-18 23:36:26 +00:00
member_default_values_cache [ c - > variables [ i ] . identifier ] = c - > variables [ i ] . default_value ;
2014-12-07 05:04:20 +00:00
}
2015-06-24 16:29:23 +00:00
_signals . clear ( ) ;
2017-03-18 23:36:26 +00:00
for ( int i = 0 ; i < c - > _signals . size ( ) ; i + + ) {
_signals [ c - > _signals [ i ] . name ] = c - > _signals [ i ] . arguments ;
2015-06-24 16:29:23 +00:00
}
2014-12-07 05:04:20 +00:00
}
} else {
//print_line("unchaged is "+get_path());
2014-09-22 03:50:48 +00:00
}
2014-12-07 05:04:20 +00:00
if ( base_cache . is_valid ( ) ) {
if ( base_cache - > _update_exports ( ) ) {
changed = true ;
}
}
if ( /*changed &&*/ placeholders . size ( ) ) { //hm :(
//print_line("updating placeholders for "+get_path());
//update placeholders if any
2017-03-18 23:36:26 +00:00
Map < StringName , Variant > values ;
2014-12-07 05:04:20 +00:00
List < PropertyInfo > propnames ;
2017-03-18 23:36:26 +00:00
_update_exports_values ( values , propnames ) ;
2014-09-22 03:50:48 +00:00
2017-03-18 23:36:26 +00:00
for ( Set < PlaceHolderScriptInstance * > : : Element * E = placeholders . front ( ) ; E ; E = E - > next ( ) ) {
2014-09-22 03:50:48 +00:00
2017-03-18 23:36:26 +00:00
E - > get ( ) - > update ( propnames , values ) ;
2014-12-07 05:04:20 +00:00
}
2014-09-22 03:50:48 +00:00
}
2014-12-07 05:04:20 +00:00
return changed ;
2014-10-12 05:13:22 +00:00
# endif
2014-12-20 18:30:06 +00:00
return false ;
2014-10-12 05:13:22 +00:00
}
void GDScript : : update_exports ( ) {
# ifdef TOOLS_ENABLED
2014-12-07 05:04:20 +00:00
_update_exports ( ) ;
2014-10-12 05:13:22 +00:00
2017-03-18 23:36:26 +00:00
Set < ObjectID > copy = inheriters_cache ; //might get modified
2014-12-07 05:04:20 +00:00
//print_line("update exports for "+get_path()+" ic: "+itos(copy.size()));
2017-03-18 23:36:26 +00:00
for ( Set < ObjectID > : : Element * E = copy . front ( ) ; E ; E = E - > next ( ) ) {
Object * id = ObjectDB : : get_instance ( E - > get ( ) ) ;
2014-12-07 05:04:20 +00:00
if ( ! id )
continue ;
2017-03-18 23:36:26 +00:00
GDScript * s = id - > cast_to < GDScript > ( ) ;
2014-12-07 05:04:20 +00:00
if ( ! s )
continue ;
s - > update_exports ( ) ;
}
2014-09-22 03:50:48 +00:00
# endif
2014-02-10 01:10:30 +00:00
}
2017-03-18 23:36:26 +00:00
void GDScript : : _set_subclass_path ( Ref < GDScript > & p_sc , const String & p_path ) {
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
p_sc - > path = p_path ;
for ( Map < StringName , Ref < GDScript > > : : Element * E = p_sc - > subclasses . front ( ) ; E ; E = E - > next ( ) ) {
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
_set_subclass_path ( E - > get ( ) , p_path ) ;
2014-02-10 01:10:30 +00:00
}
}
2016-06-01 23:22:02 +00:00
Error GDScript : : reload ( bool p_keep_state ) {
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
ERR_FAIL_COND_V ( ! p_keep_state & & instances . size ( ) , ERR_ALREADY_IN_USE ) ;
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
String basedir = path ;
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
if ( basedir = = " " )
basedir = get_path ( ) ;
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
if ( basedir ! = " " )
basedir = basedir . get_base_dir ( ) ;
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
valid = false ;
2014-02-10 01:10:30 +00:00
GDParser parser ;
2017-03-18 23:36:26 +00:00
Error err = parser . parse ( source , basedir , false , path ) ;
2014-02-10 01:10:30 +00:00
if ( err ) {
if ( ScriptDebugger : : get_singleton ( ) ) {
2017-03-18 23:36:26 +00:00
GDScriptLanguage : : get_singleton ( ) - > debug_break_parse ( get_path ( ) , parser . get_error_line ( ) , " Parser Error: " + parser . get_error ( ) ) ;
2014-02-10 01:10:30 +00:00
}
2017-03-18 23:36:26 +00:00
_err_print_error ( " GDScript::reload " , path . empty ( ) ? " built-in " : ( const char * ) path . utf8 ( ) . get_data ( ) , parser . get_error_line ( ) , ( " Parse Error: " + parser . get_error ( ) ) . utf8 ( ) . get_data ( ) , ERR_HANDLER_SCRIPT ) ;
2014-02-10 01:10:30 +00:00
ERR_FAIL_V ( ERR_PARSE_ERROR ) ;
}
2016-01-23 18:36:03 +00:00
bool can_run = ScriptServer : : is_scripting_enabled ( ) | | parser . is_tool_script ( ) ;
2014-02-10 01:10:30 +00:00
GDCompiler compiler ;
2017-03-18 23:36:26 +00:00
err = compiler . compile ( & parser , this , p_keep_state ) ;
2014-02-10 01:10:30 +00:00
if ( err ) {
2016-01-23 18:36:03 +00:00
if ( can_run ) {
if ( ScriptDebugger : : get_singleton ( ) ) {
2017-03-18 23:36:26 +00:00
GDScriptLanguage : : get_singleton ( ) - > debug_break_parse ( get_path ( ) , compiler . get_error_line ( ) , " Parser Error: " + compiler . get_error ( ) ) ;
2016-01-23 18:36:03 +00:00
}
2017-03-18 23:36:26 +00:00
_err_print_error ( " GDScript::reload " , path . empty ( ) ? " built-in " : ( const char * ) path . utf8 ( ) . get_data ( ) , compiler . get_error_line ( ) , ( " Compile Error: " + compiler . get_error ( ) ) . utf8 ( ) . get_data ( ) , ERR_HANDLER_SCRIPT ) ;
2016-01-23 18:36:03 +00:00
ERR_FAIL_V ( ERR_COMPILATION_FAILED ) ;
} else {
return err ;
2014-02-10 01:10:30 +00:00
}
}
2017-03-18 23:36:26 +00:00
valid = true ;
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
for ( Map < StringName , Ref < GDScript > > : : Element * E = subclasses . front ( ) ; E ; E = E - > next ( ) ) {
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
_set_subclass_path ( E - > get ( ) , path ) ;
2014-02-10 01:10:30 +00:00
}
# ifdef TOOLS_ENABLED
2017-03-18 23:36:26 +00:00
/*for (Set<PlaceHolderScriptInstance*>::Element *E=placeholders.front();E;E=E->next()) {
2014-02-10 01:10:30 +00:00
_update_placeholder ( E - > get ( ) ) ;
2014-12-07 05:04:20 +00:00
} */
2014-02-10 01:10:30 +00:00
# endif
return OK ;
}
String GDScript : : get_node_type ( ) const {
return " " ; // ?
}
ScriptLanguage * GDScript : : get_language ( ) const {
return GDScriptLanguage : : get_singleton ( ) ;
}
2017-03-18 23:36:26 +00:00
Variant GDScript : : call ( const StringName & p_method , const Variant * * p_args , int p_argcount , Variant : : CallError & r_error ) {
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
GDScript * top = this ;
while ( top ) {
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
Map < StringName , GDFunction * > : : Element * E = top - > member_functions . find ( p_method ) ;
2014-02-10 01:10:30 +00:00
if ( E ) {
2016-05-22 00:18:16 +00:00
if ( ! E - > get ( ) - > is_static ( ) ) {
2017-03-18 23:36:26 +00:00
WARN_PRINT ( String ( " Can't call non-static function: ' " + String ( p_method ) + " ' in script. " ) . utf8 ( ) . get_data ( ) ) ;
2014-02-10 01:10:30 +00:00
}
2017-03-18 23:36:26 +00:00
return E - > get ( ) - > call ( NULL , p_args , p_argcount , r_error ) ;
2014-02-10 01:10:30 +00:00
}
2017-03-18 23:36:26 +00:00
top = top - > _base ;
2014-02-10 01:10:30 +00:00
}
//none found, regular
2017-03-18 23:36:26 +00:00
return Script : : call ( p_method , p_args , p_argcount , r_error ) ;
2014-02-10 01:10:30 +00:00
}
2017-03-18 23:36:26 +00:00
bool GDScript : : _get ( const StringName & p_name , Variant & r_ret ) const {
2014-02-10 01:10:30 +00:00
{
2017-03-18 23:36:26 +00:00
const GDScript * top = this ;
while ( top ) {
2014-02-10 01:10:30 +00:00
{
2017-03-18 23:36:26 +00:00
const Map < StringName , Variant > : : Element * E = top - > constants . find ( p_name ) ;
2014-02-10 01:10:30 +00:00
if ( E ) {
2017-03-18 23:36:26 +00:00
r_ret = E - > get ( ) ;
2014-02-10 01:10:30 +00:00
return true ;
}
}
{
2017-03-18 23:36:26 +00:00
const Map < StringName , Ref < GDScript > > : : Element * E = subclasses . find ( p_name ) ;
2014-02-10 01:10:30 +00:00
if ( E ) {
2017-03-18 23:36:26 +00:00
r_ret = E - > get ( ) ;
2014-02-10 01:10:30 +00:00
return true ;
}
}
2017-03-18 23:36:26 +00:00
top = top - > _base ;
2014-02-10 01:10:30 +00:00
}
2017-03-18 23:36:26 +00:00
if ( p_name = = GDScriptLanguage : : get_singleton ( ) - > strings . _script_source ) {
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
r_ret = get_source_code ( ) ;
2014-02-16 00:16:33 +00:00
return true ;
}
}
2014-02-10 01:10:30 +00:00
2014-02-16 00:16:33 +00:00
return false ;
2014-02-10 01:10:30 +00:00
}
2017-03-18 23:36:26 +00:00
bool GDScript : : _set ( const StringName & p_name , const Variant & p_value ) {
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
if ( p_name = = GDScriptLanguage : : get_singleton ( ) - > strings . _script_source ) {
2014-02-10 01:10:30 +00:00
set_source_code ( p_value ) ;
reload ( ) ;
} else
return false ;
return true ;
}
void GDScript : : _get_property_list ( List < PropertyInfo > * p_properties ) const {
2017-03-18 23:36:26 +00:00
p_properties - > push_back ( PropertyInfo ( Variant : : STRING , " script/source " , PROPERTY_HINT_NONE , " " , PROPERTY_USAGE_NOEDITOR ) ) ;
2014-02-10 01:10:30 +00:00
}
void GDScript : : _bind_methods ( ) {
2017-03-18 23:36:26 +00:00
ObjectTypeDB : : bind_native_method ( METHOD_FLAGS_DEFAULT , " new " , & GDScript : : _new , MethodInfo ( " new " ) ) ;
2015-06-30 14:28:43 +00:00
2017-03-18 23:36:26 +00:00
ObjectTypeDB : : bind_method ( _MD ( " get_as_byte_code " ) , & GDScript : : get_as_byte_code ) ;
2014-02-10 01:10:30 +00:00
}
2015-06-30 14:28:43 +00:00
Vector < uint8_t > GDScript : : get_as_byte_code ( ) const {
GDTokenizerBuffer tokenizer ;
return tokenizer . parse_code_string ( source ) ;
} ;
2017-03-18 23:36:26 +00:00
Error GDScript : : load_byte_code ( const String & p_path ) {
2014-02-25 12:31:47 +00:00
2014-06-11 13:41:03 +00:00
Vector < uint8_t > bytecode ;
if ( p_path . ends_with ( " gde " ) ) {
2017-03-18 23:36:26 +00:00
FileAccess * fa = FileAccess : : open ( p_path , FileAccess : : READ ) ;
ERR_FAIL_COND_V ( ! fa , ERR_CANT_OPEN ) ;
FileAccessEncrypted * fae = memnew ( FileAccessEncrypted ) ;
ERR_FAIL_COND_V ( ! fae , ERR_CANT_OPEN ) ;
2014-06-11 13:41:03 +00:00
Vector < uint8_t > key ;
key . resize ( 32 ) ;
2017-03-18 23:36:26 +00:00
for ( int i = 0 ; i < key . size ( ) ; i + + ) {
key [ i ] = script_encryption_key [ i ] ;
2014-06-11 13:41:03 +00:00
}
2017-03-18 23:36:26 +00:00
Error err = fae - > open_and_parse ( fa , key , FileAccessEncrypted : : MODE_READ ) ;
ERR_FAIL_COND_V ( err , err ) ;
2014-06-11 13:41:03 +00:00
bytecode . resize ( fae - > get_len ( ) ) ;
2017-03-18 23:36:26 +00:00
fae - > get_buffer ( bytecode . ptr ( ) , bytecode . size ( ) ) ;
2014-06-11 13:41:03 +00:00
memdelete ( fae ) ;
} else {
bytecode = FileAccess : : get_file_as_array ( p_path ) ;
}
2017-03-18 23:36:26 +00:00
ERR_FAIL_COND_V ( bytecode . size ( ) = = 0 , ERR_PARSE_ERROR ) ;
path = p_path ;
2014-02-25 12:31:47 +00:00
2017-03-18 23:36:26 +00:00
String basedir = path ;
2014-02-25 12:31:47 +00:00
2017-03-18 23:36:26 +00:00
if ( basedir = = " " )
basedir = get_path ( ) ;
2014-02-25 12:31:47 +00:00
2017-03-18 23:36:26 +00:00
if ( basedir ! = " " )
basedir = basedir . get_base_dir ( ) ;
2014-02-25 12:31:47 +00:00
2017-03-18 23:36:26 +00:00
valid = false ;
2014-02-25 12:31:47 +00:00
GDParser parser ;
2017-03-18 23:36:26 +00:00
Error err = parser . parse_bytecode ( bytecode , basedir , get_path ( ) ) ;
2014-02-25 12:31:47 +00:00
if ( err ) {
2017-03-18 23:36:26 +00:00
_err_print_error ( " GDScript::load_byte_code " , path . empty ( ) ? " built-in " : ( const char * ) path . utf8 ( ) . get_data ( ) , parser . get_error_line ( ) , ( " Parse Error: " + parser . get_error ( ) ) . utf8 ( ) . get_data ( ) , ERR_HANDLER_SCRIPT ) ;
2014-02-25 12:31:47 +00:00
ERR_FAIL_V ( ERR_PARSE_ERROR ) ;
}
GDCompiler compiler ;
2017-03-18 23:36:26 +00:00
err = compiler . compile ( & parser , this ) ;
2014-02-25 12:31:47 +00:00
if ( err ) {
2017-03-18 23:36:26 +00:00
_err_print_error ( " GDScript::load_byte_code " , path . empty ( ) ? " built-in " : ( const char * ) path . utf8 ( ) . get_data ( ) , compiler . get_error_line ( ) , ( " Compile Error: " + compiler . get_error ( ) ) . utf8 ( ) . get_data ( ) , ERR_HANDLER_SCRIPT ) ;
2014-02-25 12:31:47 +00:00
ERR_FAIL_V ( ERR_COMPILATION_FAILED ) ;
}
2017-03-18 23:36:26 +00:00
valid = true ;
2014-02-25 12:31:47 +00:00
2017-03-18 23:36:26 +00:00
for ( Map < StringName , Ref < GDScript > > : : Element * E = subclasses . front ( ) ; E ; E = E - > next ( ) ) {
2014-02-25 12:31:47 +00:00
2017-03-18 23:36:26 +00:00
_set_subclass_path ( E - > get ( ) , path ) ;
2014-02-25 12:31:47 +00:00
}
return OK ;
}
2017-03-18 23:36:26 +00:00
Error GDScript : : load_source_code ( const String & p_path ) {
2014-02-10 01:10:30 +00:00
DVector < uint8_t > sourcef ;
Error err ;
2017-03-18 23:36:26 +00:00
FileAccess * f = FileAccess : : open ( p_path , FileAccess : : READ , & err ) ;
2014-02-10 01:10:30 +00:00
if ( err ) {
2017-03-18 23:36:26 +00:00
ERR_FAIL_COND_V ( err , err ) ;
2014-02-10 01:10:30 +00:00
}
int len = f - > get_len ( ) ;
2017-03-18 23:36:26 +00:00
sourcef . resize ( len + 1 ) ;
2014-02-10 01:10:30 +00:00
DVector < uint8_t > : : Write w = sourcef . write ( ) ;
2017-03-18 23:36:26 +00:00
int r = f - > get_buffer ( w . ptr ( ) , len ) ;
2014-02-10 01:10:30 +00:00
f - > close ( ) ;
memdelete ( f ) ;
2017-03-18 23:36:26 +00:00
ERR_FAIL_COND_V ( r ! = len , ERR_CANT_OPEN ) ;
w [ len ] = 0 ;
2014-02-10 01:10:30 +00:00
String s ;
2017-03-18 23:36:26 +00:00
if ( s . parse_utf8 ( ( const char * ) w . ptr ( ) ) ) {
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
ERR_EXPLAIN ( " Script ' " + p_path + " ' contains invalid unicode (utf-8), so it was not loaded. Please ensure that scripts are saved in valid utf-8 unicode. " ) ;
2014-02-10 01:10:30 +00:00
ERR_FAIL_V ( ERR_INVALID_DATA ) ;
}
2017-03-18 23:36:26 +00:00
source = s ;
2014-12-07 05:39:51 +00:00
# ifdef TOOLS_ENABLED
2017-03-18 23:36:26 +00:00
source_changed_cache = true ;
2014-12-07 05:39:51 +00:00
# endif
2014-12-07 05:04:20 +00:00
//print_line("LSC :"+get_path());
2017-03-18 23:36:26 +00:00
path = p_path ;
2014-02-10 01:10:30 +00:00
return OK ;
}
2017-03-18 23:36:26 +00:00
const Map < StringName , GDFunction * > & GDScript : : debug_get_member_functions ( ) const {
2014-02-10 01:10:30 +00:00
return member_functions ;
}
StringName GDScript : : debug_get_member_by_index ( int p_idx ) const {
2017-03-18 23:36:26 +00:00
for ( const Map < StringName , MemberInfo > : : Element * E = member_indices . front ( ) ; E ; E = E - > next ( ) ) {
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
if ( E - > get ( ) . index = = p_idx )
2014-02-10 01:10:30 +00:00
return E - > key ( ) ;
}
return " <error> " ;
}
Ref < GDScript > GDScript : : get_base ( ) const {
return base ;
}
2017-03-18 23:36:26 +00:00
bool GDScript : : has_script_signal ( const StringName & p_signal ) const {
2015-06-24 16:29:23 +00:00
if ( _signals . has ( p_signal ) )
return true ;
if ( base . is_valid ( ) ) {
return base - > has_script_signal ( p_signal ) ;
}
# ifdef TOOLS_ENABLED
2017-03-18 23:36:26 +00:00
else if ( base_cache . is_valid ( ) ) {
2015-06-24 16:29:23 +00:00
return base_cache - > has_script_signal ( p_signal ) ;
}
# endif
return false ;
}
void GDScript : : get_script_signal_list ( List < MethodInfo > * r_signals ) const {
2017-03-18 23:36:26 +00:00
for ( const Map < StringName , Vector < StringName > > : : Element * E = _signals . front ( ) ; E ; E = E - > next ( ) ) {
2015-06-24 16:29:23 +00:00
MethodInfo mi ;
2017-03-18 23:36:26 +00:00
mi . name = E - > key ( ) ;
for ( int i = 0 ; i < E - > get ( ) . size ( ) ; i + + ) {
2015-06-24 16:29:23 +00:00
PropertyInfo arg ;
2017-03-18 23:36:26 +00:00
arg . name = E - > get ( ) [ i ] ;
2015-06-24 16:29:23 +00:00
mi . arguments . push_back ( arg ) ;
}
r_signals - > push_back ( mi ) ;
}
if ( base . is_valid ( ) ) {
base - > get_script_signal_list ( r_signals ) ;
}
# ifdef TOOLS_ENABLED
2017-03-18 23:36:26 +00:00
else if ( base_cache . is_valid ( ) ) {
2015-06-24 16:29:23 +00:00
base_cache - > get_script_signal_list ( r_signals ) ;
}
# endif
}
2017-12-11 14:31:49 +00:00
GDScript : : GDScript ( ) :
script_list ( this ) {
2015-06-24 16:29:23 +00:00
2017-03-18 23:36:26 +00:00
_static_ref = this ;
valid = false ;
subclass_count = 0 ;
initializer = NULL ;
_base = NULL ;
_owner = NULL ;
tool = false ;
2014-12-07 05:04:20 +00:00
# ifdef TOOLS_ENABLED
2017-03-18 23:36:26 +00:00
source_changed_cache = false ;
2014-12-07 05:04:20 +00:00
# endif
2014-06-16 13:22:26 +00:00
2016-06-01 23:22:02 +00:00
# ifdef DEBUG_ENABLED
if ( GDScriptLanguage : : get_singleton ( ) - > lock ) {
GDScriptLanguage : : get_singleton ( ) - > lock - > lock ( ) ;
}
GDScriptLanguage : : get_singleton ( ) - > script_list . add ( & script_list ) ;
if ( GDScriptLanguage : : get_singleton ( ) - > lock ) {
GDScriptLanguage : : get_singleton ( ) - > lock - > unlock ( ) ;
}
# endif
2014-02-10 01:10:30 +00:00
}
2016-05-22 00:18:16 +00:00
GDScript : : ~ GDScript ( ) {
2017-03-18 23:36:26 +00:00
for ( Map < StringName , GDFunction * > : : Element * E = member_functions . front ( ) ; E ; E = E - > next ( ) ) {
memdelete ( E - > get ( ) ) ;
2016-05-22 00:18:16 +00:00
}
2016-06-01 23:22:02 +00:00
2017-03-18 23:36:26 +00:00
for ( Map < StringName , Ref < GDScript > > : : Element * E = subclasses . front ( ) ; E ; E = E - > next ( ) ) {
E - > get ( ) - > _owner = NULL ; //bye, you are no longer owned cause I died
2016-06-28 13:44:38 +00:00
}
2016-06-01 23:22:02 +00:00
# ifdef DEBUG_ENABLED
if ( GDScriptLanguage : : get_singleton ( ) - > lock ) {
GDScriptLanguage : : get_singleton ( ) - > lock - > lock ( ) ;
}
GDScriptLanguage : : get_singleton ( ) - > script_list . remove ( & script_list ) ;
if ( GDScriptLanguage : : get_singleton ( ) - > lock ) {
GDScriptLanguage : : get_singleton ( ) - > lock - > unlock ( ) ;
}
# endif
2016-05-22 00:18:16 +00:00
}
2014-02-10 01:10:30 +00:00
//////////////////////////////
// INSTANCE //
//////////////////////////////
2017-03-18 23:36:26 +00:00
bool GDInstance : : set ( const StringName & p_name , const Variant & p_value ) {
2014-02-10 01:10:30 +00:00
//member
{
2017-03-18 23:36:26 +00:00
const Map < StringName , GDScript : : MemberInfo > : : Element * E = script - > member_indices . find ( p_name ) ;
2014-02-10 01:10:30 +00:00
if ( E ) {
2014-10-28 01:54:32 +00:00
if ( E - > get ( ) . setter ) {
2017-03-18 23:36:26 +00:00
const Variant * val = & p_value ;
2014-10-28 01:54:32 +00:00
Variant : : CallError err ;
2017-03-18 23:36:26 +00:00
call ( E - > get ( ) . setter , & val , 1 , err ) ;
if ( err . error = = Variant : : CallError : : CALL_OK ) {
2014-10-28 01:54:32 +00:00
return true ; //function exists, call was successful
}
2017-03-18 23:36:26 +00:00
} else
2015-06-13 18:10:06 +00:00
members [ E - > get ( ) . index ] = p_value ;
2014-02-10 01:10:30 +00:00
return true ;
}
}
2017-03-18 23:36:26 +00:00
GDScript * sptr = script . ptr ( ) ;
while ( sptr ) {
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
Map < StringName , GDFunction * > : : Element * E = sptr - > member_functions . find ( GDScriptLanguage : : get_singleton ( ) - > strings . _set ) ;
2014-02-10 01:10:30 +00:00
if ( E ) {
2017-03-18 23:36:26 +00:00
Variant name = p_name ;
const Variant * args [ 2 ] = { & name , & p_value } ;
2014-02-10 01:10:30 +00:00
Variant : : CallError err ;
2017-03-18 23:36:26 +00:00
Variant ret = E - > get ( ) - > call ( this , ( const Variant * * ) args , 2 , err ) ;
if ( err . error = = Variant : : CallError : : CALL_OK & & ret . get_type ( ) = = Variant : : BOOL & & ret . operator bool ( ) )
2014-02-10 01:10:30 +00:00
return true ;
}
sptr = sptr - > _base ;
}
return false ;
}
2017-03-18 23:36:26 +00:00
bool GDInstance : : get ( const StringName & p_name , Variant & r_ret ) const {
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
const GDScript * sptr = script . ptr ( ) ;
while ( sptr ) {
2014-02-10 01:10:30 +00:00
{
2017-03-18 23:36:26 +00:00
const Map < StringName , GDScript : : MemberInfo > : : Element * E = script - > member_indices . find ( p_name ) ;
2014-02-10 01:10:30 +00:00
if ( E ) {
2014-10-28 01:54:32 +00:00
if ( E - > get ( ) . getter ) {
Variant : : CallError err ;
2017-03-18 23:36:26 +00:00
r_ret = const_cast < GDInstance * > ( this ) - > call ( E - > get ( ) . getter , NULL , 0 , err ) ;
if ( err . error = = Variant : : CallError : : CALL_OK ) {
2014-10-28 01:54:32 +00:00
return true ;
}
}
2017-03-18 23:36:26 +00:00
r_ret = members [ E - > get ( ) . index ] ;
2014-02-10 01:10:30 +00:00
return true ; //index found
}
}
{
2016-06-28 14:15:55 +00:00
const GDScript * sl = sptr ;
2017-03-18 23:36:26 +00:00
while ( sl ) {
const Map < StringName , Variant > : : Element * E = sl - > constants . find ( p_name ) ;
2016-06-28 14:15:55 +00:00
if ( E ) {
2017-03-18 23:36:26 +00:00
r_ret = E - > get ( ) ;
2016-06-28 14:15:55 +00:00
return true ; //index found
}
2017-03-18 23:36:26 +00:00
sl = sl - > _base ;
2014-02-10 01:10:30 +00:00
}
}
{
2017-03-18 23:36:26 +00:00
const Map < StringName , GDFunction * > : : Element * E = sptr - > member_functions . find ( GDScriptLanguage : : get_singleton ( ) - > strings . _get ) ;
2014-02-10 01:10:30 +00:00
if ( E ) {
2017-03-18 23:36:26 +00:00
Variant name = p_name ;
const Variant * args [ 1 ] = { & name } ;
2014-02-10 01:10:30 +00:00
Variant : : CallError err ;
2017-03-18 23:36:26 +00:00
Variant ret = const_cast < GDFunction * > ( E - > get ( ) ) - > call ( const_cast < GDInstance * > ( this ) , ( const Variant * * ) args , 1 , err ) ;
if ( err . error = = Variant : : CallError : : CALL_OK & & ret . get_type ( ) ! = Variant : : NIL ) {
r_ret = ret ;
2014-02-10 01:10:30 +00:00
return true ;
}
}
}
sptr = sptr - > _base ;
}
return false ;
}
2015-12-05 17:18:22 +00:00
2017-03-18 23:36:26 +00:00
Variant : : Type GDInstance : : get_property_type ( const StringName & p_name , bool * r_is_valid ) const {
2015-12-05 17:18:22 +00:00
2017-03-18 23:36:26 +00:00
const GDScript * sptr = script . ptr ( ) ;
while ( sptr ) {
2015-12-05 17:18:22 +00:00
if ( sptr - > member_info . has ( p_name ) ) {
if ( r_is_valid )
2017-03-18 23:36:26 +00:00
* r_is_valid = true ;
2015-12-05 17:18:22 +00:00
return sptr - > member_info [ p_name ] . type ;
}
sptr = sptr - > _base ;
}
if ( r_is_valid )
2017-03-18 23:36:26 +00:00
* r_is_valid = false ;
2015-12-05 17:18:22 +00:00
return Variant : : NIL ;
}
2014-02-10 01:10:30 +00:00
void GDInstance : : get_property_list ( List < PropertyInfo > * p_properties ) const {
// exported members, not doen yet!
2017-03-18 23:36:26 +00:00
const GDScript * sptr = script . ptr ( ) ;
2014-02-10 01:10:30 +00:00
List < PropertyInfo > props ;
2017-03-18 23:36:26 +00:00
while ( sptr ) {
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
const Map < StringName , GDFunction * > : : Element * E = sptr - > member_functions . find ( GDScriptLanguage : : get_singleton ( ) - > strings . _get_property_list ) ;
2014-02-10 01:10:30 +00:00
if ( E ) {
Variant : : CallError err ;
2017-03-18 23:36:26 +00:00
Variant ret = const_cast < GDFunction * > ( E - > get ( ) ) - > call ( const_cast < GDInstance * > ( this ) , NULL , 0 , err ) ;
if ( err . error = = Variant : : CallError : : CALL_OK ) {
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
if ( ret . get_type ( ) ! = Variant : : ARRAY ) {
2014-02-10 01:10:30 +00:00
ERR_EXPLAIN ( " Wrong type for _get_property list, must be an array of dictionaries. " ) ;
ERR_FAIL ( ) ;
}
Array arr = ret ;
2017-03-18 23:36:26 +00:00
for ( int i = 0 ; i < arr . size ( ) ; i + + ) {
2014-02-10 01:10:30 +00:00
Dictionary d = arr [ i ] ;
ERR_CONTINUE ( ! d . has ( " name " ) ) ;
ERR_CONTINUE ( ! d . has ( " type " ) ) ;
PropertyInfo pinfo ;
2017-03-18 23:36:26 +00:00
pinfo . type = Variant : : Type ( d [ " type " ] . operator int ( ) ) ;
ERR_CONTINUE ( pinfo . type < 0 | | pinfo . type > = Variant : : VARIANT_MAX ) ;
2014-02-10 01:10:30 +00:00
pinfo . name = d [ " name " ] ;
2017-03-18 23:36:26 +00:00
ERR_CONTINUE ( pinfo . name = = " " ) ;
2014-02-10 01:10:30 +00:00
if ( d . has ( " hint " ) )
2017-03-18 23:36:26 +00:00
pinfo . hint = PropertyHint ( d [ " hint " ] . operator int ( ) ) ;
2014-02-10 01:10:30 +00:00
if ( d . has ( " hint_string " ) )
2017-03-18 23:36:26 +00:00
pinfo . hint_string = d [ " hint_string " ] ;
2014-02-10 01:10:30 +00:00
if ( d . has ( " usage " ) )
2017-03-18 23:36:26 +00:00
pinfo . usage = d [ " usage " ] ;
2014-02-10 01:10:30 +00:00
props . push_back ( pinfo ) ;
}
}
}
//instance a fake script for editing the values
Vector < _GDScriptMemberSort > msort ;
2017-03-18 23:36:26 +00:00
for ( Map < StringName , PropertyInfo > : : Element * E = sptr - > member_info . front ( ) ; E ; E = E - > next ( ) ) {
2014-02-10 01:10:30 +00:00
_GDScriptMemberSort ms ;
ERR_CONTINUE ( ! sptr - > member_indices . has ( E - > key ( ) ) ) ;
2017-03-18 23:36:26 +00:00
ms . index = sptr - > member_indices [ E - > key ( ) ] . index ;
ms . name = E - > key ( ) ;
2014-02-10 01:10:30 +00:00
msort . push_back ( ms ) ;
}
msort . sort ( ) ;
msort . invert ( ) ;
2017-03-18 23:36:26 +00:00
for ( int i = 0 ; i < msort . size ( ) ; i + + ) {
2014-02-10 01:10:30 +00:00
props . push_front ( sptr - > member_info [ msort [ i ] . name ] ) ;
}
#if 0
if ( sptr - > member_functions . has ( " _get_property_list " ) ) {
Variant : : CallError err ;
2016-05-22 00:18:16 +00:00
GDFunction * f = const_cast < GDFunction * > ( sptr - > member_functions [ " _get_property_list " ] ) ;
2014-02-10 01:10:30 +00:00
Variant plv = f - > call ( const_cast < GDInstance * > ( this ) , NULL , 0 , err ) ;
if ( plv . get_type ( ) ! = Variant : : ARRAY ) {
ERR_PRINT ( " _get_property_list: expected array returned " ) ;
} else {
Array pl = plv ;
for ( int i = 0 ; i < pl . size ( ) ; i + + ) {
Dictionary p = pl [ i ] ;
PropertyInfo pinfo ;
if ( ! p . has ( " name " ) ) {
ERR_PRINT ( " _get_property_list: expected 'name' key of type string. " )
2016-05-22 00:18:16 +00:00
continue ;
2014-02-10 01:10:30 +00:00
}
if ( ! p . has ( " type " ) ) {
ERR_PRINT ( " _get_property_list: expected 'type' key of type integer. " )
2016-05-22 00:18:16 +00:00
continue ;
2014-02-10 01:10:30 +00:00
}
pinfo . name = p [ " name " ] ;
pinfo . type = Variant : : Type ( int ( p [ " type " ] ) ) ;
if ( p . has ( " hint " ) )
pinfo . hint = PropertyHint ( int ( p [ " hint " ] ) ) ;
if ( p . has ( " hint_string " ) )
pinfo . hint_string = p [ " hint_string " ] ;
if ( p . has ( " usage " ) )
pinfo . usage = p [ " usage " ] ;
props . push_back ( pinfo ) ;
}
}
}
# endif
sptr = sptr - > _base ;
}
//props.invert();
2017-03-18 23:36:26 +00:00
for ( List < PropertyInfo > : : Element * E = props . front ( ) ; E ; E = E - > next ( ) ) {
2014-02-10 01:10:30 +00:00
p_properties - > push_back ( E - > get ( ) ) ;
}
}
void GDInstance : : get_method_list ( List < MethodInfo > * p_list ) const {
2017-03-18 23:36:26 +00:00
const GDScript * sptr = script . ptr ( ) ;
while ( sptr ) {
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
for ( Map < StringName , GDFunction * > : : Element * E = sptr - > member_functions . front ( ) ; E ; E = E - > next ( ) ) {
2014-02-10 01:10:30 +00:00
MethodInfo mi ;
2017-03-18 23:36:26 +00:00
mi . name = E - > key ( ) ;
mi . flags | = METHOD_FLAG_FROM_SCRIPT ;
for ( int i = 0 ; i < E - > get ( ) - > get_argument_count ( ) ; i + + )
mi . arguments . push_back ( PropertyInfo ( Variant : : NIL , " arg " + itos ( i ) ) ) ;
2014-02-10 01:10:30 +00:00
p_list - > push_back ( mi ) ;
}
sptr = sptr - > _base ;
}
}
2017-03-18 23:36:26 +00:00
bool GDInstance : : has_method ( const StringName & p_method ) const {
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
const GDScript * sptr = script . ptr ( ) ;
while ( sptr ) {
const Map < StringName , GDFunction * > : : Element * E = sptr - > member_functions . find ( p_method ) ;
2014-02-10 01:10:30 +00:00
if ( E )
return true ;
sptr = sptr - > _base ;
}
return false ;
}
2017-03-18 23:36:26 +00:00
Variant GDInstance : : call ( const StringName & p_method , const Variant * * p_args , int p_argcount , Variant : : CallError & r_error ) {
2014-02-10 01:10:30 +00:00
//printf("calling %ls:%i method %ls\n", script->get_path().c_str(), -1, String(p_method).c_str());
2017-03-18 23:36:26 +00:00
GDScript * sptr = script . ptr ( ) ;
while ( sptr ) {
Map < StringName , GDFunction * > : : Element * E = sptr - > member_functions . find ( p_method ) ;
2014-02-10 01:10:30 +00:00
if ( E ) {
2017-03-18 23:36:26 +00:00
return E - > get ( ) - > call ( this , p_args , p_argcount , r_error ) ;
2014-02-10 01:10:30 +00:00
}
sptr = sptr - > _base ;
}
2017-03-18 23:36:26 +00:00
r_error . error = Variant : : CallError : : CALL_ERROR_INVALID_METHOD ;
2014-02-10 01:10:30 +00:00
return Variant ( ) ;
}
2017-03-18 23:36:26 +00:00
void GDInstance : : call_multilevel ( const StringName & p_method , const Variant * * p_args , int p_argcount ) {
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
GDScript * sptr = script . ptr ( ) ;
2014-02-10 01:10:30 +00:00
Variant : : CallError ce ;
2017-03-18 23:36:26 +00:00
while ( sptr ) {
Map < StringName , GDFunction * > : : Element * E = sptr - > member_functions . find ( p_method ) ;
2014-02-10 01:10:30 +00:00
if ( E ) {
2017-03-18 23:36:26 +00:00
E - > get ( ) - > call ( this , p_args , p_argcount , ce ) ;
2014-02-10 01:10:30 +00:00
}
sptr = sptr - > _base ;
}
}
2017-03-18 23:36:26 +00:00
void GDInstance : : _ml_call_reversed ( GDScript * sptr , const StringName & p_method , const Variant * * p_args , int p_argcount ) {
2014-02-10 01:10:30 +00:00
if ( sptr - > _base )
2017-03-18 23:36:26 +00:00
_ml_call_reversed ( sptr - > _base , p_method , p_args , p_argcount ) ;
2014-02-10 01:10:30 +00:00
Variant : : CallError ce ;
2017-03-18 23:36:26 +00:00
Map < StringName , GDFunction * > : : Element * E = sptr - > member_functions . find ( p_method ) ;
2014-02-10 01:10:30 +00:00
if ( E ) {
2017-03-18 23:36:26 +00:00
E - > get ( ) - > call ( this , p_args , p_argcount , ce ) ;
2014-02-10 01:10:30 +00:00
}
}
2017-03-18 23:36:26 +00:00
void GDInstance : : call_multilevel_reversed ( const StringName & p_method , const Variant * * p_args , int p_argcount ) {
2014-02-10 01:10:30 +00:00
if ( script . ptr ( ) ) {
2017-03-18 23:36:26 +00:00
_ml_call_reversed ( script . ptr ( ) , p_method , p_args , p_argcount ) ;
2014-02-10 01:10:30 +00:00
}
}
void GDInstance : : notification ( int p_notification ) {
//notification is not virutal, it gets called at ALL levels just like in C.
2017-03-18 23:36:26 +00:00
Variant value = p_notification ;
const Variant * args [ 1 ] = { & value } ;
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
GDScript * sptr = script . ptr ( ) ;
while ( sptr ) {
Map < StringName , GDFunction * > : : Element * E = sptr - > member_functions . find ( GDScriptLanguage : : get_singleton ( ) - > strings . _notification ) ;
2014-02-10 01:10:30 +00:00
if ( E ) {
Variant : : CallError err ;
2017-03-18 23:36:26 +00:00
E - > get ( ) - > call ( this , args , 1 , err ) ;
if ( err . error ! = Variant : : CallError : : CALL_OK ) {
2014-02-10 01:10:30 +00:00
//print error about notification call
}
}
sptr = sptr - > _base ;
}
}
Ref < Script > GDInstance : : get_script ( ) const {
return script ;
}
ScriptLanguage * GDInstance : : get_language ( ) {
return GDScriptLanguage : : get_singleton ( ) ;
}
2016-06-01 23:22:02 +00:00
void GDInstance : : reload_members ( ) {
# ifdef DEBUG_ENABLED
members . resize ( script - > member_indices . size ( ) ) ; //resize
Vector < Variant > new_members ;
new_members . resize ( script - > member_indices . size ( ) ) ;
//pass the values to the new indices
2017-03-18 23:36:26 +00:00
for ( Map < StringName , GDScript : : MemberInfo > : : Element * E = script - > member_indices . front ( ) ; E ; E = E - > next ( ) ) {
2016-06-01 23:22:02 +00:00
if ( member_indices_cache . has ( E - > key ( ) ) ) {
Variant value = members [ member_indices_cache [ E - > key ( ) ] ] ;
2017-03-18 23:36:26 +00:00
new_members [ E - > get ( ) . index ] = value ;
2016-06-01 23:22:02 +00:00
}
}
//apply
2017-03-18 23:36:26 +00:00
members = new_members ;
2016-06-01 23:22:02 +00:00
//pass the values to the new indices
member_indices_cache . clear ( ) ;
2017-03-18 23:36:26 +00:00
for ( Map < StringName , GDScript : : MemberInfo > : : Element * E = script - > member_indices . front ( ) ; E ; E = E - > next ( ) ) {
2016-06-01 23:22:02 +00:00
2017-03-18 23:36:26 +00:00
member_indices_cache [ E - > key ( ) ] = E - > get ( ) . index ;
2016-06-01 23:22:02 +00:00
}
# endif
}
2014-02-10 01:10:30 +00:00
GDInstance : : GDInstance ( ) {
2017-03-18 23:36:26 +00:00
owner = NULL ;
base_ref = false ;
2014-02-10 01:10:30 +00:00
}
GDInstance : : ~ GDInstance ( ) {
if ( script . is_valid ( ) & & owner ) {
script - > instances . erase ( owner ) ;
}
}
/************* SCRIPT LANGUAGE **************/
/************* SCRIPT LANGUAGE **************/
/************* SCRIPT LANGUAGE **************/
/************* SCRIPT LANGUAGE **************/
/************* SCRIPT LANGUAGE **************/
2017-03-18 23:36:26 +00:00
GDScriptLanguage * GDScriptLanguage : : singleton = NULL ;
2014-02-10 01:10:30 +00:00
String GDScriptLanguage : : get_name ( ) const {
return " GDScript " ;
}
/* LANGUAGE FUNCTIONS */
2017-03-18 23:36:26 +00:00
void GDScriptLanguage : : _add_global ( const StringName & p_name , const Variant & p_value ) {
2014-02-10 01:10:30 +00:00
if ( globals . has ( p_name ) ) {
//overwrite existing
2017-03-18 23:36:26 +00:00
global_array [ globals [ p_name ] ] = p_value ;
2014-02-10 01:10:30 +00:00
return ;
}
2017-03-18 23:36:26 +00:00
globals [ p_name ] = global_array . size ( ) ;
2014-02-10 01:10:30 +00:00
global_array . push_back ( p_value ) ;
2017-03-18 23:36:26 +00:00
_global_array = global_array . ptr ( ) ;
2014-02-10 01:10:30 +00:00
}
2017-03-18 23:36:26 +00:00
void GDScriptLanguage : : add_global_constant ( const StringName & p_variable , const Variant & p_value ) {
2015-12-28 18:59:20 +00:00
2017-03-18 23:36:26 +00:00
_add_global ( p_variable , p_value ) ;
2015-12-28 18:59:20 +00:00
}
2014-02-10 01:10:30 +00:00
void GDScriptLanguage : : init ( ) {
//populate global constants
2017-03-18 23:36:26 +00:00
int gcc = GlobalConstants : : get_global_constant_count ( ) ;
for ( int i = 0 ; i < gcc ; i + + ) {
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
_add_global ( StaticCString : : create ( GlobalConstants : : get_global_constant_name ( i ) ) , GlobalConstants : : get_global_constant_value ( i ) ) ;
2014-02-10 01:10:30 +00:00
}
2017-03-18 23:36:26 +00:00
_add_global ( StaticCString : : create ( " PI " ) , Math_PI ) ;
2014-02-10 01:10:30 +00:00
//populate native classes
2015-06-29 03:29:49 +00:00
List < StringName > class_list ;
2014-02-10 01:10:30 +00:00
ObjectTypeDB : : get_type_list ( & class_list ) ;
2017-03-18 23:36:26 +00:00
for ( List < StringName > : : Element * E = class_list . front ( ) ; E ; E = E - > next ( ) ) {
2014-02-10 01:10:30 +00:00
StringName n = E - > get ( ) ;
String s = String ( n ) ;
if ( s . begins_with ( " _ " ) )
2017-03-18 23:36:26 +00:00
n = s . substr ( 1 , s . length ( ) ) ;
2014-02-10 01:10:30 +00:00
if ( globals . has ( n ) )
continue ;
2017-03-18 23:36:26 +00:00
Ref < GDNativeClass > nc = memnew ( GDNativeClass ( E - > get ( ) ) ) ;
_add_global ( n , nc ) ;
2014-02-10 01:10:30 +00:00
}
//populate singletons
List < Globals : : Singleton > singletons ;
Globals : : get_singleton ( ) - > get_singletons ( & singletons ) ;
2017-03-18 23:36:26 +00:00
for ( List < Globals : : Singleton > : : Element * E = singletons . front ( ) ; E ; E = E - > next ( ) ) {
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
_add_global ( E - > get ( ) . name , E - > get ( ) . ptr ) ;
2014-02-10 01:10:30 +00:00
}
}
String GDScriptLanguage : : get_type ( ) const {
return " GDScript " ;
}
String GDScriptLanguage : : get_extension ( ) const {
return " gd " ;
}
2017-03-18 23:36:26 +00:00
Error GDScriptLanguage : : execute_file ( const String & p_path ) {
2014-02-10 01:10:30 +00:00
// ??
return OK ;
}
2017-03-18 23:36:26 +00:00
void GDScriptLanguage : : finish ( ) {
2014-02-10 01:10:30 +00:00
}
2016-05-22 00:18:16 +00:00
void GDScriptLanguage : : profiling_start ( ) {
# ifdef DEBUG_ENABLED
if ( lock ) {
lock - > lock ( ) ;
}
2017-03-18 23:36:26 +00:00
SelfList < GDFunction > * elem = function_list . first ( ) ;
while ( elem ) {
elem - > self ( ) - > profile . call_count = 0 ;
elem - > self ( ) - > profile . self_time = 0 ;
elem - > self ( ) - > profile . total_time = 0 ;
elem - > self ( ) - > profile . frame_call_count = 0 ;
elem - > self ( ) - > profile . frame_self_time = 0 ;
elem - > self ( ) - > profile . frame_total_time = 0 ;
elem - > self ( ) - > profile . last_frame_call_count = 0 ;
elem - > self ( ) - > profile . last_frame_self_time = 0 ;
elem - > self ( ) - > profile . last_frame_total_time = 0 ;
elem = elem - > next ( ) ;
2016-05-22 00:18:16 +00:00
}
2017-03-18 23:36:26 +00:00
profiling = true ;
2016-05-22 00:18:16 +00:00
if ( lock ) {
lock - > unlock ( ) ;
}
# endif
}
void GDScriptLanguage : : profiling_stop ( ) {
# ifdef DEBUG_ENABLED
if ( lock ) {
lock - > lock ( ) ;
}
2017-03-18 23:36:26 +00:00
profiling = false ;
2016-05-22 00:18:16 +00:00
if ( lock ) {
lock - > unlock ( ) ;
}
# endif
}
2017-03-18 23:36:26 +00:00
int GDScriptLanguage : : profiling_get_accumulated_data ( ProfilingInfo * p_info_arr , int p_info_max ) {
2016-05-22 00:18:16 +00:00
2017-03-18 23:36:26 +00:00
int current = 0 ;
2016-05-22 00:18:16 +00:00
# ifdef DEBUG_ENABLED
if ( lock ) {
lock - > lock ( ) ;
}
2017-03-18 23:36:26 +00:00
SelfList < GDFunction > * elem = function_list . first ( ) ;
while ( elem ) {
if ( current > = p_info_max )
2016-05-22 00:18:16 +00:00
break ;
2017-03-18 23:36:26 +00:00
p_info_arr [ current ] . call_count = elem - > self ( ) - > profile . call_count ;
p_info_arr [ current ] . self_time = elem - > self ( ) - > profile . self_time ;
p_info_arr [ current ] . total_time = elem - > self ( ) - > profile . total_time ;
p_info_arr [ current ] . signature = elem - > self ( ) - > profile . signature ;
elem = elem - > next ( ) ;
2016-05-22 00:18:16 +00:00
current + + ;
}
if ( lock ) {
lock - > unlock ( ) ;
}
# endif
return current ;
}
2017-03-18 23:36:26 +00:00
int GDScriptLanguage : : profiling_get_frame_data ( ProfilingInfo * p_info_arr , int p_info_max ) {
2016-05-22 00:18:16 +00:00
2017-03-18 23:36:26 +00:00
int current = 0 ;
2016-05-22 00:18:16 +00:00
# ifdef DEBUG_ENABLED
if ( lock ) {
lock - > lock ( ) ;
}
2017-03-18 23:36:26 +00:00
SelfList < GDFunction > * elem = function_list . first ( ) ;
while ( elem ) {
if ( current > = p_info_max )
2016-05-22 00:18:16 +00:00
break ;
2017-03-18 23:36:26 +00:00
if ( elem - > self ( ) - > profile . last_frame_call_count > 0 ) {
p_info_arr [ current ] . call_count = elem - > self ( ) - > profile . last_frame_call_count ;
p_info_arr [ current ] . self_time = elem - > self ( ) - > profile . last_frame_self_time ;
p_info_arr [ current ] . total_time = elem - > self ( ) - > profile . last_frame_total_time ;
p_info_arr [ current ] . signature = elem - > self ( ) - > profile . signature ;
2016-05-22 00:18:16 +00:00
//print_line(String(elem->self()->profile.signature)+": "+itos(elem->self()->profile.last_frame_call_count));
current + + ;
}
2017-03-18 23:36:26 +00:00
elem = elem - > next ( ) ;
2016-05-22 00:18:16 +00:00
}
if ( lock ) {
lock - > unlock ( ) ;
}
# endif
return current ;
}
2016-06-01 23:22:02 +00:00
struct GDScriptDepSort {
//must support sorting so inheritance works properly (parent must be reloaded first)
2017-03-18 23:36:26 +00:00
bool operator ( ) ( const Ref < GDScript > & A , const Ref < GDScript > & B ) const {
2016-06-01 23:22:02 +00:00
2017-03-18 23:36:26 +00:00
if ( A = = B )
2016-06-01 23:22:02 +00:00
return false ; //shouldn't happen but..
2017-03-18 23:36:26 +00:00
const GDScript * I = B - > get_base ( ) . ptr ( ) ;
while ( I ) {
if ( I = = A . ptr ( ) ) {
2016-06-01 23:22:02 +00:00
// A is a base of B
return true ;
}
2017-03-18 23:36:26 +00:00
I = I - > get_base ( ) . ptr ( ) ;
2016-06-01 23:22:02 +00:00
}
return false ; //not a base
}
} ;
void GDScriptLanguage : : reload_all_scripts ( ) {
# ifdef DEBUG_ENABLED
print_line ( " RELOAD ALL SCRIPTS " ) ;
if ( lock ) {
lock - > lock ( ) ;
}
List < Ref < GDScript > > scripts ;
2017-03-18 23:36:26 +00:00
SelfList < GDScript > * elem = script_list . first ( ) ;
while ( elem ) {
2016-06-01 23:22:02 +00:00
if ( elem - > self ( ) - > get_path ( ) . is_resource_file ( ) ) {
2017-03-18 23:36:26 +00:00
print_line ( " FOUND: " + elem - > self ( ) - > get_path ( ) ) ;
2016-06-01 23:22:02 +00:00
scripts . push_back ( Ref < GDScript > ( elem - > self ( ) ) ) ; //cast to gdscript to avoid being erased by accident
}
2017-03-18 23:36:26 +00:00
elem = elem - > next ( ) ;
2016-06-01 23:22:02 +00:00
}
if ( lock ) {
lock - > unlock ( ) ;
}
//as scripts are going to be reloaded, must proceed without locking here
scripts . sort_custom < GDScriptDepSort > ( ) ; //update in inheritance dependency order
2017-03-18 23:36:26 +00:00
for ( List < Ref < GDScript > > : : Element * E = scripts . front ( ) ; E ; E = E - > next ( ) ) {
2016-06-01 23:22:02 +00:00
2017-03-18 23:36:26 +00:00
print_line ( " RELOADING: " + E - > get ( ) - > get_path ( ) ) ;
2016-06-01 23:22:02 +00:00
E - > get ( ) - > load_source_code ( E - > get ( ) - > get_path ( ) ) ;
E - > get ( ) - > reload ( true ) ;
}
# endif
}
2017-03-18 23:36:26 +00:00
void GDScriptLanguage : : reload_tool_script ( const Ref < Script > & p_script , bool p_soft_reload ) {
2016-06-08 23:00:02 +00:00
# ifdef DEBUG_ENABLED
if ( lock ) {
lock - > lock ( ) ;
}
List < Ref < GDScript > > scripts ;
2017-03-18 23:36:26 +00:00
SelfList < GDScript > * elem = script_list . first ( ) ;
while ( elem ) {
2016-06-08 23:00:02 +00:00
if ( elem - > self ( ) - > get_path ( ) . is_resource_file ( ) ) {
scripts . push_back ( Ref < GDScript > ( elem - > self ( ) ) ) ; //cast to gdscript to avoid being erased by accident
}
2017-03-18 23:36:26 +00:00
elem = elem - > next ( ) ;
2016-06-08 23:00:02 +00:00
}
if ( lock ) {
lock - > unlock ( ) ;
}
//when someone asks you why dynamically typed languages are easier to write....
2017-03-18 23:36:26 +00:00
Map < Ref < GDScript > , Map < ObjectID , List < Pair < StringName , Variant > > > > to_reload ;
2016-06-08 23:00:02 +00:00
//as scripts are going to be reloaded, must proceed without locking here
scripts . sort_custom < GDScriptDepSort > ( ) ; //update in inheritance dependency order
2017-03-18 23:36:26 +00:00
for ( List < Ref < GDScript > > : : Element * E = scripts . front ( ) ; E ; E = E - > next ( ) ) {
2016-06-08 23:00:02 +00:00
2017-03-18 23:36:26 +00:00
bool reload = E - > get ( ) = = p_script | | to_reload . has ( E - > get ( ) - > get_base ( ) ) ;
2016-06-08 23:00:02 +00:00
if ( ! reload )
continue ;
2017-03-18 23:36:26 +00:00
to_reload . insert ( E - > get ( ) , Map < ObjectID , List < Pair < StringName , Variant > > > ( ) ) ;
2016-06-08 23:00:02 +00:00
if ( ! p_soft_reload ) {
//save state and remove script from instances
2017-03-18 23:36:26 +00:00
Map < ObjectID , List < Pair < StringName , Variant > > > & map = to_reload [ E - > get ( ) ] ;
2016-06-08 23:00:02 +00:00
2017-03-18 23:36:26 +00:00
while ( E - > get ( ) - > instances . front ( ) ) {
2016-06-08 23:00:02 +00:00
Object * obj = E - > get ( ) - > instances . front ( ) - > get ( ) ;
//save instance info
2017-03-18 23:36:26 +00:00
List < Pair < StringName , Variant > > state ;
2016-06-08 23:00:02 +00:00
if ( obj - > get_script_instance ( ) ) {
obj - > get_script_instance ( ) - > get_property_state ( state ) ;
2017-03-18 23:36:26 +00:00
map [ obj - > get_instance_ID ( ) ] = state ;
2016-06-08 23:00:02 +00:00
obj - > set_script ( RefPtr ( ) ) ;
}
}
2017-03-18 23:36:26 +00:00
//same thing for placeholders
2016-06-08 23:00:02 +00:00
# ifdef TOOLS_ENABLED
2017-03-18 23:36:26 +00:00
while ( E - > get ( ) - > placeholders . size ( ) ) {
2016-06-08 23:00:02 +00:00
Object * obj = E - > get ( ) - > placeholders . front ( ) - > get ( ) - > get_owner ( ) ;
2017-04-24 16:51:39 +00:00
2016-06-08 23:00:02 +00:00
//save instance info
2017-03-18 23:36:26 +00:00
List < Pair < StringName , Variant > > state ;
2016-06-08 23:00:02 +00:00
if ( obj - > get_script_instance ( ) ) {
obj - > get_script_instance ( ) - > get_property_state ( state ) ;
2017-03-18 23:36:26 +00:00
map [ obj - > get_instance_ID ( ) ] = state ;
2016-06-08 23:00:02 +00:00
obj - > set_script ( RefPtr ( ) ) ;
2017-04-24 16:51:39 +00:00
} else {
// no instance found. Let's remove it so we don't loop forever
E - > get ( ) - > placeholders . erase ( E - > get ( ) - > placeholders . front ( ) - > get ( ) ) ;
2016-06-08 23:00:02 +00:00
}
}
# endif
2017-03-18 23:36:26 +00:00
for ( Map < ObjectID , List < Pair < StringName , Variant > > > : : Element * F = E - > get ( ) - > pending_reload_state . front ( ) ; F ; F = F - > next ( ) ) {
map [ F - > key ( ) ] = F - > get ( ) ; //pending to reload, use this one instead
2016-07-21 01:37:48 +00:00
}
2016-06-08 23:00:02 +00:00
}
}
2017-03-18 23:36:26 +00:00
for ( Map < Ref < GDScript > , Map < ObjectID , List < Pair < StringName , Variant > > > > : : Element * E = to_reload . front ( ) ; E ; E = E - > next ( ) ) {
2016-06-08 23:00:02 +00:00
Ref < GDScript > scr = E - > key ( ) ;
2016-07-21 01:37:48 +00:00
scr - > reload ( p_soft_reload ) ;
2016-06-08 23:00:02 +00:00
//restore state if saved
2017-03-18 23:36:26 +00:00
for ( Map < ObjectID , List < Pair < StringName , Variant > > > : : Element * F = E - > get ( ) . front ( ) ; F ; F = F - > next ( ) ) {
2016-06-08 23:00:02 +00:00
Object * obj = ObjectDB : : get_instance ( F - > key ( ) ) ;
if ( ! obj )
continue ;
2016-07-21 01:37:48 +00:00
if ( ! p_soft_reload ) {
//clear it just in case (may be a pending reload state)
obj - > set_script ( RefPtr ( ) ) ;
}
2016-06-08 23:00:02 +00:00
obj - > set_script ( scr . get_ref_ptr ( ) ) ;
2016-07-21 01:37:48 +00:00
if ( ! obj - > get_script_instance ( ) ) {
//failed, save reload state for next time if not saved
if ( ! scr - > pending_reload_state . has ( obj - > get_instance_ID ( ) ) ) {
2017-03-18 23:36:26 +00:00
scr - > pending_reload_state [ obj - > get_instance_ID ( ) ] = F - > get ( ) ;
2016-07-21 01:37:48 +00:00
}
2016-06-08 23:00:02 +00:00
continue ;
2016-07-21 01:37:48 +00:00
}
2016-06-08 23:00:02 +00:00
2017-03-18 23:36:26 +00:00
for ( List < Pair < StringName , Variant > > : : Element * G = F - > get ( ) . front ( ) ; G ; G = G - > next ( ) ) {
obj - > get_script_instance ( ) - > set ( G - > get ( ) . first , G - > get ( ) . second ) ;
2016-06-08 23:00:02 +00:00
}
2016-07-21 01:37:48 +00:00
scr - > pending_reload_state . erase ( obj - > get_instance_ID ( ) ) ; //as it reloaded, remove pending state
2016-06-08 23:00:02 +00:00
}
//if instance states were saved, set them!
}
# endif
}
2014-02-10 01:10:30 +00:00
void GDScriptLanguage : : frame ( ) {
2016-05-22 00:18:16 +00:00
// print_line("calls: "+itos(calls));
2017-03-18 23:36:26 +00:00
calls = 0 ;
2016-05-22 00:18:16 +00:00
# ifdef DEBUG_ENABLED
if ( profiling ) {
if ( lock ) {
lock - > lock ( ) ;
}
2017-03-18 23:36:26 +00:00
SelfList < GDFunction > * elem = function_list . first ( ) ;
while ( elem ) {
elem - > self ( ) - > profile . last_frame_call_count = elem - > self ( ) - > profile . frame_call_count ;
elem - > self ( ) - > profile . last_frame_self_time = elem - > self ( ) - > profile . frame_self_time ;
elem - > self ( ) - > profile . last_frame_total_time = elem - > self ( ) - > profile . frame_total_time ;
elem - > self ( ) - > profile . frame_call_count = 0 ;
elem - > self ( ) - > profile . frame_self_time = 0 ;
elem - > self ( ) - > profile . frame_total_time = 0 ;
elem = elem - > next ( ) ;
2016-05-22 00:18:16 +00:00
}
if ( lock ) {
lock - > unlock ( ) ;
}
}
# endif
2014-02-10 01:10:30 +00:00
}
/* EDITOR FUNCTIONS */
2017-03-18 23:36:26 +00:00
void GDScriptLanguage : : get_reserved_words ( List < String > * p_words ) const {
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
static const char * _reserved_words [ ] = {
2016-02-04 09:17:23 +00:00
// operators
2014-02-10 01:10:30 +00:00
" and " ,
2016-02-04 09:17:23 +00:00
" in " ,
" not " ,
2014-02-10 01:10:30 +00:00
" or " ,
2016-02-04 09:17:23 +00:00
// types and values
" false " ,
" float " ,
" int " ,
2016-06-24 15:45:59 +00:00
" bool " ,
2016-02-04 09:17:23 +00:00
" null " ,
2016-02-04 09:26:10 +00:00
" PI " ,
2016-02-04 09:17:23 +00:00
" self " ,
" true " ,
// functions
2014-05-14 04:22:15 +00:00
" assert " ,
2015-12-29 15:11:21 +00:00
" breakpoint " ,
2016-02-04 09:17:23 +00:00
" class " ,
" extends " ,
" func " ,
2016-02-04 17:56:41 +00:00
" preload " ,
2016-02-04 09:17:23 +00:00
" setget " ,
" signal " ,
" tool " ,
2014-09-15 14:33:30 +00:00
" yield " ,
2016-02-04 09:17:23 +00:00
// var
" const " ,
" enum " ,
" export " ,
" onready " ,
2014-09-15 14:33:30 +00:00
" static " ,
2016-02-04 09:17:23 +00:00
" var " ,
// control flow
" break " ,
" continue " ,
" if " ,
" elif " ,
" else " ,
" for " ,
" pass " ,
" return " ,
" while " ,
2017-03-18 23:36:26 +00:00
0
} ;
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
const char * * w = _reserved_words ;
2014-02-10 01:10:30 +00:00
while ( * w ) {
p_words - > push_back ( * w ) ;
w + + ;
}
2017-03-18 23:36:26 +00:00
for ( int i = 0 ; i < GDFunctions : : FUNC_MAX ; i + + ) {
2014-02-10 01:10:30 +00:00
p_words - > push_back ( GDFunctions : : get_func_name ( GDFunctions : : Function ( i ) ) ) ;
}
}
GDScriptLanguage : : GDScriptLanguage ( ) {
2017-03-18 23:36:26 +00:00
calls = 0 ;
2014-02-10 01:10:30 +00:00
ERR_FAIL_COND ( singleton ) ;
2017-03-18 23:36:26 +00:00
singleton = this ;
2014-02-10 01:10:30 +00:00
strings . _init = StaticCString : : create ( " _init " ) ;
strings . _notification = StaticCString : : create ( " _notification " ) ;
2017-03-18 23:36:26 +00:00
strings . _set = StaticCString : : create ( " _set " ) ;
strings . _get = StaticCString : : create ( " _get " ) ;
strings . _get_property_list = StaticCString : : create ( " _get_property_list " ) ;
strings . _script_source = StaticCString : : create ( " script/source " ) ;
_debug_parse_err_line = - 1 ;
_debug_parse_err_file = " " ;
2014-02-10 01:10:30 +00:00
2016-05-22 00:18:16 +00:00
# ifdef NO_THREADS
2017-03-18 23:36:26 +00:00
lock = NULL ;
2016-05-22 00:18:16 +00:00
# else
lock = Mutex : : create ( ) ;
# endif
2017-03-18 23:36:26 +00:00
profiling = false ;
script_frame_time = 0 ;
2016-05-22 00:18:16 +00:00
2017-03-18 23:36:26 +00:00
_debug_call_stack_pos = 0 ;
int dmcs = GLOBAL_DEF ( " debug/script_max_call_stack " , 1024 ) ;
2016-05-22 00:18:16 +00:00
if ( ScriptDebugger : : get_singleton ( ) ) {
//debugging enabled!
2014-02-10 01:10:30 +00:00
2016-05-22 00:18:16 +00:00
_debug_max_call_stack = dmcs ;
2017-03-18 23:36:26 +00:00
if ( _debug_max_call_stack < 1024 )
_debug_max_call_stack = 1024 ;
_call_stack = memnew_arr ( CallLevel , _debug_max_call_stack + 1 ) ;
2014-02-10 01:10:30 +00:00
2016-05-22 00:18:16 +00:00
} else {
2017-03-18 23:36:26 +00:00
_debug_max_call_stack = 0 ;
_call_stack = NULL ;
2016-05-22 00:18:16 +00:00
}
2014-02-10 01:10:30 +00:00
}
GDScriptLanguage : : ~ GDScriptLanguage ( ) {
2016-05-22 00:18:16 +00:00
if ( lock ) {
memdelete ( lock ) ;
2017-03-18 23:36:26 +00:00
lock = NULL ;
2016-05-22 00:18:16 +00:00
}
2017-03-18 23:36:26 +00:00
if ( _call_stack ) {
2016-05-22 00:18:16 +00:00
memdelete_arr ( _call_stack ) ;
}
2017-03-18 23:36:26 +00:00
singleton = NULL ;
2014-02-10 01:10:30 +00:00
}
/*************** RESOURCE ***************/
2017-03-18 23:36:26 +00:00
RES ResourceFormatLoaderGDScript : : load ( const String & p_path , const String & p_original_path , Error * r_error ) {
2015-08-23 23:15:56 +00:00
if ( r_error )
2017-03-18 23:36:26 +00:00
* r_error = ERR_FILE_CANT_OPEN ;
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
GDScript * script = memnew ( GDScript ) ;
2014-02-10 01:10:30 +00:00
Ref < GDScript > scriptres ( script ) ;
2014-06-11 13:41:03 +00:00
if ( p_path . ends_with ( " .gde " ) | | p_path . ends_with ( " .gdc " ) ) {
2014-02-10 01:10:30 +00:00
2014-02-25 12:31:47 +00:00
script - > set_script_path ( p_original_path ) ; // script needs this.
script - > set_path ( p_original_path ) ;
Error err = script - > load_byte_code ( p_path ) ;
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
if ( err ! = OK ) {
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
ERR_FAIL_COND_V ( err ! = OK , RES ( ) ) ;
2014-02-25 12:31:47 +00:00
}
} else {
Error err = script - > load_source_code ( p_path ) ;
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
if ( err ! = OK ) {
2014-02-25 12:31:47 +00:00
2017-03-18 23:36:26 +00:00
ERR_FAIL_COND_V ( err ! = OK , RES ( ) ) ;
2014-02-25 12:31:47 +00:00
}
script - > set_script_path ( p_original_path ) ; // script needs this.
script - > set_path ( p_original_path ) ;
//script->set_name(p_path.get_file());
script - > reload ( ) ;
}
2015-08-23 23:15:56 +00:00
if ( r_error )
2017-03-18 23:36:26 +00:00
* r_error = OK ;
2014-02-10 01:10:30 +00:00
return scriptres ;
}
void ResourceFormatLoaderGDScript : : get_recognized_extensions ( List < String > * p_extensions ) const {
p_extensions - > push_back ( " gd " ) ;
2014-02-25 12:31:47 +00:00
p_extensions - > push_back ( " gdc " ) ;
2014-06-11 13:41:03 +00:00
p_extensions - > push_back ( " gde " ) ;
2014-02-10 01:10:30 +00:00
}
2017-03-18 23:36:26 +00:00
bool ResourceFormatLoaderGDScript : : handles_type ( const String & p_type ) const {
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
return ( p_type = = " Script " | | p_type = = " GDScript " ) ;
2014-02-10 01:10:30 +00:00
}
String ResourceFormatLoaderGDScript : : get_resource_type ( const String & p_path ) const {
2014-02-25 12:31:47 +00:00
String el = p_path . extension ( ) . to_lower ( ) ;
2017-03-18 23:36:26 +00:00
if ( el = = " gd " | | el = = " gdc " | | el = = " gde " )
2014-02-10 01:10:30 +00:00
return " GDScript " ;
return " " ;
}
2017-03-18 23:36:26 +00:00
Error ResourceFormatSaverGDScript : : save ( const String & p_path , const RES & p_resource , uint32_t p_flags ) {
2014-02-10 01:10:30 +00:00
Ref < GDScript > sqscr = p_resource ;
2017-03-18 23:36:26 +00:00
ERR_FAIL_COND_V ( sqscr . is_null ( ) , ERR_INVALID_PARAMETER ) ;
2014-02-10 01:10:30 +00:00
String source = sqscr - > get_source_code ( ) ;
Error err ;
2017-03-18 23:36:26 +00:00
FileAccess * file = FileAccess : : open ( p_path , FileAccess : : WRITE , & err ) ;
2014-02-10 01:10:30 +00:00
if ( err ) {
2017-03-18 23:36:26 +00:00
ERR_FAIL_COND_V ( err , err ) ;
2014-02-10 01:10:30 +00:00
}
file - > store_string ( source ) ;
2017-03-18 23:36:26 +00:00
if ( file - > get_error ( ) ! = OK & & file - > get_error ( ) ! = ERR_FILE_EOF ) {
2015-03-02 03:54:10 +00:00
memdelete ( file ) ;
return ERR_CANT_CREATE ;
}
2014-02-10 01:10:30 +00:00
file - > close ( ) ;
memdelete ( file ) ;
2016-06-13 13:58:32 +00:00
if ( ScriptServer : : is_reload_scripts_on_save_enabled ( ) ) {
2017-03-18 23:36:26 +00:00
GDScriptLanguage : : get_singleton ( ) - > reload_tool_script ( p_resource , false ) ;
2016-06-13 13:58:32 +00:00
}
2014-02-10 01:10:30 +00:00
return OK ;
}
2017-03-18 23:36:26 +00:00
void ResourceFormatSaverGDScript : : get_recognized_extensions ( const RES & p_resource , List < String > * p_extensions ) const {
2014-02-10 01:10:30 +00:00
if ( p_resource - > cast_to < GDScript > ( ) ) {
p_extensions - > push_back ( " gd " ) ;
}
}
2017-03-18 23:36:26 +00:00
bool ResourceFormatSaverGDScript : : recognize ( const RES & p_resource ) const {
2014-02-10 01:10:30 +00:00
2017-03-18 23:36:26 +00:00
return p_resource - > cast_to < GDScript > ( ) ! = NULL ;
2014-02-10 01:10:30 +00:00
}