コード例 #1
0
int Get_SLD_FileNo(char *ThisName)
{
    SYMBOL	sym;
    SYMBOL	*theSym;
    int n;
    int len;

    len = strlen(ThisName);

    for (n=0; n<len; n++)
    {
        if (ThisName[n] == '/')
            ThisName[n] = '\\';
    }

    theSym = FindSymbolsOld(ThisName,section_SLD_File,section_SLD_File);

    if (theSym)
        return theSym->Value;

    sym.Section		= section_SLD_File;
    sym.Type		= LocalScope;				// Was 0
    sym.Value		= Current_SLD_FileNo++;
    sym.LocalScope	= 0;

    StoreSymbol(&sym,ThisName);
    return Current_SLD_FileNo - 1;
}
コード例 #2
0
SYMBOL * AddSysCall(char *ThisName, int Value, int Param, int RetType, char *istr)
{
    SYMBOL	sym;
    SYMBOL	*theSym;
    char	*iptr = 0;
    int		len;

    theSym = FindSymbolsOld(ThisName,section_SysCall,section_SysCall);

    if (theSym)
        Error(Error_Fatal, "SysCall '%s' has already been defined", ThisName);

    if (istr)
    {
        len = strlen(istr);
        iptr = NewPtr(len + 2);

        if (!iptr)
            Error(Error_Fatal, "failed to allocate syscall interface");

        strcpy(iptr, istr);
    }

    sym.Section		= section_SysCall;
    sym.Type		= 0;
    sym.Value		= Value;
    sym.LocalScope	= 0;
    sym.Params		= Param;
    sym.RetType		= RetType;
    sym.Interface	= iptr;

    return	StoreSymbol(&sym,ThisName);
}
コード例 #3
0
SYMBOL * RedefENumString(char *ThisName, char *str)
{
    SYMBOL	sym;
    SYMBOL	*theSym;

    theSym = FindSymbolsOld(ThisName,section_Script,section_Script);

    if (theSym)
    {
        // Allow redefinition

        theSym->Interface = CreateRedefString(str, theSym->Interface);

        if (isdigit(*str))
            theSym->Value = atoi(str);

        return theSym;
    }

    // Create new string

    sym.Section		= section_Script;
    sym.Type		= 0;
    sym.Value		= 0;
    sym.LocalScope	= 0;
    sym.Interface	= CreateRedefString(str, 0);

    if (isdigit(*str))
        sym.Value = atoi(str);

    return	StoreSymbol(&sym,ThisName);
}
コード例 #4
0
SYMBOL * RedefENum(char *ThisName,int Value)
{
    SYMBOL	sym;
    SYMBOL	*theSym;
    char	str[32];

    // Build string

    sprintf(str, "%i", Value);

    // see if the symbols exists

    theSym = FindSymbolsOld(ThisName,section_Script,section_Script);

    if (theSym)
    {
        // Allow redefinition

        theSym->Value = Value;
        theSym->Interface = CreateRedefString(str, theSym->Interface);
        return theSym;
    }

    sym.Section		= section_Script;
    sym.Type		= 0;
    sym.Value		= Value;
    sym.LocalScope	= 0;
    sym.Interface	= CreateRedefString(str, 0);

    return	StoreSymbol(&sym,ThisName);
}
コード例 #5
0
ファイル: CppRebuild.c プロジェクト: JennYung/MoSync
void CppForceSysCallUsed(char *name)
{
	SYMBOL	*sym;

	sym = FindSymbolsOld(name,section_SysCall,section_SysCall);

	if (!sym)
		return;

	CppSyscallUsed[sym->Value]++;
}
コード例 #6
0
int SymbolExists(char *ThisName, int sect, int scope)
{
    SYMBOL	*theSym;

    if (scope != -1)
        theSym = FindSymbols(ThisName, sect, sect, scope);
    else
        theSym = FindSymbolsOld(ThisName, sect, sect);

    if (theSym)
        return 1;

    return 0;
}
コード例 #7
0
SYMBOL * AddToken(char *ThisName,int Value)
{
    SYMBOL	sym;
    SYMBOL	*theSym;

    theSym = FindSymbolsOld(ThisName,section_Token,section_Token);

    if (theSym)
        Error(Error_Fatal, "Token '%s' has already been defined", ThisName);

//	printf("Token '%s' = %d\n", ThisName, Value);

    sym.Section		= section_Token;
    sym.Type		= 0;
    sym.Value		= Value;
    sym.LocalScope	= 0;

    return	StoreSymbol(&sym,ThisName);
}
コード例 #8
0
ファイル: rescomp.c プロジェクト: AliSayed/MoSync
void MakeIndexedResource(char *name, int index)
{
	SYMBOL	*Sym;
	SYMBOL	sym;

	if (name[0] == 0)
		return;

	Sym = FindSymbolsOld(name,section_Resource,section_Resource);

	if (Sym)
	{
		Error(Error_Skip, "Symbol '%s' is already defined",name);
		return;
	}

	sym.Section		= section_Resource;
	sym.Type		= 0;
	sym.Value		= index;

	StoreSymbol(&sym,name);
}
コード例 #9
0
ファイル: rescomp.c プロジェクト: AliSayed/MoSync
void MakeNewResource(char *name)
{
	SYMBOL	*Sym;
	SYMBOL	sym;

	if (name[0] == 0)
		return;

	Sym = FindSymbolsOld(name,section_Resource,section_Resource);

	// Symbol found

	if (Sym)
	{
		if (Pass == 1)
			Error(Error_Skip, "Symbol '%s' is already defined",name);

		Sym->Value	= CurrentResource;
		return;
	}

	// Symbol not found

	if (Pass == 2)
	{
		Error(Error_Skip, "Strange error symbol '%s' defined in second pass",name);
		return;
	}

	sym.Section		= section_Resource;
	sym.Type		= 0;
	sym.Value		= CurrentResource;
	sym.LocalScope	= LocalScope;

	StoreSymbol(&sym,name);
}