static void STD_Map( DaoProcess *proc, DaoValue *p[], int N )
{
DaoInteger idint = {DAO_INTEGER,0,0,0,0,0};
DaoValue *res, *index = (DaoValue*)(void*)&idint;
DaoVmCode *sect = DaoGetSectionCode( proc->activeCode );
DaoMap *map = DaoProcess_PutMap( proc, p[1]->xInteger.value );
daoint i, entry, size = p[0]->xInteger.value;
if( sect == NULL || size < 0 ) return; // TODO exception
if( DaoProcess_PushSectionFrame( proc ) == NULL ) return;
entry = proc->topFrame->entry;
DaoProcess_AcquireCV( proc );
for(i=0; i<size; i++){
idint.value = i;
if( sect->b >0 ) DaoProcess_SetValue( proc, sect->a, index );
proc->topFrame->entry = entry;
DaoProcess_Execute( proc );
if( proc->status == DAO_PROCESS_ABORTED ) break;
res = proc->stackValues[0];
if( res->type == DAO_TUPLE && res->xTuple.size == 2 )
DaoMap_Insert( map, res->xTuple.items[0], res->xTuple.items[1] );
}
DaoProcess_ReleaseCV( proc );
DaoProcess_PopFrame( proc );
}
static void SYS_EnvVars( DaoProcess *proc, DaoValue *p[], int N )
{
#define LOCAL_BUF_SIZE 256
DaoMap *map = DaoProcess_PutMap( proc, 0 );
DaoValue *vk = (DaoValue*) DaoProcess_NewMBString( proc, NULL, 0 );
DaoValue *vv = (DaoValue*) DaoProcess_NewMBString( proc, NULL, 0 );
DString *key = DaoString_Get( DaoValue_CastString( vk ) );
DString *value = DaoString_Get( DaoValue_CastString( vv ) );
char **envs = environ;
char buffer[ LOCAL_BUF_SIZE + 1 ];
int nc = 0;
while( *envs != NULL ){
char *c = *envs;
nc = 0;
while( *c != '=' ){
if( nc >= LOCAL_BUF_SIZE ){
buffer[ nc ] = 0;
DString_AppendMBS( key, buffer );
nc = 0;
}
buffer[ nc ] = *c;
nc ++;
c ++;
}
buffer[ nc ] = 0;
DString_AppendMBS( key, buffer );
c ++;
DString_AppendMBS( value, c );
DaoMap_Insert( map, vk, vv );
DString_Clear( key );
DString_Clear( value );
envs ++;
}
}
