globle void ClearCommand(
void *theEnv)
{
if (EnvArgCountCheck(theEnv,"clear",EXACTLY,0) == -1) return;
EnvClear(theEnv);
return;
}
nsresult
nsPrintJobVMSCmdPS::FinishSubmission()
{
NS_PRECONDITION(GetDestHandle(), "No destination file handle");
NS_PRECONDITION(!GetDestination().IsEmpty(), "No destination");
/* Close the temporary file handle */
fclose(GetDestHandle());
SetDestHandle(nsnull);
/* construct the print command */
nsCAutoString printFileName;
nsresult rv = mTempFile->GetNativePath(printFileName);
if (NS_SUCCEEDED(rv)) {
nsCAutoString cmd(GetDestination());
cmd += " "; cmd += printFileName; cmd += ".";
/* Set up the environment. */
if (PR_SUCCESS != EnvLock())
return NS_ERROR_OUT_OF_MEMORY;
if (!mPrinterName.IsEmpty())
EnvSetPrinter(mPrinterName);
/* Run the print command */
int presult = system(cmd.get());
/* Clean up */
EnvClear();
mTempFile->Remove(PR_FALSE);
rv = (!WIFEXITED(presult) || (EXIT_SUCCESS != WEXITSTATUS(presult)))
? NS_ERROR_GFX_PRINTER_CMD_FAILURE : NS_OK;
}
return rv;
}
void ClearCommand(
UDFContext *context,
CLIPSValue *returnValue)
{
EnvClear(UDFContextEnvironment(context));
return;
}
globle void ClearCommand(
void *theEnv,
EXEC_STATUS)
{
if (EnvArgCountCheck(theEnv,execStatus,"clear",EXACTLY,0) == -1) return;
EnvClear(theEnv,execStatus);
return;
}
/**
* Launch the print command using popen(), then copy the print job data
* to the pipe. See nsIPrintJobPS.h and nsPrintJobPS.h for details.
*/
nsresult
nsPrintJobPipePS::StartSubmission(FILE **aHandle)
{
NS_PRECONDITION(aHandle, "aHandle is NULL");
NS_PRECONDITION(!GetDestination().IsEmpty(), "No destination");
NS_PRECONDITION(!GetDestHandle(), "Already have a destination handle");
if (PR_SUCCESS != EnvLock())
return NS_ERROR_OUT_OF_MEMORY; // Couldn't allocate the object?
if (!mPrinterName.IsEmpty())
EnvSetPrinter(mPrinterName);
FILE *destPipe = popen(GetDestination().get(), "w");
EnvClear();
if (!destPipe)
return NS_ERROR_GFX_PRINTER_CMD_FAILURE;
SetDestHandle(destPipe);
*aHandle = destPipe;
return NS_OK;
}
globle void Clear()
{
EnvClear(GetCurrentEnvironment());
}
static void EnvInitializeEnvironment(
void *vtheEnvironment,
struct symbolHashNode **symbolTable,
struct floatHashNode **floatTable,
struct integerHashNode **integerTable,
struct bitMapHashNode **bitmapTable,
struct externalAddressHashNode **externalAddressTable)
{
struct environmentData *theEnvironment = (struct environmentData *) vtheEnvironment;
/*================================================*/
/* Don't allow the initialization to occur twice. */
/*================================================*/
if (theEnvironment->initialized) return;
/*================================*/
/* Initialize the memory manager. */
/*================================*/
InitializeMemory(theEnvironment);
/*===================================================*/
/* Initialize environment data for various features. */
/*===================================================*/
InitializeCommandLineData(theEnvironment);
#if CONSTRUCT_COMPILER && (! RUN_TIME)
InitializeConstructCompilerData(theEnvironment);
#endif
InitializeConstructData(theEnvironment);
InitializeEvaluationData(theEnvironment);
InitializeExternalFunctionData(theEnvironment);
InitializePrettyPrintData(theEnvironment);
InitializePrintUtilityData(theEnvironment);
InitializeScannerData(theEnvironment);
InitializeSystemDependentData(theEnvironment);
InitializeUserDataData(theEnvironment);
InitializeUtilityData(theEnvironment);
#if DEBUGGING_FUNCTIONS
InitializeWatchData(theEnvironment);
#endif
/*===============================================*/
/* Initialize the hash tables for atomic values. */
/*===============================================*/
InitializeAtomTables(theEnvironment,symbolTable,floatTable,integerTable,bitmapTable,externalAddressTable);
/*=========================================*/
/* Initialize file and string I/O routers. */
/*=========================================*/
InitializeDefaultRouters(theEnvironment);
/*=========================================================*/
/* Initialize some system dependent features such as time. */
/*=========================================================*/
InitializeNonportableFeatures(theEnvironment);
/*=============================================*/
/* Register system and user defined functions. */
/*=============================================*/
SystemFunctionDefinitions(theEnvironment);
UserFunctions();
EnvUserFunctions(theEnvironment);
/*====================================*/
/* Initialize the constraint manager. */
/*====================================*/
InitializeConstraints(theEnvironment);
/*==========================================*/
/* Initialize the expression hash table and */
/* pointers to specific functions. */
/*==========================================*/
InitExpressionData(theEnvironment);
/*===================================*/
/* Initialize the construct manager. */
/*===================================*/
#if ! RUN_TIME
InitializeConstructs(theEnvironment);
#endif
/*=====================================*/
/* Initialize the defmodule construct. */
/*=====================================*/
AllocateDefmoduleGlobals(theEnvironment);
/*===================================*/
/* Initialize the defrule construct. */
/*===================================*/
#if DEFRULE_CONSTRUCT
InitializeDefrules(theEnvironment);
#endif
/*====================================*/
/* Initialize the deffacts construct. */
/*====================================*/
#if DEFFACTS_CONSTRUCT
InitializeDeffacts(theEnvironment);
#endif
/*=====================================================*/
/* Initialize the defgeneric and defmethod constructs. */
/*=====================================================*/
#if DEFGENERIC_CONSTRUCT
SetupGenericFunctions(theEnvironment);
#endif
/*=======================================*/
/* Initialize the deffunction construct. */
/*=======================================*/
#if DEFFUNCTION_CONSTRUCT
SetupDeffunctions(theEnvironment);
#endif
/*=====================================*/
/* Initialize the defglobal construct. */
/*=====================================*/
#if DEFGLOBAL_CONSTRUCT
InitializeDefglobals(theEnvironment);
#endif
/*=======================================*/
/* Initialize the deftemplate construct. */
/*=======================================*/
#if DEFTEMPLATE_CONSTRUCT
InitializeDeftemplates(theEnvironment);
#endif
/*=============================*/
/* Initialize COOL constructs. */
/*=============================*/
#if OBJECT_SYSTEM
SetupObjectSystem(theEnvironment);
#endif
/*=====================================*/
/* Initialize the defmodule construct. */
/*=====================================*/
InitializeDefmodules(theEnvironment);
/*======================================================*/
/* Register commands and functions for development use. */
/*======================================================*/
#if DEVELOPER
DeveloperCommands(theEnvironment);
#endif
/*=========================================*/
/* Install the special function primitives */
/* used by procedural code in constructs. */
/*=========================================*/
InstallProcedurePrimitives(theEnvironment);
/*==============================================*/
/* Install keywords in the symbol table so that */
/* they are available for command completion. */
/*==============================================*/
InitializeKeywords(theEnvironment);
/*========================*/
/* Issue a clear command. */
/*========================*/
EnvClear(theEnvironment);
/*=============================*/
/* Initialization is complete. */
/*=============================*/
theEnvironment->initialized = TRUE;
}
void __declspec(dllexport) CALL_CONV __EnvClear(
void *theEnv)
{
EnvClear(theEnv);
}
globle void Clear(EXEC_STATUS)
{
EnvClear(GetCurrentEnvironment(),execStatus);
}
