ScanVars() usage examples.

	Bottom Previous Topic Next Topic
Register To Post

JosDuchIt

Posted on: 2015/7/27 13:59 #1

Just can't stay away

I did find references to

SourceForge ABC-shell's environ.c
and AROS __env_get_environ()
using ScanVars to get hold of subsets (i hope) or the env variables.

I would be glad to be able to consult them, as both are open-source initiatives can somebody point me to a download URL ?

xenic

Re: ScanVars() usage examples.

Posted on: 2015/7/27 17:02 #2

Just can't stay away

@JosDuchIt
Sourceforge had a catastrophic system failure about 12 days ago. They have been slowly restoring services ever since. Subversion repositories have been fully restored but their latest status indicates that they are still in the process of restoring CVS services so CVS projects like abc-shell & others don't have the sourcecode restored yet.

ABC-shell is at: https://sourceforge.net/projects/abc-shell/?source=directory

Once the Sourceforge restoration is complete you should be able to go to that page and click the big blue "Browse Code" button to see & download the file you need.

As far as AROS system sources, the AROS project is on Sourceforge but the sources are not publicly accessible. If I remember correctly, during the court battle of who owns AmigaOS sources the AROS team was forced to limit access to the sources to AROS system developers. I could be wrong but I think that's the case.

Old "make" and "abc-shell" sources were included in SDK 51.22 and the make sources also have scanvars routines.

Amiga X1000 with 2GB memory & OS 4.1FE + Radeon HD 5450

broadblues

Re: ScanVars() usage examples.

Posted on: 2015/7/27 19:45 #3

Home away from home

abc-shell environ routines that use ScanVars to scan the global variables or the local varaiables only when a specific car is set (that enables nested shells to inherit from the parent not the global state).


#include "sh.h"

#include <exec/memory.h>

#include <dos/dos.h>

#include <dos/var.h>

#include <utility/hooks.h>

#include <proto/exec.h>

#include <proto/dos.h>

#include <proto/utility.h>



char **environ = NULL;





#if defined(__amigaos4__)



#define MAX_ENV_SIZE 1024  /* maximum number of environ entries */



#ifdef AUTOINIT

#ifdef __GNUC__

void ___makeenviron() __attribute__((constructor));

void ___freeenviron() __attribute__((destructor));

#endif

#ifdef __VBCC__

#define ___makeenviron() _INIT_9_makeenviron()

#define ___freeenviron() _EXIT_9_makeenviron()

#endif

#endif





uint32

copy_env(struct Hook *hook, APTR userdata, struct ScanVarsMsg *message)

{

        static uint32 env_size = 1;  /* environ is null terminated */



        if(strlen(message->sv_GDir) <= 4)

        {

                if ( env_size == MAX_ENV_SIZE )

                {

                        return 0;

                }



                char **env = (char **)hook->h_Data;

                uint32 size = strlen(message->sv_Name) + 1 + message->sv_VarLen + 1 + 1;

                char *buffer=(char *)malloc(size);

                if ( buffer == NULL )

                {

                        return 0;

                }



                ++env_size;



                snprintf(buffer,size-1,"%s=%s", message->sv_Name, message->sv_Var);



                *env  = buffer;

                env++;

                hook->h_Data = env;

        }



        return 0;

}



void

___makeenviron()

{

        char varbuf[8];

        uint32 flags=0;

        size_t environ_size=MAX_ENV_SIZE * sizeof(char*);



        if(GetVar("ABCSH_IMPORT_LOCAL",varbuf,sizeof(varbuf),GVF_LOCAL_ONLY) > 0)

        {

            flags = GVF_LOCAL_ONLY;

        }

        else

        {

            flags = GVF_GLOBAL_ONLY;

        }



        environ = (char **)malloc(environ_size);

        if (!environ)

        {

                return;

        }



        memset(environ, 0, environ_size);



        struct Hook hook;

        memset(&hook, 0, sizeof(struct Hook));

        hook.h_Entry = copy_env;

        hook.h_Data = environ;



        ScanVars(&hook, flags, 0);

}



void

___freeenviron()

{

        if ( environ != NULL )

        {

                char **i;

                for ( i = environ; *i != NULL; i++ )

                {

                        free(*i);

                        *i = NULL;

                }



                free(environ);

                environ = NULL;

        }

}

#endif

Blender For OS4.x : Blues : Walker Broad

terminills

Re: ScanVars() usage examples.

Posted on: 2015/7/28 4:45 #4

Just popping in

@JosDuchIt

http://aros.sourceforge.net/nightly1.php

First 3 are source archives.

or here

http://repo.or.cz/w/AROS.git

JosDuchIt

Re: ScanVars() usage examples.

Posted on: 2015/7/28 12:52 #5

Just can't stay away

@xenix
thanks for links , infortunately
the ABC-shell link (sourceforge) does not work for me (error msg "unable to open" the file
The oldest SDK i have are those presently still on the Hyperion site (53.13)
@broadblues Thanks for the ABC-shell functions

I modified it & compiled it to print the env variables.

Edited by JosDuchIt on 2015/7/28 13:27:46
Edited by JosDuchIt on 2015/7/28 18:33:55

Register To Post
	Top Previous Topic Next Topic

Currently Active Users Viewing This Thread: 1 ( 0 members and 1 Anonymous Users )