ERR_Location PERR_lowerLocation(PERR_Location pLocation)
{
PERR_StrCon pFilename = PERR_getLocationFilename(pLocation);
char *filename = strdup(PERR_lowerStrCon(pFilename));
ERR_Location location;
if (PERR_isLocationAreaInFile(pLocation)) {
PERR_Area pArea = PERR_getLocationArea(pLocation);
ERR_Area area = PERR_lowerArea(pArea);
location = ERR_makeLocationAreaInFile(filename, area);
}
else {
location = ERR_makeLocationFile(filename);
}
free(filename);
return location;
}
/**
* Returns the current positional information from the input string.
*
* \param inputString the input string.
*
* \return the current positional information from the input string.
*/
ERR_Location IS_currentPosInfo(InputString inputString) {
ERR_Location location;
ERR_Area area;
area = ERR_makeAreaArea(IS_getLinesRead(inputString),
IS_getColumnsRead(inputString),
IS_getLinesRead(inputString),
IS_getColumnsRead(inputString),
IS_getNumberOfTokensRead(inputString),
0);
if (IS_getPath(inputString) == NULL) {
location = ERR_makeLocationArea(area);
}
else {
location = ERR_makeLocationAreaInFile(IS_getPath(inputString), area);
}
return location;
}
