void RGISAnNetworkCellSlopesCBK (Widget widget,RGISWorkspace *workspace,XmAnyCallbackStruct *callData) { DBDataset *dataset = UIDataset (); DBObjData *netData = dataset->Data (); DBObjData *inGridData, *outGridData; widget = widget; callData = callData; if ((inGridData = netData->LinkedData ()) == (DBObjData *) NULL) { CMmsgPrint (CMmsgAppError,"Null Linked Data in: %s %d",__FILE__,__LINE__); return; } outGridData = DBNetworkToGrid (netData,DBTypeGridContinuous); outGridData->Document (DBDocGeoDomain,inGridData->Document (DBDocGeoDomain)); outGridData->Document (DBDocSubject,"Slope"); if (UIDataHeaderForm (outGridData)) { UIPauseDialogOpen ((char *) "Calculating Slopes"); if (RGlibNetworkCellSlopes (netData,inGridData,outGridData) == DBSuccess) workspace->CurrentData (outGridData); else delete outGridData; UIPauseDialogClose (); } else delete outGridData; }
void RGISAnNetworkBasinProfCBK (Widget widget,RGISWorkspace *workspace,XmAnyCallbackStruct *callData) { DBDataset *dataset = UIDataset (); DBObjData *netData = dataset->Data (); DBObjData *gridData, *tblData; widget = widget; callData = callData; if ((gridData = netData->LinkedData ()) == (DBObjData *) NULL) { CMmsgPrint (CMmsgAppError, "Null Linked Data in: %s %d",__FILE__,__LINE__); return; } tblData = new DBObjData ("",DBTypeTable); tblData->Document (DBDocGeoDomain,netData->Document (DBDocGeoDomain)); tblData->Document (DBDocSubject,"Basin Profiles"); if (UIDataHeaderForm (tblData)) { UIPauseDialogOpen ((char *) "Creating Basin Profiles"); if (RGlibNetworkBasinProf (netData,gridData,tblData) == DBSuccess) workspace->CurrentData (tblData); else delete tblData; UIPauseDialogClose (); } else delete tblData; }
static void _UI2DViewExtentActivateCBK(Widget widget, UI2DView *view, XmPushButtonCallbackStruct *callData) { DBObjData *data = (UIDataset())->Data(); if (callData->reason != XmCR_ACTIVATE) return; if (data == (DBObjData *) NULL) return; view->Set(data->Extent()); }
static void _RGISGrpPanelNewCBK (Widget widget,RGISGrpPanel *grpPanel,XmAnyCallbackStruct *callData) { char *groupName; DBDataset *dataset = UIDataset (); DBObjData *dbData = dataset->Data (); DBObjTable *groupTable = dbData->Table (DBrNGroups); DBObjTableField *group; DBObjRecord *record; if ((groupName = UIGetString ((char *) "Group Name",16)) == (char *) NULL) return; if (groupTable == (DBObjTable *) NULL) { DBObjTable *items = dbData->Table (DBrNItems); DBObjectLIST<DBObjTable> *tables = dbData->Tables (); DBTableFieldDefinition fieldDefs [] = { DBTableFieldDefinition (groupName, DBTableFieldInt,(char *) "%1d",sizeof (DBByte)), DBTableFieldDefinition () }; tables->Add (groupTable = new DBObjTable (DBrNGroups,fieldDefs)); grpPanel->Groups (groupTable->Fields ()); group = groupTable->Field (groupName); for (record = items->First ();record != (DBObjRecord *) NULL;record = items->Next ()) group->Int (groupTable->Add (record->Name ()),true); } else { groupTable->AddField (group = new DBObjTableField (groupName,DBTableFieldInt,"%1d",sizeof (DBByte))); for (record = groupTable->First ();record != (DBObjRecord *) NULL;record = groupTable->Next ()) group->Int (record,true); } grpPanel->Add (group); }
void RGISAnalysePointSTNCharCBK (Widget widget, RGISWorkspace *workspace,XmAnyCallbackStruct *callData) { DBDataset *dataset = UIDataset (); DBObjData *dbData = dataset->Data (); DBObjTable *pointTable = dbData->Table (DBrNItems); DBObjTableField *cellIDFLD = pointTable->Field (RGlibCellID); DBObjTableField *basinFLD = pointTable->Field (DBrNBasin); DBObjTableField *basinNameFLD = pointTable->Field (RGlibBasinName); DBObjTableField *orderFLD = pointTable->Field (DBrNOrder); DBObjTableField *colorFLD = pointTable->Field (RGlibColor); DBObjTableField *basinCellsFLD = pointTable->Field (RGlibCellNum); DBObjTableField *basinLengthFLD = pointTable->Field (RGlibLength); DBObjTableField *basinAreaFLD = pointTable->Field (RGlibArea); DBObjTableField *interAreaFLD = pointTable->Field (RGlibInterStation); DBObjTableField *nextStationFLD = pointTable->Field (RGlibNextStation); UITable *tableCLS = (UITable *) dbData->Display (UITableName (dbData,pointTable)); UIPauseDialogOpen ((char *) "STN Characteristics"); if ((RGlibPointSTNCharacteristics (dbData) == DBSuccess) && (tableCLS != (UITable *) NULL)) { if (cellIDFLD == (DBObjTableField *) NULL) tableCLS->AddField (pointTable->Field (RGlibCellID)); if (basinFLD == (DBObjTableField *) NULL) tableCLS->AddField (pointTable->Field (DBrNBasin)); if (basinNameFLD == (DBObjTableField *) NULL) tableCLS->AddField (pointTable->Field (RGlibBasinName)); if (orderFLD == (DBObjTableField *) NULL) tableCLS->AddField (pointTable->Field (DBrNOrder)); if (colorFLD == (DBObjTableField *) NULL) tableCLS->AddField (pointTable->Field (RGlibColor)); if (basinCellsFLD == (DBObjTableField *) NULL) tableCLS->AddField (pointTable->Field (RGlibCellNum)); if (basinLengthFLD == (DBObjTableField *) NULL) tableCLS->AddField (pointTable->Field (RGlibLength)); if (basinAreaFLD == (DBObjTableField *) NULL) tableCLS->AddField (pointTable->Field (RGlibArea)); if (interAreaFLD == (DBObjTableField *) NULL) tableCLS->AddField (pointTable->Field (RGlibInterStation)); if (nextStationFLD == (DBObjTableField *) NULL) tableCLS->AddField (pointTable->Field (RGlibNextStation)); tableCLS->Draw (); } UIPauseDialogClose (); }
static void _RGISPanelFlagsToggleCBK (Widget widget,void *Flags,XmToggleButtonCallbackStruct *callData) { DBObjData *data; XtVaGetValues (widget,XmNuserData, &data, NULL); data->Flags ((DBUnsigned) ((char *) Flags - (char *) NULL),callData->set ? DBSet : DBClear); }
static void _UIAttribViewDeleteCBK (Widget widget,UIAttribView *view,XmAnyCallbackStruct *callData) { DBObjData *dbData = view->Data (); widget = widget; callData = callData; dbData->DispRemove (view); delete view; }
static void _RGISNetPanelColorCBK (Widget widget,void *Flags,XmAnyCallbackStruct *callData) { DBObjData *data; XtVaGetValues (widget,XmNuserData, &data, NULL); data->Flags (DBDataFlagDispModeNetColors,DBClear); data->Flags ((DBUnsigned) ((char *) Flags - (char *) NULL),DBSet); }
void RGISAnNetworkCellSampleGridCBK (Widget widget, RGISWorkspace *workspace,XmAnyCallbackStruct *callData) { DBDataset *dataset = UIDataset (); DBObjData *netData = dataset->Data (), *grdData = netData->LinkedData (); UIPauseDialogOpen ((char *) "Cell Sampling"); RGlibGridSampling (netData,grdData,true); UIPauseDialogClose (); }
void RGISEditGridRemovePitsCBK (Widget widget, RGISWorkspace *workspace,XmAnyCallbackStruct *callData) { DBDataset *dataset = UIDataset (); DBObjData *grdData = dataset->Data (); DBObjData *netData = grdData->LinkedData (); UIPauseDialogOpen ((char *) "Removing Pits"); RGlibGridRemovePits (netData,grdData); UIPauseDialogClose (); }
DBDataset::~DBDataset () { DBObjData *data; for (data = DataLIST->First ();data != (DBObjData *) NULL;data = DataLIST->Next ()) if (strlen (data->FileName ()) == 0) RemoveData (data); Write (MetaFileNameSTR); delete DataLIST; delete MetaLIST; delete SubjectLIST; delete GeoDomainLIST; }
DBInt Configure(DBObjTable *table, bool flat) { DBInt i; char *dataName; char *fieldName = (char *) NULL; DBObjData *data; dataName = TargetFLD->Name(); if ((dataName = (char *) malloc(strlen(dataName) + 1)) == (char *) NULL) { CMmsgPrint(CMmsgSysError, "Memory allocation error in: %s %d", __FILE__, __LINE__); return (CMfailed); } strcpy(dataName, TargetFLD->Name()); for (i = 0; i < (DBInt) strlen(dataName); ++i) if (dataName[i] == ':') { fieldName = dataName + i + 1; dataName[i] = '\0'; i = 0; break; } data = new DBObjData(); if ((strcmp(dataName, "stdin") == 0 ? data->Read(stdin) : data->Read(dataName)) == DBFault) { CMmsgPrint(CMmsgUsrError, "%s", dataName); return (CMfailed); } if (data->Type() == DBTypeGridDiscrete) { DBObjTable *table = data->Table(DBrNItems); if (fieldName == (char *) NULL) fieldName = DBrNGridValue; if ((SourceFLD = table->Field(fieldName)) == (DBObjTableField *) NULL) { CMmsgPrint(CMmsgUsrError, "Invalid field [%s]!", fieldName); return (CMfailed); } strcpy(dataName, TargetFLD->Name()); delete TargetFLD; TargetFLD = new DBObjTableField(*SourceFLD); TargetFLD->Name(dataName); } else { if (fieldName != (char *) NULL) { CMmsgPrint(CMmsgUsrError, "Continuous grid field is referenced!"); free(dataName); return (CMfailed); } } table->AddField(TargetFLD); GridIF = new DBGridIF(data, flat); free(dataName); return (DBSuccess); }
static void _RGISGridLayerListCBK (Widget widget,void *dummy, XmListCallbackStruct *callData) { int item = 0; DBObjData *data; DBObjTable *layerTable; DBObjRecord *record; XtVaGetValues (widget,XmNuserData, &data, NULL); layerTable = data->Table (DBrNLayers); for (record = layerTable->First ();record != (DBObjRecord *) NULL;record = layerTable->Next ()) if (++item == callData->item_position) layerTable->Item (record->RowID (),true); }
void RGISEditGridStatsCBK (Widget widget, RGISWorkspace *workspace,XmAnyCallbackStruct *callData) { DBDataset *dataset = UIDataset (); DBObjData *dbData = dataset->Data (); DBGridIF *gridIF = new DBGridIF (dbData); UITable *tableCLS = (UITable *) dbData->Display (UITableName (dbData,dbData->Table (DBrNItems))); if (dbData->Type () == DBTypeGridContinuous) gridIF->RecalcStats (); else gridIF->DiscreteStats (); if (tableCLS != (UITable *) NULL) tableCLS->Draw (); }
DBObjData::DBObjData(DBObjData &data) : DBObject(data), DBDataHeader(data._Header()) { DBObjTable *table; DBObjRecord *record, *obj; DBObjTableField *field; DBObjectLIST<DBObjTableField> *fields; strcpy(FileNameSTR, ""); TablesPTR = new DBObjectLIST<DBObjTable>(*data.TablesPTR); DocsPTR = new DBObjectLIST<DBObjRecord>(*data.DocsPTR); ArraysPTR = new DBObjectLIST<DBObjRecord>(*data.ArraysPTR); DispPTR = new DBObjectLIST<DBObject>("Data Display"); LinkedDataPTR = (DBObjData *) NULL; for (table = TablesPTR->First(); table != (DBObjTable *) NULL; table = TablesPTR->Next()) { fields = table->Fields(); for (record = table->First(); record != (DBObjRecord *) NULL; record = table->Next()) { for (field = fields->First(); field != (DBObjTableField *) NULL; field = fields->Next()) switch (field->Type()) { case DBTableFieldTableRec: case DBTableFieldDataRec: if ((obj = field->Record(record)) != NULL) field->Record(record, (DBObjRecord *) ((char *) NULL + obj->RowID())); else field->Record(record, (DBObjRecord *) DBFault); break; } } } BuildFields(); }
static void _RGISGridGroupListCBK (Widget widget,RGISGrpPanel *grpPanel, XmListCallbackStruct *callData) { DBObjData *data; DBObjTable *groupTable; DBObjectLIST<DBObjTableField> *groups; DBObjTableField *group = (DBObjTableField *) NULL; XtVaGetValues (widget,XmNuserData, &data, NULL); if (data == (DBObjData *) NULL) return; if ((groupTable = data->Table (DBrNGroups)) != (DBObjTable *) NULL) { groups = groupTable->Fields (); if ((group = groups->Item (callData->item_position - 1)) != (DBObjTableField *) NULL) grpPanel->Current (group); } }
void DBDataset::RemoveData (DBObjData *remData) { DBRegion initRegion; DBObjData *data; DBObjMetaEntry *metaEntry; DataLIST->Remove (remData); ExtentVAR = initRegion; for (data = DataLIST->First ();data != (DBObjData *) NULL;data = DataLIST->Next ()) { ExtentVAR.Expand (data->Extent ()); if (data->LinkedData () == remData) data->LinkedData ((DBObjData *) NULL); } metaEntry = MetaLIST->Item (remData->Name ()); if (strlen (remData->FileName ()) == 0) MetaLIST->Delete (metaEntry); }
void RGISAnalysePointSubbasinCenterCBK (Widget widget, RGISWorkspace *workspace,XmAnyCallbackStruct *callData) { DBDataset *dataset = UIDataset (); DBObjData *pntData =dataset->Data (); DBObjTable *pointTable = pntData->Table (DBrNItems); DBObjTableField *massCoordXFLD = pointTable->Field (RGlibMassCoordX); DBObjTableField *massCoordYFLD = pointTable->Field (RGlibMassCoordY); DBObjData *netData = pntData->LinkedData (); UITable *tableCLS = (UITable *) pntData->Display (UITableName (pntData,pointTable)); UIPauseDialogOpen ((char *) "Subbasin Centers"); if ((RGlibPointSubbasinCenter (pntData, netData) == DBSuccess) && (tableCLS != (UITable *) NULL)) { if (massCoordXFLD == NULL) tableCLS->AddField (pointTable->Field (RGlibMassCoordX)); if (massCoordYFLD == NULL) tableCLS->AddField (pointTable->Field (RGlibMassCoordY)); tableCLS->Draw (); } UIPauseDialogClose (); }
static void _RGISToolsExportDMCBK (Widget widget,RGISWorkspace *workspace,XmAnyCallbackStruct *callData) { char *selection; DBDataset *dataset = UIDataset (); DBObjData *data = dataset->Data (); static Widget dirSelect = NULL; widget = widget; workspace = workspace; callData = callData; if (dirSelect == NULL) { if ((dirSelect = UIFileSelectionCreate ((char *) "DM Coverage",NULL,(char *) "M:*",XmFILE_REGULAR)) == NULL) return; } if ((selection = UIFileSelection (dirSelect,False)) == NULL) return; switch (data->Type ()) { case DBTypeGridDiscrete: case DBTypeGridContinuous: DBExportDMGrid (data,selection); break; } }
int main(int argc, char *argv[]) { int argPos, argNum = argc, ret, verbose = false; DBObjData *data; for (argPos = 1; argPos < argNum;) { if (CMargTest (argv[argPos], "-V", "--verbose")) { verbose = true; if ((argNum = CMargShiftLeft(argPos, argv, argNum)) <= argPos) break; continue; } if (CMargTest (argv[argPos], "-h", "--help")) { CMmsgPrint(CMmsgInfo, "%s [options] <rgis file> <dm file>", CMfileName(argv[0])); CMmsgPrint(CMmsgInfo, " -V,--verbose"); CMmsgPrint(CMmsgInfo, " -h,--help"); return (DBSuccess); } if ((argv[argPos][0] == '-') && (strlen(argv[argPos]) > 1)) { CMmsgPrint(CMmsgUsrError, "Unknown option: %s!", argv[argPos]); return (CMfailed); } argPos++; } if (argNum > 3) { CMmsgPrint(CMmsgUsrError, "Extra arguments!"); return (CMfailed); } if (verbose) RGlibPauseOpen(argv[0]); data = new DBObjData(); ret = (argNum > 1) && (strcmp(argv[1], "-") != 0) ? data->Read(argv[1]) : data->Read(stdin); if ((ret == DBFault) || ((data->Type() & DBTypeGrid) != DBTypeGrid)) { delete data; return (CMfailed); } ret = (argNum > 2) && (strcmp(argv[2], "-") != 0) ? DBExportDMGrid(data, argv[2]) : DBExportDMGrid(data, stdin); delete data; if (verbose) RGlibPauseClose(); return (ret); }
void RGISEditNetAddBasinXYCBK (Widget widget, RGISWorkspace *workspace,XmAnyCallbackStruct *callData) { DBInt basinID; DBDataset *dataset = UIDataset (); DBObjData *dbData =dataset->Data (); DBNetworkIF *netIF = new DBNetworkIF (dbData); DBObjTable *itemTable = dbData->Table (DBrNItems); DBObjTableField *xCoordFLD = itemTable->Field (RGISNetMouthXCoord); DBObjTableField *yCoordFLD = itemTable->Field (RGISNetMouthYCoord); DBCoordinate coord; DBObjRecord *basinRec; UITable *tableCLS = (UITable *) dbData->Display (UITableName (dbData,itemTable)); UIPauseDialogOpen ((char *) "Adding XY Coordinates"); if (xCoordFLD == NULL) { xCoordFLD = new DBObjTableField (RGISNetMouthXCoord,DBTableFieldFloat,(char *) "%10.3f",sizeof (DBFloat4)); itemTable->AddField (xCoordFLD); if (tableCLS != (UITable *) NULL) tableCLS->AddField (xCoordFLD); UIPause (40); } if (yCoordFLD == NULL) { yCoordFLD = new DBObjTableField (RGISNetMouthYCoord,DBTableFieldFloat,(char *) "%10.3f",sizeof (DBFloat4)); itemTable->AddField (yCoordFLD); if (tableCLS != (UITable *) NULL) tableCLS->AddField (yCoordFLD); UIPause (80); } for (basinID = 0;basinID < netIF->BasinNum ();++basinID) { basinRec = netIF->Basin (basinID); if (UIPause (80 + basinID * 20 / netIF->BasinNum ())) goto Stop; coord = netIF->Center (netIF->MouthCell (basinRec)); xCoordFLD->Float (basinRec,coord.X); yCoordFLD->Float (basinRec,coord.Y); } Stop: UIPauseDialogClose (); if (tableCLS != (UITable *) NULL) tableCLS->Draw (); }
static void _RGISToolsImportASCIINetCBK (Widget widget,RGISWorkspace *workspace,XmAnyCallbackStruct *callData) { DBObjData *data = new DBObjData ("",DBTypeNetwork); static Widget fileSelect = NULL; widget = widget; callData = callData; if (fileSelect == NULL) fileSelect = UIFileSelectionCreate ((char *) "GHAAS Data Import",NULL,(char *) "*",XmFILE_REGULAR); data->Document (DBDocSubject,"STNetwork"); if (UIDataHeaderForm (data)) { char *fileName; if ((fileName = UIFileSelection (fileSelect,true)) == NULL) { delete data; return; } UIPauseDialogOpen ((char *) "Importing Networks"); if (DBImportASCIINet (data,fileName) == DBFault) delete data; else workspace->CurrentData (data); UIPauseDialogClose (); } else delete data; }
static void _RGISToolsExportASCIICBK (Widget widget,RGISWorkspace *workspace,XmAnyCallbackStruct *callData) { char *selection; DBDataset *dataset = UIDataset (); DBObjData *data = dataset->Data (); DBObjTable *table; static Widget fileSelect = NULL; static Widget tableSelect = (Widget) NULL; widget = widget; workspace = workspace; callData = callData; if (tableSelect == (Widget) NULL) tableSelect = UISelectionCreate ((char *) "Table Selection"); if (fileSelect == NULL) fileSelect = UIFileSelectionCreate ((char *) "ASCII Table",NULL,(char *) "*.txt",XmFILE_REGULAR); table = data->Table (UISelectObject (tableSelect,(DBObjectLIST<DBObject> *) data->Tables ())); if (table == (DBObjTable *) NULL) return; if ((selection = UIFileSelection (fileSelect,False)) == NULL) return; DBExportASCIITable (table, selection); }
void RGISAnalysePointSubbasinHistCBK (Widget widget, RGISWorkspace *workspace,XmAnyCallbackStruct *callData) { char *selection; DBDataset *dataset = UIDataset (); DBObjData *pntData = dataset->Data (); DBObjData *grdData = pntData->LinkedData (); DBObjData *netData; DBObjData *tblData; static Widget selectWidget = (Widget) NULL; if (selectWidget == (Widget) NULL) selectWidget = UISelectionCreate ((char *) "Select Network"); if ((selection = UISelectObject (selectWidget,(DBObjectLIST<DBObject> *) dataset->DataList (),_RGISAnalyseTestNetwork)) == (char *) NULL) return; if ((netData = dataset->Data (selection)) == (DBObjData *) NULL) { return; } tblData = new DBObjData ("",DBTypeTable); tblData->Document (DBDocGeoDomain,pntData->Document (DBDocGeoDomain)); tblData->Document (DBDocSubject,"Subbasin Histogram"); if (UIDataHeaderForm (tblData)) { UIPauseDialogOpen ((char *) "Calculating Histogram"); if (RGlibPointSubbasinHist (pntData,netData,grdData,tblData) == DBSuccess) workspace->CurrentData (tblData); else delete tblData; UIPauseDialogClose (); } else delete tblData; }
void RGISEditPointAddXYCBK (Widget widget, RGISWorkspace *workspace,XmAnyCallbackStruct *callData) { DBDataset *dataset = UIDataset (); DBObjData *dbData =dataset->Data (); DBVPointIF *pntIF = new DBVPointIF (dbData); DBObjTable *pointTable = dbData->Table (DBrNItems); DBObjTableField *xCoordFLD = pointTable->Field (RGISEditPointXCoord); DBObjTableField *yCoordFLD = pointTable->Field (RGISEditPointYCoord); DBCoordinate coord; DBObjRecord *pointRec; UITable *tableCLS = (UITable *) dbData->Display (UITableName (dbData,pointTable)); widget = widget; workspace = workspace; callData = callData; UIPauseDialogOpen ((char *) "Adding XY Coordinates"); if (xCoordFLD == NULL) { xCoordFLD = new DBObjTableField (RGISEditPointXCoord,DBTableFieldFloat,"%10.3f",sizeof (DBFloat4)); pointTable->AddField (xCoordFLD); if (tableCLS != (UITable *) NULL) tableCLS->AddField (xCoordFLD); UIPause (40); } if (yCoordFLD == NULL) { yCoordFLD = new DBObjTableField (RGISEditPointYCoord,DBTableFieldFloat,"%10.3f",sizeof (DBFloat4)); pointTable->AddField (yCoordFLD); if (tableCLS != (UITable *) NULL) tableCLS->AddField (yCoordFLD); UIPause (80); } for (pointRec = pntIF->FirstItem (); pointRec != (DBObjRecord *) NULL; pointRec = pntIF->NextItem ()) { if (UIPause (80 + pointRec->RowID () * 20 / pntIF->ItemNum ())) goto Stop; coord = pntIF->Coordinate (pointRec); xCoordFLD->Float (pointRec,coord.X); yCoordFLD->Float (pointRec,coord.Y); } Stop: UIPauseDialogClose (); if (tableCLS != (UITable *) NULL) tableCLS->Draw (); }
static void _RGISGrpPanelDeleteCBK (Widget widget,RGISGrpPanel *grpPanel,XmAnyCallbackStruct *callData) { DBDataset *dataset = UIDataset (); DBObjData *dbData = dataset->Data (); DBObjTable *groupTable = dbData->Table (DBrNGroups); DBObjTableField *group = grpPanel->Current (); static Widget fieldSelect = (Widget) NULL; if (fieldSelect == (Widget) NULL) fieldSelect = UISelectionCreate ((char *) "Group Selection"); if ((groupTable == (DBObjTable *) NULL) || (group == (DBObjTableField *) NULL)) return; if (groupTable->FieldNum () == 1) grpPanel->Groups ((DBObjectLIST<DBObjTableField> *) NULL); grpPanel->Remove (group); groupTable->DeleteField (group); if (groupTable->FieldNum () == 0) { DBObjectLIST<DBObjTable> *tables = dbData->Tables (); tables->Remove (groupTable); delete groupTable; } }
static void _RGISGrpPanelSaveCBK (Widget widget,RGISGrpPanel *grpPanel,XmAnyCallbackStruct *callData) { DBInt rowID; DBDataset *dataset= UIDataset (); DBObjData *dbData = dataset->Data (); DBObjTable *itemTable = dbData->Table (DBrNItems); DBObjTable *groupTable = dbData->Table (DBrNGroups); DBObjTableField *group; DBObjRecord *itemRec, *groupRec; UITable *tableCLS; if (groupTable == (DBObjTable *) NULL) return; group = grpPanel->Current (); for (rowID = 0;rowID < groupTable->ItemNum ();++rowID) { groupRec = groupTable->Item (rowID); itemRec = itemTable->Item (rowID); group->Int (groupRec,(itemRec->Flags () & DBObjectFlagSelected) == DBObjectFlagSelected ? true : false); } if ((tableCLS = (UITable *) dbData->Display (UITableName (dbData,groupTable))) != (UITable *) NULL) tableCLS->Draw (); }
void RGISAnalysePointInterStationTSCBK (Widget widget, RGISWorkspace *workspace,XmAnyCallbackStruct *callData) { char *selection; DBDataset *dataset = UIDataset (); DBObjMetaEntry *metaEntry; DBObjData *pntData = dataset->Data (), *tsData; DBObjTable *relateTBL = pntData->Table (DBrNRelations); DBObjRecord *relateRec; DBObjTableField *relDataFLD; DBObjTableField *relateFLD; DBObjTableField *joinFLD; static Widget selectWidget = (Widget) NULL; if (selectWidget == (Widget) NULL) selectWidget = UISelectionCreate ((char *) "Select Time Series"); if ((selection = UISelectObject (selectWidget,(DBObjectLIST<DBObject> *) relateTBL)) == (char *) NULL) return; if ((relateRec = relateTBL->Item (selection)) == (DBObjRecord *) NULL) { CMmsgPrint (CMmsgAppError, "Relate Record Error in: %s %d",__FILE__,__LINE__); return; } relDataFLD = relateTBL->Field (DBrNRelateData); relateFLD = relateTBL->Field (DBrNRelateField); joinFLD = relateTBL->Field (DBrNRelateJoinField); if ((tsData = dataset->Data (relDataFLD->String (relateRec))) == (DBObjData *) NULL) { if ((metaEntry = dataset->Meta (relDataFLD->String (relateRec))) == (DBObjMetaEntry *) NULL) { CMmsgPrint (CMmsgAppError, "Meta Enrty Finding Error in: %s %d",__FILE__,__LINE__); return; } tsData = new DBObjData (); if (tsData->Read (metaEntry->FileName ()) != DBSuccess) return; } workspace->CurrentData (tsData); UIPauseDialogOpen ((char *) "Calculating"); RGlibPointInterStationTS (pntData,tsData,relateFLD->String (relateRec),joinFLD->String (relateRec)); UIPauseDialogClose (); }
static void _RGISToolsExportARCInfoCBK (Widget widget,RGISWorkspace *workspace,XmAnyCallbackStruct *callData) { char *selection; DBDataset *dataset = UIDataset (); DBObjData *data = dataset->Data (); static Widget dirSelect = NULL; widget = widget; workspace = workspace; callData = callData; if (dirSelect == NULL) { if ((dirSelect = UIFileSelectionCreate ((char *) "ARC/INFO Workspace",NULL,(char *) "w_*",XmFILE_DIRECTORY)) == NULL) return; } if ((selection = UIFileSelection (dirSelect,True)) == NULL) return; switch (data->Type ()) { case DBTypeVectorPoint: _RGISToolsPointExportARCInfo (data,selection); break; case DBTypeVectorLine: break; case DBTypeVectorPolygon: break; case DBTypeGridDiscrete: case DBTypeGridContinuous: _RGISToolsGridExportARCInfo (data,selection); break; case DBTypeNetwork: _RGISToolsNetworkExportARCInfo (data,selection); break; case DBTypeTable: break; } }
static void _RGISToolsImportASCIITableCBK (Widget widget,RGISWorkspace *workspace,XmAnyCallbackStruct *callData) { static Widget fileSelect = (Widget) NULL; DBObjData *data = new DBObjData ("",DBTypeTable); widget = widget; callData = callData; if (fileSelect == NULL) fileSelect = UIFileSelectionCreate ((char *) "ASCII Import",NULL,(char *) "*.*",XmFILE_REGULAR); if (UIDataHeaderForm (data)) { char *fileName; if ((fileName = UIFileSelection (fileSelect,true)) == NULL) { delete data; return; } if (DBImportASCIITable (data->Table (DBrNItems),fileName) == DBFault) { UIMessage ((char *) "Import failed!"); delete data; return; } if (UITableRedefineFields (data->Table (DBrNItems)) != true) { delete data; return; } workspace->CurrentData (data); } else delete data; }