/****pkintextinsert()******************************************************/
void pkintextinsert(char string[256])
{
if (Lquiet == 0)
{
TEInsert(string,strlen(string), textText);
mactextselect = (*textText)->selEnd;
}
}
/****inserttexts()******************************************************/
void inserttexts(char string[256], int replace)
{
if (Lquiet == 0)
{
replace = replace;
TEInsert(string,strlen(string), textText);
}
}
/* append text at the end of a TextEdit window
*/
void NATEappend(na_win *winp, char *data, long len)
{
TEHandle hTE = ((nate_win*) winp)->hTE;
TESetSelect(32767, 32767, hTE);
TEInsert(data, len, hTE);
TESelView(hTE);
NATEsetscroll(winp, false, (Rect*) NULL, (Rect*) NULL);
}
/****pkintextreplace()******************************************************/
void pkintextreplace(char string[256])
{
long newend;
if (Lquiet == 0)
{
newend = (*textText)->selEnd;
TESetSelect(mactextselect,newend,textText);
TEDelete(textText);
TEInsert(string,strlen(string), textText);
}
}
static void PrintDocStr(char str[])
{
if( (**gDocTE).teLength > 10000) /* clear first half*/
{
TESetSelect(0, 5000, gDocTE);
TEDelete(gDocTE);
}
TESetSelect((**gDocTE).teLength, (**gDocTE).teLength, gDocTE); /* move to end*/
TEInsert(str, strlen(str), gDocTE);
TESelView(gDocTE);
}
static PyObject *TEObj_TEInsert(TEObject *_self, PyObject *_args)
{
PyObject *_res = NULL;
char *text__in__;
long text__len__;
int text__in_len__;
#ifndef TEInsert
PyMac_PRECHECK(TEInsert);
#endif
if (!PyArg_ParseTuple(_args, "s#",
&text__in__, &text__in_len__))
return NULL;
text__len__ = text__in_len__;
TEInsert(text__in__, text__len__,
_self->ob_itself);
Py_INCREF(Py_None);
_res = Py_None;
return _res;
}
static void PrintLogStr(char str[])
{
int len=strlen(str);
if( !mac_LogWindow.show ) return;
if( (**gLogTE).teLength > 10000) /* clear first half*/
{
TEFeatureFlag(teFAutoScroll, teBitClear, gLogTE);
TESetSelect(0, 5000, gLogTE);
TEDelete(gLogTE);
}
TESetSelect((**gLogTE).teLength, (**gLogTE).teLength, gLogTE); /* move to end*/
if( len>=1 && str[len-1]=='\n' ){
str[len-1]=0; len--; //convert dos return code to mac's
}
TEInsert(str, len, gLogTE);
TESelView(gLogTE);
TEFeatureFlag(teFAutoScroll, teBitSet, gLogTE);
}
OSErr
RunAllXPIs(short xpiVRefNum, long xpiDirID, short vRefNum, long dirID)
{
OSErr err = noErr;
FSSpec tgtDirSpec, xpiStubDirSpec, xpiSpec;
XPI_InitProc xpi_initProc;
XPI_InstallProc xpi_installProc;
XPI_ExitProc xpi_exitProc;
CFragConnectionID connID;
nsresult rv = NS_OK;
StringPtr pcurrArchive;
int i, len, compsDone = 0, numXPIs, currXPICount = 0, instChoice = gControls->opt->instChoice-1;
Boolean isCurrXPI = false, indeterminateFlag = false;
Str255 installingStr, msg;
StringPtr pTargetSubfolder = "\p"; /* subfolder is optional so init empty */
long dummyDirID = 0;
err = FSMakeFSSpec(vRefNum, dirID, kViewerFolder, &xpiStubDirSpec); /* xpistub dir */
if (gControls->cfg->targetSubfolder)
{
HLock(gControls->cfg->targetSubfolder);
if (*gControls->cfg->targetSubfolder)
pTargetSubfolder = CToPascal(*gControls->cfg->targetSubfolder);
HUnlock(gControls->cfg->targetSubfolder);
}
err = FSMakeFSSpec(gControls->opt->vRefNum, gControls->opt->dirID, /* program dir */
pTargetSubfolder, &tgtDirSpec);
if (err == fnfErr)
err = FSpDirCreate(&tgtDirSpec, smSystemScript, &dummyDirID);
if (err != noErr)
{
ErrorHandler(err, nil);
return err;
}
ERR_CHECK_MSG(LoadXPIStub(&xpi_initProc, &xpi_installProc, &xpi_exitProc, &connID, xpiStubDirSpec, msg), err, msg);
XPI_ERR_CHECK(xpi_initProc( xpiStubDirSpec, tgtDirSpec, NULL, xpicbProgress ));
// init overall xpi indicator
numXPIs = CountSelectedXPIs();
if (gControls->tw->allProgressBar)
{
SetControlMaximum(gControls->tw->allProgressBar, numXPIs*2); // numXPIs * 2 so that prog bar moves more
SetControlData(gControls->tw->allProgressBar, kControlNoPart, kControlProgressBarIndeterminateTag,
sizeof(indeterminateFlag), (Ptr) &indeterminateFlag);
SetControlValue(gControls->tw->allProgressBar, 0);
Draw1Control(gControls->tw->allProgressBar);
}
if (gControls->tw->xpiProgressBar)
ShowControl(gControls->tw->xpiProgressBar);
// enumerate through all .xpi's
// loop through 0 to kMaxComponents
for(i=0; i<kMaxComponents; i++)
{
BreathFunc();
// general test: if component in setup type
if ( (gControls->cfg->st[instChoice].comp[i] == kInSetupType) &&
(compsDone < gControls->cfg->st[instChoice].numComps) )
{
// if custom and selected, or not custom setup type
// add file to buffer
if ( ((instChoice == gControls->cfg->numSetupTypes-1) &&
(gControls->cfg->comp[i].selected == true)) ||
(instChoice < gControls->cfg->numSetupTypes-1) )
{
// if LAUNCHAPP and DOWNLOAD_ONLY attr wasn't set
if (!gControls->cfg->comp[i].launchapp && !gControls->cfg->comp[i].download_only)
{
HLock(gControls->cfg->comp[i].archive);
pcurrArchive = CToPascal(*gControls->cfg->comp[i].archive);
HUnlock(gControls->cfg->comp[i].archive);
isCurrXPI = IsArchiveXPI(pcurrArchive);
err = FSMakeFSSpec(xpiVRefNum, xpiDirID, pcurrArchive, &xpiSpec);
if (err==noErr && isCurrXPI)
{
// update package display name
if (gControls->tw->allProgressMsg)
{
ProgressMsgInit();
GetResourcedString(installingStr, rInstList, sInstalling);
TEInsert(&installingStr[1], installingStr[0], gControls->tw->allProgressMsg);
HLock(gControls->cfg->comp[i].shortDesc);
len = strlen(*gControls->cfg->comp[i].shortDesc);
TEInsert(*gControls->cfg->comp[i].shortDesc, (len>64?64:len), gControls->tw->allProgressMsg);
HUnlock(gControls->cfg->comp[i].shortDesc);
}
err = RunXPI(xpiSpec, &xpi_installProc);
BreathFunc();
if (err != NS_OK)
break;
// update progess bar
if (gControls->tw->allProgressBar)
SetControlValue(gControls->tw->allProgressBar,
GetControlValue(gControls->tw->allProgressBar)+1);
}
if (pcurrArchive)
DisposePtr((Ptr) pcurrArchive);
}
compsDone++;
}
}
else if (compsDone >= gControls->cfg->st[instChoice].numComps)
break;
}
xpi_exitProc();
UnloadXPIStub(&connID);
if (pTargetSubfolder)
DisposePtr((Ptr)pTargetSubfolder);
return err;
}
void
xpicbProgress(const char* msg, PRInt32 val, PRInt32 max)
{
Boolean indeterminateFlag = false;
Rect r;
Str255 installingStr, fileStr, ofStr;
char *valStr, *maxStr, *leaf;
StringPtr pleaf = nil;
long last;
GrafPtr oldPort;
GetPort(&oldPort);
if (gWPtr)
{
SetPort(gWPtr);
if (gControls->tw->xpiProgressBar)
{
if (!bProgMsgInit)
ProgressMsgInit();
if (max!=0 && !bMaxDiscovered)
{
SetControlData(gControls->tw->xpiProgressBar, kControlNoPart, kControlProgressBarIndeterminateTag,
sizeof(indeterminateFlag), (Ptr) &indeterminateFlag);
SetControlMaximum(gControls->tw->xpiProgressBar, max);
if (gControls->tw->allProgressBar)
SetControlValue(gControls->tw->allProgressBar,
GetControlValue(gControls->tw->allProgressBar)+1);
bMaxDiscovered = true;
}
else if (!bMaxDiscovered)
{
if (gWPtr)
IdleControls(gWPtr);
if (gControls->tw->xpiProgressMsg)
{
HLock((Handle)gControls->tw->xpiProgressMsg);
SetRect(&r, (*gControls->tw->xpiProgressMsg)->viewRect.left,
(*gControls->tw->xpiProgressMsg)->viewRect.top,
(*gControls->tw->xpiProgressMsg)->viewRect.right,
(*gControls->tw->xpiProgressMsg)->viewRect.bottom );
HUnlock((Handle)gControls->tw->xpiProgressMsg);
if (msg)
{
EraseRect(&r);
GetResourcedString(installingStr, rInstList, sProcessing);
leaf = strrchr(msg, ':');
if (leaf)
{
pleaf = CToPascal(leaf+1);
pstrcat(installingStr, pleaf);
}
else
{
installingStr[0] = 1;
installingStr[1] = ' ';
}
last = installingStr[0] + 1;
if (last > 255)
last = 255;
installingStr[last] = 0;
if (installingStr[0] > 0)
TESetText(&installingStr[1], installingStr[0], gControls->tw->xpiProgressMsg);
TEUpdate(&r, gControls->tw->xpiProgressMsg);
if (pleaf)
DisposePtr((Ptr) pleaf);
}
}
}
if (bMaxDiscovered)
{
SetControlValue(gControls->tw->xpiProgressBar, val);
if (gControls->tw->xpiProgressMsg)
{
GetResourcedString(installingStr, rInstList, sProcessing);
GetResourcedString(fileStr, rInstList, sFileSp);
GetResourcedString(ofStr, rInstList, sSpOfSp);
HLock((Handle)gControls->tw->xpiProgressMsg);
SetRect(&r, (*gControls->tw->xpiProgressMsg)->viewRect.left,
(*gControls->tw->xpiProgressMsg)->viewRect.top,
(*gControls->tw->xpiProgressMsg)->viewRect.right,
(*gControls->tw->xpiProgressMsg)->viewRect.bottom );
HUnlock((Handle)gControls->tw->xpiProgressMsg);
valStr = ltoa(val);
maxStr = ltoa(max);
EraseRect(&r);
if (valStr && maxStr)
{
TESetText(&installingStr[1], installingStr[0], gControls->tw->xpiProgressMsg);
TEInsert(&fileStr[1], fileStr[0], gControls->tw->xpiProgressMsg);
TEInsert(valStr, strlen(valStr), gControls->tw->xpiProgressMsg);
TEInsert(&ofStr[1], ofStr[0], gControls->tw->xpiProgressMsg);
TEInsert(maxStr, strlen(maxStr), gControls->tw->xpiProgressMsg);
TEUpdate(&r, gControls->tw->xpiProgressMsg);
}
if (valStr)
free(valStr);
if (maxStr)
free(maxStr);
}
}
}
}
SetPort(oldPort);
return;
}
void
InitLicTxt(void)
{
Rect destRect, viewRect;
FSSpec licFile;
long dirID, dataSize;
short vRefNum, dataRef, resRef;
unsigned char* cLicFName;
Str255 pLicFName;
OSErr err;
Handle text, stylHdl;
ERR_CHECK(GetCWD(&dirID, &vRefNum));
/* open and read license file */
HLock(gControls->cfg->licFileName);
if(**gControls->cfg->licFileName != nil)
{
cLicFName = CToPascal(*gControls->cfg->licFileName);
ERR_CHECK(FSMakeFSSpec(vRefNum, dirID, cLicFName, &licFile));
if (cLicFName)
DisposePtr((char*)cLicFName);
}
else /* assume default license filename from str rsrc */
{
GetResourcedString(pLicFName, rInstList, sLicenseFName);
ERR_CHECK(FSMakeFSSpec(vRefNum, dirID, pLicFName, &licFile));
}
HUnlock(gControls->cfg->licFileName);
/* read license text */
ERR_CHECK(FSpOpenDF( &licFile, fsRdPerm, &dataRef));
ERR_CHECK(GetEOF(dataRef, &dataSize));
if (dataSize > 0)
{
if (!(text = NewHandle(dataSize)))
{
ErrorHandler(eMem, nil);
return;
}
ERR_CHECK(FSRead(dataRef, &dataSize, *text));
}
else
text = nil;
ERR_CHECK(FSClose(dataRef));
/* get 'styl' if license is multistyled */
resRef = FSpOpenResFile( &licFile, fsRdPerm);
ERR_CHECK(ResError());
UseResFile(resRef);
stylHdl = RGetResource('styl', 128);
ERR_CHECK(ResError());
if(stylHdl)
DetachResource(stylHdl);
else
stylHdl = nil;
CloseResFile(resRef);
/* TE specific init */
HLock( (Handle) gControls->lw->licBox);
SetRect(&viewRect, (*(gControls->lw->licBox))->contrlRect.left,
(*(gControls->lw->licBox))->contrlRect.top,
(*(gControls->lw->licBox))->contrlRect.right,
(*(gControls->lw->licBox))->contrlRect.bottom);
HUnlock( (Handle) gControls->lw->licBox);
destRect.left = viewRect.left;
viewRect.right = (*(gControls->lw->scrollBar))->contrlRect.left;
destRect.right = viewRect.right;
destRect.top = viewRect.top;
destRect.bottom = viewRect.bottom * kNumLicScrns;
// gControls->lw->licTxt = (TEHandle) NewPtrClear(sizeof(TEPtr));
TextFont(applFont);
TextFace(normal);
TextSize(9);
HLock(text);
if (stylHdl)
{
gControls->lw->licTxt = TEStyleNew( &destRect, &viewRect );
TEStyleInsert( *text, dataSize, (StScrpRec ** )stylHdl,
gControls->lw->licTxt);
}
else
{
gControls->lw->licTxt = TENew( &destRect, &viewRect);
TEInsert( *text, dataSize, gControls->lw->licTxt);
}
HUnlock(text);
TextFont(systemFont);
TextSize(12);
TESetAlignment(teFlushDefault, gControls->lw->licTxt);
}
