static pascal OSErr FSpGetDirectoryID(const FSSpec *spec,
long *theDirID,
Boolean *isDirectory)
{
return ( GetDirectoryID(spec->vRefNum, spec->parID, spec->name,
theDirID, isDirectory) );
}
FBL_Begin_Namespace
/**********************************************************************************************/
#if FBL_MAC
/**********************************************************************************************/
// NOTE: fullPath to item that EXISTS on disk. Otherwise file not found error.
//
#if FBL_SUPPORT_FSSPEC
//
OSErr Path2Spec_FSRef( const char *inPath, FSSpec *spec)
{
// parse path on parent folder and file name.
const char* pFileName = ExtractNameFromFullPath(inPath);
const char* pDelim = pFileName - 1;
// String folder_path( inPath, vuint32(pDelim - inPath) );
vuint32 len;
if( pDelim >= inPath )
len = vuint32(pDelim - inPath);
else
len = strlen( inPath );
MemPtr<char> folder_path( inPath, len + 1 );
folder_path[len] = 0;
char* pFolderPath = folder_path.begin();
// convert the POSIX path to an FSRef of parent folder
FSRef ref;
OSStatus result = FSPathMakeRef( (vuint8*) pFolderPath, &ref, NULL);
if( result != 0 )
return (OSErr) result;
// and then convert the FSRef to an FSSpec
FSSpec parent;
result = FSGetCatalogInfo(&ref, kFSCatInfoNone, NULL, NULL, &parent, NULL);
if( result != 0 )
return (OSErr) result;
// now we have parent folder FSSpec, get its ID.
vint32 theDirID;
bool isDirectory;
GetDirectoryID( parent.vRefNum, parent.parID, parent.name, &theDirID, &isDirectory );
// and now we make File spec:
Str255 pasFileName;
FBL::c2pstrcpy( pFileName, pasFileName );
result = FSMakeFSSpec( parent.vRefNum, theDirID, pasFileName, spec );
return (OSErr) result;
}
I_Location_Ptr Location_Disk_FSSpec::get_ChildLocation( const char* inName ) const
{
const FSSpec* curr = get_FSSpec();
vint32 DirID;
bool IsDir;
GetDirectoryID( curr->vRefNum, curr->parID, curr->name, &DirID, &IsDir );
Str255 pasName;
c2pstrcpy(inName, pasName);
FSSpec childSpec;
OSErr err = FSMakeFSSpec( curr->vRefNum, DirID, pasName, &childSpec );
argused1(err);
return new Location_Disk_FSSpec( &childSpec );
}
void
ShowTerminalWin(void)
{
Str255 next, back;
Handle rectH;
Rect viewRect;
short reserr;
MenuHandle popupMenu;
PopupPrivateData ** pvtDataHdl;
unsigned char * currMenuItem;
short i, vRefNum;
long cwdDirID, dirID;
Boolean isDir = false;
Str255 pModulesDir;
OSErr err = noErr;
GrafPtr oldPort;
GetPort(&oldPort);
if (gWPtr != NULL)
{
SetPort(gWPtr);
gCurrWin = kTerminalID;
/* gControls->tw = (TermWin*) NewPtrClear(sizeof(TermWin)); */
GetResourcedString(next, rInstList, sInstallBtn);
GetResourcedString(back, rInstList, sBackBtn);
// malloc and get control
rectH = Get1Resource('RECT', rStartMsgBox);
reserr = ResError();
if (reserr == noErr && rectH != NULL)
{
viewRect = (Rect) **((Rect **)rectH);
ReleaseResource(rectH);
}
else
{
ErrorHandler(reserr, nil);
return;
}
gControls->tw->siteSelector = NULL;
gControls->tw->saveBitsCheckbox = NULL;
gControls->tw->startMsgBox = viewRect;
gControls->tw->startMsg = TENew(&viewRect, &viewRect);
if (gControls->tw->startMsg == NULL)
{
ErrorHandler(eMem, nil);
return;
}
// save bits after download and install
/* get the "Installer Modules" relative subdir */
ERR_CHECK(GetCWD(&cwdDirID, &vRefNum));
GetIndString(pModulesDir, rStringList, sInstModules);
GetDirectoryID(vRefNum, cwdDirID, pModulesDir, &dirID, &isDir);
if (isDir)
{
if (!ExistArchives(vRefNum, dirID)) // going to download
{
if (gControls->cfg->numSites > 0)
{
// download settings groupbox
Str255 dlSettingsGBTitle;
gControls->tw->dlSettingsGB = GetNewControl(rDLSettingsGB, gWPtr);
if (gControls->tw->dlSettingsGB)
{
GetResourcedString(dlSettingsGBTitle, rInstList, sDLSettings);
SetControlTitle(gControls->tw->dlSettingsGB, dlSettingsGBTitle);
ShowControl(gControls->tw->dlSettingsGB);
}
// site selector label
Str255 siteSelMsgStr;
gControls->tw->siteSelMsg = GetNewControl(rSiteSelMsg, gWPtr);
if (gControls->tw->siteSelMsg)
{
GetResourcedString(siteSelMsgStr, rInstList, sSiteSelMsg);
SetControlData(gControls->tw->siteSelMsg, kControlNoPart,
kControlStaticTextTextTag, siteSelMsgStr[0], (Ptr)&siteSelMsgStr[1]);
ShowControl(gControls->tw->siteSelMsg);
}
// site selector
gControls->tw->siteSelector = GetNewControl( rSiteSelector, gWPtr );
if (!gControls->tw->siteSelector)
{
ErrorHandler(eMem, nil);
return;
}
// populate popup button menus
HLock((Handle)gControls->tw->siteSelector);
pvtDataHdl = (PopupPrivateData **) (*(gControls->tw->siteSelector))->contrlData;
HLock((Handle)pvtDataHdl);
popupMenu = (MenuHandle) (**pvtDataHdl).mHandle;
for (i=0; i<gControls->cfg->numSites; i++)
{
HLock(gControls->cfg->site[i].desc);
currMenuItem = CToPascal(*gControls->cfg->site[i].desc);
HUnlock(gControls->cfg->site[i].desc);
InsertMenuItem( popupMenu, currMenuItem, i );
}
HUnlock((Handle)pvtDataHdl);
HUnlock((Handle)gControls->tw->siteSelector);
SetControlMaximum(gControls->tw->siteSelector, gControls->cfg->numSites);
SetControlValue(gControls->tw->siteSelector, gControls->opt->siteChoice);
ShowControl(gControls->tw->siteSelector);
}
// show check box and message
gControls->tw->saveBitsCheckbox = GetNewControl( rSaveCheckbox, gWPtr );
if (!gControls->tw->saveBitsCheckbox)
{
ErrorHandler(eMem, nil);
return;
}
if (gControls->opt->saveBits)
SetControlValue(gControls->tw->saveBitsCheckbox, 1);
ShowControl(gControls->tw->saveBitsCheckbox);
// get rect for save bits message
rectH = Get1Resource('RECT', rSaveBitsMsgBox);
reserr = ResError();
if (reserr == noErr && rectH != NULL)
{
gControls->tw->saveBitsMsgBox = (Rect) **((Rect **)rectH);
DisposeHandle(rectH);
}
else
{
ErrorHandler(reserr, nil);
return;
}
// get text edit record for save bits message
gControls->tw->saveBitsMsg = TENew(&gControls->tw->saveBitsMsgBox,
&gControls->tw->saveBitsMsgBox );
if (gControls->tw->saveBitsMsg == NULL)
{
ErrorHandler(eMem, nil);
return;
}
HLock(gControls->cfg->saveBitsMsg);
TESetText(*gControls->cfg->saveBitsMsg, strlen(*gControls->cfg->saveBitsMsg),
gControls->tw->saveBitsMsg);
HUnlock(gControls->cfg->saveBitsMsg);
// show save bits msg
TEUpdate(&gControls->tw->saveBitsMsgBox, gControls->tw->saveBitsMsg);
// proxy settings button
gControls->tw->proxySettingsBtn = GetNewControl(rProxySettgBtn, gWPtr);
if (!gControls->tw->proxySettingsBtn)
{
ErrorHandler(eMem, nil);
return;
}
Str255 proxySettingsTitle;
GetResourcedString(proxySettingsTitle, rInstList, sProxySettings);
SetControlTitle(gControls->tw->proxySettingsBtn, proxySettingsTitle);
ShowControl(gControls->tw->proxySettingsBtn);
}
}
// populate control
HLock(gControls->cfg->startMsg);
TESetText(*gControls->cfg->startMsg, strlen(*gControls->cfg->startMsg),
gControls->tw->startMsg);
HUnlock(gControls->cfg->startMsg);
// show controls
TEUpdate(&viewRect, gControls->tw->startMsg);
ShowNavButtons( back, next );
}
SetPort(oldPort);
}
OSErr FSpGetDirectoryID(const FSSpec *spec, long *theDirID,
Boolean *isDirectory)
{
return GetDirectoryID(spec->vRefNum, spec->parID,
(StringPtr)spec->name, theDirID, isDirectory);
}
