/usr/share/ncarg/hluex/app/ap01c.c is in libncarg-data 6.4.0-9.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 | #include <ncarg/hlu/hlu.h>
#include <ncarg/hlu/App.h>
#include <ncarg/hlu/NcgmWorkstation.h>
#include <ncarg/hlu/PSWorkstation.h>
#include <ncarg/hlu/PDFWorkstation.h>
#include <ncarg/hlu/CairoWorkstation.h>
#include <ncarg/hlu/TextItem.h>
int main()
{
int appid, workid, textid;
int rlist;
char const *wks_type = "x11";
/*
* Initialize the HLU library.
*/
NhlInitialize();
/*
* Create a ResList. The ResList is a dynamic list of the resources
* and values being explicitly set during the "NhlCreate" function.
*/
rlist = NhlRLCreate(NhlSETRL);
/*
* Create an App object so we can have an application specific
* resource file for this example. Since the App object is the
* one that reads in the application specific resource files,
* these resources must be set programmatically. (They could
* be set in the $(NCARG_SYSRESFILE) or $(NCARG_USRRESFILE), but
* these things are pretty specific to this example, so I am
* setting them programmatically.)
*/
NhlRLClear(rlist);
NhlRLSetInteger(rlist,NhlNappDefaultParent,True);
NhlRLSetString(rlist,NhlNappUsrDir,"./");
NhlCreate(&appid,"ap01",NhlappClass,NhlDEFAULT_APP,rlist);
/*
* Create the Workstation to manage the output device.
* Since the NhlNappDefaultParent resource was set to True for
* "ap01", we can use either the constant NhlDEFAULT_APP or
* appid as the Parent id. They mean the same thing.
*/
if (!strcmp(wks_type,"ncgm") || !strcmp(wks_type,"NCGM")) {
/*
* Create a meta file workstation.
*/
NhlRLClear(rlist);
NhlRLSetString(rlist,NhlNwkMetaName,"./ap01c.ncgm");
NhlCreate(&workid,"x",NhlncgmWorkstationClass,NhlDEFAULT_APP,
rlist);
}
else if (!strcmp(wks_type,"x11") || !strcmp(wks_type,"X11")) {
/*
* Create an X workstation.
*/
NhlRLClear(rlist);
NhlRLSetInteger(rlist,NhlNwkPause,True);
NhlCreate(&workid,"x",NhlcairoWindowWorkstationClass,NhlDEFAULT_APP,
rlist);
}
else if (!strcmp(wks_type,"oldps") || !strcmp(wks_type,"OLDPS")) {
/*
* Create an older-style PostScript workstation.
*/
NhlRLClear(rlist);
NhlRLSetString(rlist,NhlNwkPSFileName,"./ap01c.ps");
NhlCreate(&workid,"x",NhlpsWorkstationClass,NhlDEFAULT_APP,
rlist);
}
else if (!strcmp(wks_type,"oldpdf") || !strcmp(wks_type,"OLDPDF")) {
/*
* Create an older-style PDF workstation.
*/
NhlRLClear(rlist);
NhlRLSetString(rlist,NhlNwkPDFFileName,"./ap01c.pdf");
NhlCreate(&workid,"x",NhlpdfWorkstationClass,NhlDEFAULT_APP,
rlist);
}
else if (!strcmp(wks_type,"pdf") || !strcmp(wks_type,"PDF") ||
!strcmp(wks_type,"ps") || !strcmp(wks_type,"PS")) {
/*
* Create a cairo PS or PDF workstation.
*/
NhlRLClear(rlist);
NhlRLSetString(rlist,NhlNwkFileName,"./ap01c");
NhlRLSetString(rlist,NhlNwkFormat,(char*)wks_type);
NhlCreate(&workid,"x",NhlcairoDocumentWorkstationClass,NhlDEFAULT_APP,
rlist);
}
else if (!strcmp(wks_type,"png") || !strcmp(wks_type,"PNG")) {
/*
* Create a cairo PNG workstation.
*/
NhlRLClear(rlist);
NhlRLSetString(rlist,NhlNwkFileName,"./ap01c");
NhlRLSetString(rlist,NhlNwkFormat,(char*)wks_type);
NhlCreate(&workid,"x",NhlcairoImageWorkstationClass,NhlDEFAULT_APP,
rlist);
}
/*
* Destroy the ResList.
* Since I am not setting any more resources programmatically, I
* don't need the ResList anymore.
*/
NhlRLDestroy(rlist);
/*
* Create a TextItem. I am not programmatically setting any of
* the TextItem resources, so the Resource Database made up from
* the resource files read-in by the "ap01" App object is specifying
* all the attributes to the TextItem.
*/
NhlCreate(&textid,"tx1",NhltextItemClass,workid,0);
/*
* Call draw on the Workstation Object. This will cause all of the
* Workstation's children to Draw. In this case, this is only
* "tx1", so draw could have been called on it, just as easily.
*/
NhlDraw(workid);
/*
* Call frame on the Workstation Object. This is functionally
* equivalent to calling NhlUpdateWorkstation, and then
* NhlClearWorkstation.
*/
NhlFrame(workid);
/*
* Destroying an object also destroy's it's children, so by destroying
* "ap01", all of the objects get destroyed.
*/
NhlDestroy(appid);
/*
* Close the HLU library. This free's up most of the dynamic memory
* the HLU library allocates.
*/
NhlClose();
exit(0);
}
|