---

source.c File Reference

#include "lclintMacros.nf"
#include "llbasic.h"
#include "osd.h"
#include "portab.h"

Go to the source code of this file.

Functions
bool	tsource_close (tsource *s)
void	tsource_free ( tsource *s)
tsource*	tsource_create (char *name, char *suffix, bool echo)
tsource*	tsource_fromString (char *name, char *str)
char*	tsource_nextLine (tsource *s)
bool	tsource_open (tsource *s)
bool	tsource_getPath (char *path, tsource *s)
char*	specFullName (char *specfile, char **inpath)

---

Function Documentation

char * specFullName ( char * specfile, char ** inpath )

Definition at line 263 of file source.c. { /* extract the path and the specname associated with the given file */ char *specname = (char *) dmalloc (sizeof (*specname) * (strlen (specfile) + 9)); char *ospecname = specname; char *path = (char *) dmalloc (sizeof (*path) * (strlen (specfile))); size_t size; long int i, j; /* initialized path to empty string or may have accidental garbage */ *path = '\0'; /*@-mayaliasunique@*/ strcpy (specname, specfile); /*@=mayaliasunique@*/ /* trim off pathnames in specfile */ size = strlen (specname); for (i = size_toInt (size) - 1; i >= 0; i--) { if (specname[i] == CONNECTCHAR) { /* strcpy (specname, (char *)specname+i+1); */ for (j = 0; j <= i; j++) /* include '/' */ { path[j] = specname[j]; } path[i + 1] = '\0'; specname += i + 1; break; } } /* ** also remove .lcl file extension, assume it's the last extension ** of the file name */ size = strlen (specname); for (i = size_toInt (size) - 1; i >= 0; i--) { if (specname[i] == '.') { specname[i] = '\0'; break; } } *inpath = path; /* ** If specname no longer points to the original char, ** we need to allocate a new pointer and copy the string. */ if (specname != ospecname) { char *rspecname = (char *) dmalloc (sizeof (*rspecname) * (strlen (specname) + 1)); strcpy (rspecname, specname); /* evs 2000-05-16: Bug: was ospecname! */ sfree (ospecname); return rspecname; } return specname; }

bool tsource_close ( tsource * s )

Definition at line 53 of file source.c. Referenced by main(), parseOpLine(), parseSignatures(), and processImport(). { if (s->file != NULL) { check (fclose (s->file) == 0); s->file = NULL; return TRUE; } return FALSE; }

tsource * tsource_create ( char * name, char * suffix, bool echo )

Definition at line 77 of file source.c. Referenced by main(), parseSignatures(), and processImport(). { char *ps; tsource *s = (tsource *) dmalloc (sizeof (*s)); s->name = (char *) dmalloc (strlen (name) + strlen (suffix) + 1); s->file = 0; strcpy (s->name, name); ps = strrchr (s->name, CONNECTCHAR); if (ps == (char *) 0) { ps = s->name; } if (strchr (ps, '.') == NULL) { strcat (s->name, suffix); } s->lineNo = 0; s->echo = echo; s->fromString = FALSE; s->stringSource = NULL; s->stringSourceTail = NULL; return s; }

void tsource_free ( tsource * s )

Definition at line 66 of file source.c. Referenced by parseOpLine(), parseSignatures(), and processImport(). { if (s != NULL) { sfree (s->name); sfree (s->stringSource); sfree (s); } }

tsource * tsource_fromString ( char * name, char * str )

Definition at line 111 of file source.c. Referenced by parseOpLine(). { tsource *s = (tsource *) dmalloc (sizeof (*s)); s->name = mstring_copy (name); s->stringSource = mstring_copy (str); s->stringSourceTail = s->stringSource; s->file = 0; s->echo = FALSE; s->fromString = TRUE; s->lineNo = 0; return s; }

bool tsource_getPath ( char * path, tsource * s )

Definition at line 223 of file source.c. Referenced by parseSignatures(). { char *returnPath; filestatus status; /* return status of osd_getEnvPath.*/ bool rVal; /* return value of this procedure. */ /* Check if requires met. */ if (path == NULL || s == NULL || s->name == NULL) { llbugexitlit ("tsource_getPath: invalid parameter"); } status = osd_getPath (path, s->name, &returnPath); if (status == OSD_FILEFOUND) { /* Should be majority of cases. */ rVal = TRUE; sfree (s->name); s->name = returnPath; } else if (status == OSD_FILENOTFOUND) { rVal = FALSE; } else if (status == OSD_PATHTOOLONG) { rVal = FALSE; /* Directory and filename are too long. Report error. */ llbuglit ("soure_getPath: Filename plus directory from search path too long"); } else { rVal = FALSE; llbuglit ("tsource_getPath: invalid return status"); } return rVal; }

char * tsource_nextLine ( tsource * s )

Definition at line 127 of file source.c. Referenced by LCLScanNextToken(), LSLScanNextToken(), processImport(), sort_import(), and symtable_import(). { char *currentLine; int len; if (s->fromString) { if (s->stringSourceTail == NULL || (strlen (s->stringSourceTail) == 0)) { currentLine = 0; } else { char *c = strchr (s->stringSourceTail, '\n'); /* in case line is terminated not by newline */ if (c == 0) { c = strchr (s->stringSourceTail, '\0'); } len = c - s->stringSourceTail + 1; if (len > STUBMAXRECORDSIZE - 2) { len = (STUBMAXRECORDSIZE - 2); } currentLine = &(s->buffer)[0]; strncpy (currentLine, s->stringSourceTail, size_fromInt (len)); currentLine[len] = '\0'; s->stringSourceTail += len; } } else { llassert (s->file != NULL); currentLine = fgets (&(s->buffer)[0], STUBMAXRECORDSIZE, s->file); } if (currentLine == 0) { strcpy (s->buffer, "*** End of File ***"); } else { s->lineNo++; len = strlen (currentLine) - 1; if (s->buffer[len] == '\n') { s->buffer[len] = '\0'; } else { if (len >= STUBMAXRECORDSIZE - 2) { lldiagmsg (message ("Input line too long: %s", cstring_fromChars (currentLine))); } } } /* if (s->echo) slo_echoLine (currentLine); only needed in LCL */ return currentLine; }

bool tsource_open ( tsource * s )

Definition at line 194 of file source.c. Referenced by main(), parseSignatures(), and processImport(). { if (s->fromString) { /* not an error: tail is dependent */ s->stringSourceTail = s->stringSource; return TRUE; } DPRINTF (("Open: %s", s->name)); s->file = fopen (s->name, "r"); return (s->file != 0 || s->fromString); }

---