void Metalink4Writer::write_file(const MetalinkFile& file)
{
start(wxT("file"));
add_attr(wxT("name"), file.get_filename());
close_start();
add_element(wxT("identity"), file.get_identity());
add_element(wxT("description"), file.get_description());
add_element(wxT("version"), file.get_version());
add_element(wxT("size"), file.get_size());
write_hashes(file);
write_piece_hash(file);
const std::vector<MetalinkSource>& sources = file.get_sources();
for(std::vector<MetalinkSource>::const_iterator i = sources.begin(),
eoi = sources.end(); i != eoi; ++i) {
write_source(*i);
}
end(wxT("file"));
}
int main(int argc, char **argv)
{
FILE *in, *out = stdout;
enum pp_flags flags = 0;
struct preproc *pp;
source_file_name = "samples/preproc.P";
in = fopen("samples/preproc.P", "r");
if (!in)
error(1, errno, "fopen");
pp = read_source(in, flags);
if (!pp)
error(1, errno, "read_source");
// preprocess(pp);
write_source(pp, out);
free_preproc(pp);
exit(0);
}
static HRESULT WINAPI PngFrameEncode_WriteSource(IWICBitmapFrameEncode *iface,
IWICBitmapSource *pIBitmapSource, WICRect *prc)
{
PngEncoder *This = impl_from_IWICBitmapFrameEncode(iface);
HRESULT hr;
TRACE("(%p,%p,%p)\n", iface, pIBitmapSource, prc);
if (!This->frame_initialized)
return WINCODEC_ERR_WRONGSTATE;
hr = configure_write_source(iface, pIBitmapSource, prc,
This->format ? This->format->guid : NULL, This->width, This->height,
This->xres, This->yres);
if (SUCCEEDED(hr))
{
hr = write_source(iface, pIBitmapSource, prc,
This->format->guid, This->format->bpp, This->width, This->height);
}
return hr;
}
static HRESULT WINAPI IcnsFrameEncode_WriteSource(IWICBitmapFrameEncode *iface,
IWICBitmapSource *pIBitmapSource, WICRect *prc)
{
IcnsFrameEncode *This = impl_from_IWICBitmapFrameEncode(iface);
HRESULT hr;
TRACE("(%p,%p,%p)\n", iface, pIBitmapSource, prc);
if (!This->initialized)
return WINCODEC_ERR_WRONGSTATE;
hr = configure_write_source(iface, pIBitmapSource, prc,
&GUID_WICPixelFormat32bppBGRA, This->size, This->size,
1.0, 1.0);
if (SUCCEEDED(hr))
{
hr = write_source(iface, pIBitmapSource, prc,
&GUID_WICPixelFormat32bppBGRA, 32, This->size, This->size);
}
return hr;
}
int main(int argc,char *argv[]) {
char spinorfilename[100];
char * filename = NULL;
int sample=0, ts=0, ss=1, typeflag = 1, t0=0, piononly = 0, ext_sourceflag = 0;
int is, ic, j, filenameflag = 0, appendflag = 0;
complex co;
int c;
int prec=32;
verbose = 0;
g_use_clover_flag = 0;
nstore = 0;
L=0;
T=0;
#ifdef MPI
MPI_Init(&argc, &argv);
#endif
#ifdef OMP
/* FIXME: in principle this should not be set like this as it could result
in thread oversubscription when more than one process is run locally
unfortunately, there does not seem to be a standard way to determine
the number of "local" MPI processes */
omp_num_threads = omp_get_max_threads();
init_openmp();
#endif
while ((c = getopt(argc, argv, "h?NCpOEdao:L:T:n:t:s:S:P:")) != -1) {
switch (c) {
case 'L':
L = atoi(optarg);
LX = L;
LY = L;
LZ = L;
break;
case 'T':
T = atoi(optarg);
T_global = T;
break;
case 'N':
typeflag = 0;
break;
case 'd':
prec = 64;
break;
case 'O':
piononly = 1;
break;
case 'n':
nstore = atoi(optarg);
break;
case 's':
sample = atoi(optarg);
break;
case 't':
t0 = atoi(optarg);
break;
case 'S':
ss = atoi(optarg);
break;
case 'P':
ts = atoi(optarg);
break;
case 'o':
filename = calloc(200, sizeof(char));
strcpy(filename,optarg);
break;
case 'E':
ext_sourceflag = 1;
break;
case 'p':
filenameflag = 1;
break;
case 'a':
appendflag = 1;
break;
case 'h':
case '?':
default:
usage();
break;
}
}
if(ts == 0) {
ts = T;
}
if(filename == NULL){
filename = "source";
}
if(L==0 || T==0) {
if(g_proc_id == 0) {
fprintf(stderr, "L and T must be specified! Aborting...\n");
fflush( stderr );
}
exit(1);
}
tmlqcd_mpi_init(argc, argv);
j = init_geometry_indices(VOLUMEPLUSRAND);
if ( j!= 0) {
fprintf(stderr, "Not enough memory for geometry_indices! Aborting...\n");
exit(0);
}
if(!ext_sourceflag) {
j = init_spinor_field(VOLUMEPLUSRAND/2, 2);
}
else {
j = init_spinor_field(VOLUMEPLUSRAND/2, 4);
}
if ( j!= 0) {
fprintf(stderr, "Not enough memory for spinor fields! Aborting...\n");
exit(0);
}
/* define the geometry */
geometry();
if(!piononly) {
for(is = 0; is < 4; is ++) {
for(ic = 0; ic < 3; ic++) {
if(!filenameflag && !appendflag) {
sprintf(spinorfilename, "%s.%.4d.%.4d.%.2d.%.2d", filename, nstore, sample, t0, 3*is+ic);
}
else if(!filenameflag && appendflag) {
sprintf(spinorfilename, "%s.%.4d.%.4d.%.2d", filename, nstore, sample, t0);
}
else{
sprintf(spinorfilename, "%s.%.2d", filename, 3*is+ic);
}
if(!appendflag || (is == 0 && ic ==0)) {
printf("Generating source %s!\n", spinorfilename);
fflush(stdout);
}
source_generation_nucleon(g_spinor_field[0], g_spinor_field[1],
is, ic, t0, ts, ss, sample, nstore, typeflag);
co = scalar_prod(g_spinor_field[1], g_spinor_field[1], VOLUME/2, 1);
if((is == 0 && ic == 0) || appendflag == 0) {
write_source_type(0, spinorfilename);
}
write_source(g_spinor_field[0], g_spinor_field[1], spinorfilename, 1, prec);
}
}
}
else {
if(!ext_sourceflag) {
if(!filenameflag) {
sprintf(spinorfilename, "%s.%.4d.%.4d.%.2d", filename, nstore, sample, t0);
}
else {
sprintf(spinorfilename, "%s", filename);
}
printf("Generating source %s!\n", spinorfilename);
fflush(stdout);
source_generation_pion_only(g_spinor_field[0], g_spinor_field[1],
t0, sample, nstore);
co = scalar_prod(g_spinor_field[1], g_spinor_field[1], VOLUME/2, 1);
write_source_type(0, spinorfilename);
write_source(g_spinor_field[0], g_spinor_field[1], spinorfilename, 1, prec);
}
else {
if(!filenameflag) {
sprintf(spinorfilename, "%s.%.4d.%.4d.%.2d.inverted", filename, nstore, sample, t0);
}
else {
sprintf(spinorfilename, "%s.inverted", filename);
}
read_lime_spinor(g_spinor_field[0], g_spinor_field[1], spinorfilename, 0);
printf("Generating ext. pion source %s!\n", spinorfilename);
extended_pion_source(g_spinor_field[2], g_spinor_field[3],
g_spinor_field[0], g_spinor_field[1],
t0, 0., 0., 0.);
if(!filenameflag) {
sprintf(spinorfilename, "g%s.%.4d.%.4d.%.2d", filename, nstore, sample, t0);
}
else {
sprintf(spinorfilename, "g%s", filename);
}
write_source_type(0, spinorfilename);
write_source(g_spinor_field[2], g_spinor_field[3], spinorfilename, 1, prec);
}
}
#ifdef MPI
MPI_Finalize();
#endif
free_geometry_indices();
free_spinor_field();
return(0);
}
int main(int argc, char *argv[])
{
const char *header = NULL;
const char *output = NULL;
gboolean check_only = FALSE;
int verbose = 0, opt;
GList *block_list = NULL;
while( (opt = getopt_long( argc, argv, short_options, long_options, NULL )) != -1 ) {
switch(opt) {
case 'c':
check_only = TRUE;
break;
case 'd':
header = optarg;
break;
case 'h':
print_usage();
exit(0);
case 'o':
output = optarg;
break;
case 'v':
verbose++;
break;
}
}
if( optind == argc ) {
print_usage();
exit(1);
}
if( output == NULL ) {
output = makeFilename(argv[optind],".c");
}
if( header == NULL ) {
header = makeFilename(argv[optind],".h");
}
for( ; optind < argc; optind++ ) {
block_list = ioparse(argv[optind], block_list);
}
if( verbose ) {
dump_register_blocks(stdout, block_list, verbose>1);
}
int errors = check_registers(block_list);
if( errors != 0 ) {
fprintf( stderr, "Aborting due to validation errors\n" );
return 2;
}
if( !check_only ) {
FILE *f = fopen( output, "wo" );
if( f == NULL ) {
fprintf( stderr, "Unable to open output file '%s': %s\n", output, strerror(errno) );
return 3;
}
write_source( f, block_list, header );
fclose(f);
f = fopen( header, "wo" );
if( f == NULL ) {
fprintf( stderr, "Unable to open header file '%s': %s\n", header, strerror(errno) );
return 4;
}
write_header( f, block_list );
fclose(f);
}
for( GList *ptr = block_list; ptr != NULL; ptr = ptr->next ) {
char *data = build_page_initializer((regblock_t)ptr->data);
fwrite_dump( data, LXDREAM_PAGE_SIZE, stdout );
g_free(data);
}
return 0;
}
