kolibrios/programs/fs/unzip60/macos/source/getenv.c

399 lines
9.2 KiB
C
Raw Normal View History

/*
Copyright (c) 1990-2000 Info-ZIP. All rights reserved.
See the accompanying file LICENSE, version 2000-Apr-09 or later
(the contents of which are also included in zip.h) for terms of use.
If, for some reason, all these files are missing, the Info-ZIP license
also may be found at: ftp://ftp.info-zip.org/pub/infozip/license.html
*/
/*
This file implements the getenv() function.
# Background:
# Under Unix: Each Process (= running Program) has a set of
# associated variables. The variables are called enviroment
# variables and, together, constitute the process environment.
# These variables include the search path, the terminal type,
# and the user's login name.
# Unfortunatelly the MacOS has no equivalent. So we need
# a file to define the environment variables.
# Name of this file is "MacZip.Env". It can be placed
# in the current folder of MacZip or in the
# preference folder of the system disk.
# If MacZip founds the "MacZip.Env" file in the current
# the folder of MacZip the "MacZip.Env" file in the
# preference folder will be ignored.
# An environment variable has a name and a value:
# Name=Value
# Note: Spaces are significant:
# ZIPOPT=-r and
# ZIPOPT = -r are different !!!
*/
/*****************************************************************************/
/* Includes */
/*****************************************************************************/
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <time.h>
#include <unix.h>
#include <Files.h>
#include <Folders.h>
#include "pathname.h"
#include "helpers.h"
/*****************************************************************************/
/* Module level Vars */
/*****************************************************************************/
static char ListAllKeyValues = 0;
static unsigned LineNumber = 0;
static char CompletePath[NAME_MAX];
Boolean IgnoreEnvironment = false; /* used by dialog.c and initfunc.c
of the Mainapp */
/*****************************************************************************/
/* Macros, typedefs */
/*****************************************************************************/
typedef struct _EnviromentPair {
char *key;
char *value;
} EnviromentPair;
#define MAX_COMMAND 1024
/*****************************************************************************/
/* Prototypes */
/*****************************************************************************/
int get_char(FILE *file);
void unget_char(int ch,FILE *file);
int get_string(char *string,int size, FILE *file, char *terms);
void skip_comments(FILE *file);
char *load_entry(FILE *file);
char *getenv(const char *name);
EnviromentPair *ParseLine(char *line);
OSErr FSpFindFolder_Name(short vRefNum, OSType folderType,
Boolean createFolder,FSSpec *spec, unsigned char *name);
FILE * FSp_fopen(ConstFSSpecPtr spec, const char * open_mode);
void ShowAllKeyValues(void);
void Set_LineNum(unsigned ln);
/*****************************************************************************/
/* Functions */
/*****************************************************************************/
/* get_string(str, max, file, termstr) : like fgets() but
* (1) has terminator string which should include \n
* (2) will always leave room for the null
* (3) uses get_char() so LineNumber will be accurate
* (4) returns EOF or terminating character, whichever
*/
int get_string(char *string, int size, FILE *file, char *terms)
{
int ch;
while (EOF != (ch = get_char(file)) && !strchr(terms, ch)) {
if (size > 1) {
*string++ = (char) ch;
size--;
}
}
if (size > 0)
{
*string = '\0';
}
return ch;
}
void Set_LineNum(unsigned ln)
{
LineNumber = ln;
}
/* get_char(file) : like getc() but increment LineNumber on newlines
*/
int get_char(FILE *file)
{
int ch;
ch = getc(file);
if (ch == '\n')
{
Set_LineNum(LineNumber + 1);
}
return ch;
}
/* skip_comments(file) : read past comment (if any)
*/
void skip_comments(FILE *file)
{
int ch;
while (EOF != (ch = get_char(file)))
{
/* ch is now the first character of a line.
*/
while (ch == ' ' || ch == '\t')
{
ch = get_char(file);
}
if (ch == EOF)
{
break;
}
/* ch is now the first non-blank character of a line.
*/
if (ch != '\n' && ch != '#')
{
break;
}
/* ch must be a newline or comment as first non-blank
* character on a line.
*/
while (ch != '\n' && ch != EOF)
{
ch = get_char(file);
}
/* ch is now the newline of a line which we're going to
* ignore.
*/
}
if (ch != EOF)
{
unget_char(ch, file);
}
}
/* unget_char(ch, file) : like ungetc but do LineNumber processing
*/
void unget_char(int ch, FILE *file)
{
ungetc(ch, file);
if (ch == '\n')
{
Set_LineNum(LineNumber - 1);
}
}
/* this function reads one file entry -- the next -- from a file.
* it skips any leading blank lines, ignores comments, and returns
* NULL if for any reason the entry can't be read and parsed.
*/
char *load_entry(FILE *file)
{
int ch;
static char cmd[MAX_COMMAND];
skip_comments(file);
ch = get_string(cmd, MAX_COMMAND, file, "\n");
if (ch == EOF)
{
return NULL;
}
return cmd;
}
EnviromentPair *ParseLine(char *line)
{
char *tmpPtr;
static EnviromentPair *Env;
unsigned short length = strlen(line);
Env->key = "";
Env->value = "";
for (tmpPtr = line; *tmpPtr; tmpPtr++)
{
if (*tmpPtr == '=')
{
*tmpPtr = 0;
Env->key = line;
if (strlen(Env->key) < length)
{
Env->value = ++tmpPtr;
}
return Env;
}
}
return Env;
}
char *getenv(const char *name)
{
FILE *fp;
char *LineStr = NULL;
EnviromentPair *Env1;
FSSpec spec;
OSErr err;
if (IgnoreEnvironment)
return NULL; /* user wants to ignore the environment vars */
if (name == NULL)
return NULL;
GetCompletePath(CompletePath,"MacZip.Env",&spec,&err);
/* try open the file in the current folder */
fp = FSp_fopen(&spec,"r");
if (fp == NULL)
{ /* Okey, lets try open the file in the preference folder */
FSpFindFolder_Name(
kOnSystemDisk,
kPreferencesFolderType,
kDontCreateFolder,
&spec,
"\pMacZip.Env");
fp = FSp_fopen(&spec,"r");
if (fp == NULL)
{
return NULL; /* there is no enviroment-file */
}
}
LineStr = load_entry(fp);
while (LineStr != NULL)
{ /* parse the file line by line */
Env1 = ParseLine(LineStr);
if (strlen(Env1->value) > 0)
{ /* we found a key/value pair */
if (ListAllKeyValues)
printf("\n Line:%3d [%s] = [%s]",LineNumber,Env1->key,Env1->value);
if (stricmp(name,Env1->key) == 0)
{ /* we found the value of a given key */
return Env1->value;
}
}
LineStr = load_entry(fp); /* read next line */
}
fclose(fp);
return NULL;
}
OSErr FSpFindFolder_Name(
short vRefNum, /* Volume reference number. */
OSType folderType, /* Folder type taken by FindFolder. */
Boolean createFolder, /* Should we create it if non-existant. */
FSSpec *spec, /* Pointer to resulting directory. */
unsigned char *name) /* Name of the file in the folder */
{
short foundVRefNum;
long foundDirID;
OSErr err;
err = FindFolder(vRefNum, folderType, createFolder,
&foundVRefNum, &foundDirID);
if (err != noErr)
{
return err;
}
err = FSMakeFSSpec(foundVRefNum, foundDirID, name, spec);
return err;
}
void ShowAllKeyValues(void)
{
OSErr err;
FSSpec spec;
Boolean tmpIgnoreEnvironment = IgnoreEnvironment;
ListAllKeyValues = 1;
IgnoreEnvironment = false;
GetCompletePath(CompletePath,"MacZip.Env",&spec,&err);
if (err != 0)
{ /* Okey, lets try open the file in the preference folder */
FSpFindFolder_Name(
kOnSystemDisk,
kPreferencesFolderType,
kDontCreateFolder,
&spec,
"\pMacZip.Env");
GetFullPathFromSpec(CompletePath,&spec, &err);
if (err != 0)
{
return; /* there is no enviroment-file */
}
}
printf("\nLocation of the current \"MacZip.Env\" file:\n [%s]",CompletePath);
printf("\n\nList of all environment variables\n");
getenv(" ");
printf("\n\nEnd\n\n");
/* restore used variables */
ListAllKeyValues = 0;
LineNumber = 0;
IgnoreEnvironment = tmpIgnoreEnvironment;
}