fileinfo* openTmpFile(const char* tmpfilename, const char* mode) {
fileinfo* newfile = (fileinfo*)malloc(sizeof(fileinfo));
newfile->filename = astr(tmpfilename);
newfile->pathname = genIntermediateFilename(tmpfilename);
openfile(newfile, mode);
return newfile;
}
void openCFile(fileinfo* fi, const char* name, const char* ext) {
if (ext)
fi->filename = astr(name, ".", ext);
else
fi->filename = astr(name);
fi->pathname = genIntermediateFilename(fi->filename);
openfile(fi, "w");
}
int main(int argc, Char *argv[])
{ /* Read in sequences or frequencies and bootstrap or jackknife them */
#ifdef MAC
argc = 1; /* macsetup("SeqBoot",""); */
argv[0] = "SeqBoot";
#endif
init(argc,argv);
openfile(&infile, INFILE, "input file", "r", argv[0], infilename);
ibmpc = IBMCRT;
ansi = ANSICRT;
doinput(argc, argv);
bootwrite();
freenewer();
freenew();
freerest();
if (nodep)
matrix_char_delete(nodep, spp);
if (nodef)
matrix_double_delete(nodef, spp);
FClose(infile);
if (factors) {
FClose(factfile);
FClose(outfactfile);
}
if (weights)
FClose(weightfile);
if (categories) {
FClose(catfile);
FClose(outcatfile);
}
if(mixture)
FClose(outmixfile);
if(ancvar)
FClose(outancfile);
if (justwts && !permute) {
FClose(outweightfile);
}
else
FClose(outfile);
#ifdef MAC
fixmacfile(outfilename);
if (justwts && !permute)
fixmacfile(outweightfilename);
if (categories)
fixmacfile(outcatfilename);
if (mixture)
fixmacfile(outmixfilename);
#endif
printf("Done.\n\n");
#ifdef WIN32
phyRestoreConsoleAttributes();
#endif
return 0;
}
Chan*
netifopen(Netif *nif, Chan *c, int omode)
{
Proc *up = externup();
int id;
Netfile *f;
id = 0;
if(c->qid.type & QTDIR){
if(omode != OREAD)
error(Eperm);
} else {
switch(NETTYPE(c->qid.path)){
case Ndataqid:
case Nctlqid:
id = NETID(c->qid.path);
openfile(nif, id);
break;
case Ncloneqid:
id = openfile(nif, -1);
c->qid.path = NETQID(id, Nctlqid);
break;
default:
if(omode != OREAD)
error(Ebadarg);
}
switch(NETTYPE(c->qid.path)){
case Ndataqid:
case Nctlqid:
f = nif->f[id];
if(netown(f, up->user, omode&7) < 0){
netifclose(nif, c);
error(Eperm);
}
break;
}
}
c->mode = openmode(omode);
c->flag |= COPEN;
c->offset = 0;
c->iounit = qiomaxatomic;
return c;
}
void MainWindow::creatconnect()
{
//slot
connect(load, SIGNAL(clicked()), this, SLOT(openfile()));
connect(count, SIGNAL(clicked()), this, SLOT(countholl()));
connect(send,SIGNAL(clicked()),this,SLOT(wirtecomm()));
connect(time,SIGNAL(timeout()),this,SLOT(readcomm()));//定时溢出实现读串口操作
connect(finish,SIGNAL(clicked()),this,SLOT(closeThread()));//测试用的
connect(compiler,SIGNAL(clicked()),this->textTop,SLOT(compilegcode()));
// connect(commthread,SIGNAL(finished()),this,SLOT(displaycomm())); //接收信号实现显示
connect(simulation,SIGNAL(clicked()),this,SLOT(simulater()));
connect(zoomInIcon, SIGNAL(clicked()), this, SLOT(zoomIn()));
connect(zoomOutIcon, SIGNAL(clicked()), this, SLOT(zoomOut()));
connect(zoomSlider, SIGNAL(valueChanged(int)), this, SLOT(setupMatrix()));
connect(configAct, SIGNAL(triggered()),
this, SLOT(configsetting()));
connect(openIniFileAct,SIGNAL(triggered()),
this,SLOT(openfile()));
}
int main(int argc, Char *argv[])
{ /* main program */
#ifdef MAC
argc = 1; /* macsetup("Neighbor",""); */
argv[0] = "Neighbor";
#endif
init(argc, argv);
openfile(&infile,INFILE,"input file", "r",argv[0],infilename);
openfile(&outfile,OUTFILE,"output file", "w",argv[0],outfilename);
ibmpc = IBMCRT;
ansi = ANSICRT;
mulsets = false;
datasets = 1;
doinit();
if (trout)
openfile(&outtree,OUTTREE,"output tree file", "w",argv[0],outtreename);
ith = 1;
while (ith <= datasets) {
if (datasets > 1) {
fprintf(outfile, "Data set # %ld:\n",ith);
if (progress)
printf("Data set # %ld:\n",ith);
}
inputoptions();
maketree();
if (eoln(infile) && (ith < datasets))
scan_eoln(infile);
ith++;
}
FClose(infile);
FClose(outfile);
FClose(outtree);
freerest();
#ifdef MAC
fixmacfile(outfilename);
fixmacfile(outtreename);
#endif
printf("Done.\n\n");
#ifdef WIN32
phyRestoreConsoleAttributes();
#endif
return 0;
}
void
wtagwrite(Win *w, char *s, int n)
{
int fd;
fd = openfile(w, "tag");
if(write(fd, s, n) != n)
fprint(2,"tag write: %r");
close(fd);
}
int main(void)
{
getarguments();
openpar();
openfile();
docopy();
cleanup(NULL, 0);
return 0;
}
/*用法说明 ：
文件中"#" 号开头的行忽略
*/
int ReadTxtToGetShellByName2(CString fileName,int linecount,struct operat *p)
{
struct operat newshell;
struct operat lin;
int count=0;
CStdioFile openfile(fileName,CFile::modeRead); //构造CStdioFile对象
CString str;
//命令类型：命令执行时间：参数个数：参数
while(openfile.ReadString(str)) //读一行数据
{
//if(count >20)
// break;
WCHAR fc=str.GetAt(0);
CString firc(fc);
CString cc(_T("#"));
if(firc.Compare(cc) ==0)
continue;
//提取文本
int loct=str.Find(_T(":"));
CString shelltype=str.Left(loct);
CString zhong=str.Right(str.GetLength()-loct-1);
loct=zhong.Find(_T(":"));
CString time=zhong.Left(loct);
zhong=zhong.Right(zhong.GetLength()-loct-1);
loct=zhong.Find(_T(":"));
CString ParameterNum=zhong.Left(loct);
CString Parameter=zhong.Right(zhong.GetLength()-loct-1);
//新建一个命令节点
//newshell=new struct operat;
newshell.Parameter=Parameter;
newshell.ParameterNum=_wtoi(ParameterNum);
newshell.shelltype=shelltype;
newshell.time=_wtoi(time);
(p[count]).Parameter=newshell.Parameter;
p[count].ParameterNum=newshell.ParameterNum;
p[count].shelltype=newshell.shelltype;
p[count].time=newshell.time;
count++;
// CString zuobiao1,shi,zuobiao2;
// zuobiao1.Format(_T(" time=%d"),(newshell2->time));
// zuobiao2.Format(_T(" ParameterNum=%d"),(newshell2->ParameterNum));
// shi=(newshell2->shelltype)+zuobiao1+zuobiao2+newshell2->Parameter;
//AfxMessageBox(shi);
}
openfile.Close(); //关闭文件
return count;
}
//
// amp July 9, 1997
//
// Use the OS Luke...
//
// We do the sneaky version and let the OS do all
// the hard work so we don't have to mess around
// a lot ;)
//
ReturnCode MultiAssignLoad( struct Global *global, char *incptr, char *filename, char *tmpname )
{ /* MultiAssignLoad */
struct MsgPort *FSTask;
struct DevProc *DevProc = NULL;
LONG RtnCode = FPP_NO_INCLUDE;
FSTask = GetFileSysTask();
do
{
//
// This should not bring up a requester.
// check to see if cpp does in fact tweek
// the process WindowPtr.
//
DevProc = GetDeviceProc( incptr, DevProc );
if( DevProc )
{
SetFileSysTask( DevProc->dvp_Port );
//
// Normally we would pass the lock and filename
// to the Load() routine, which would CD to the
// directory and Open(filename), but in order to
// satisfy the exisiting openfile() function, we
// bite the bullet and build the complete pathspec
// rather than add the standard Load() routine.
//
if( NameFromLock( DevProc->dvp_Lock, tmpname, NWORK ) )
{
AddPart( tmpname, filename, NWORK );
RtnCode = openfile( global, tmpname );
if( ! RtnCode )
break;
}
}
} while ( RtnCode &&
DevProc &&
(DevProc->dvp_Flags & DVPF_ASSIGN) &&
IoErr() == ERROR_OBJECT_NOT_FOUND); /* repeat if multi-assign */
SetFileSysTask( FSTask );
if( DevProc )
FreeDeviceProc( DevProc );
return RtnCode;
} /* MultiAssignLoad */
int main(int argc, char *argv[]) {
uchar *input_seqfile;
uchar *temp;
uint n_seq, x;
int l;
FILE *indfile, *strfile, *binfile;
configure_logmsg(MSG_DEBUG1);
parse_arguments(&input_seqfile, argc, argv);
configure_logmsg(verbosity_level);
logmsg(MSG_INFO,"Output basename set to %s\n",output_basename);
l = strlen(output_basename);
MA(temp, (l+6)*sizeof(char));
strcpy(temp, output_basename);
strcat(temp, ".ind");
indfile = openfile(temp, "w", "sequence index file");
x = INDFILE_MAGIC;
fwrite(&x, sizeof(uint), 1, indfile);
strcpy(temp, output_basename);
strcat(temp, ".seq");
strfile = openfile(temp, "w", "sequence string file");
x = STRFILE_MAGIC;
fwrite(&x, sizeof(uint), 1, strfile);
strcpy(temp, output_basename);
strcat(temp, ".sbin");
binfile = openfile(temp, "w", "sequence binary file");
x = BINFILE_MAGIC;
fwrite(&x, sizeof(uint), 1, binfile);
n_seq = format_input(input_seqfile, indfile, strfile, binfile);
fclose(indfile);
fclose(strfile);
fclose(binfile);
logmsg(MSG_INFO,"%d sequences formatted\n",n_seq);
return 0;
}
boolean add_log_filename(char * filename)
{
register FILE * ofp;
if( (ofp=openfile(filename,"w")) == NULL) {
warn("Could not open %s as a log filename",filename);
return FALSE;
}
add_log_file(ofp);
return TRUE;
}
int main(int argc, char **argv) {
struct radixdb db;
if (argc != 2) {
fprintf(stderr, "usage: radixdbdump f\n");
return 1;
}
openfile(argv[1], &db);
radixdb_dump2dot(&db);
closefile(&db);
return 0;
}
void doit(void) {
int n,i,hashcomp;
openfile( WORDVEC_FILE, &leftfile );
openfile( RIGHT_SINGVEC_FILE, &rghtfile );
openfile( SINGVAL_FILE, &singfile );
preparelandr( "", hashrow, hashstep, hashsing, left, right, sing, &hashcomp );
if (hashcomp<hashsing)
printf("\n FEWER THAN EXPECTED SINGULAR VALUES\n");
for (i=0; i<hashsing; i++)
fprintf(singfile,"%f\n",sing[i]);
fclose(singfile);
for (n=0; n<hashrow; n++)
for (i=0; i<hashsing; i++)
fprintf(leftfile,"%f\n",left[n][i]);
fclose(leftfile);
for (n=0; n<hashcol; n++)
for (i=0; i<hashsing; i++)
fprintf(rghtfile,"%f\n",right[n][i]);
fclose(rghtfile);
}
static int shiftfile(struct logentity* le)
{
char tmp[128] = {0};
sprintf(tmp, "%s.%d", le->fn, le->nextlogno);
unlink(tmp);
rename(le->fn, tmp);
le->nextlogno = (le->nextlogno + 1) % le->maxlognum;
if(le->nextlogno == 0)
le->nextlogno = 1;
return openfile(le->fn);
}
Dialog::Dialog(QWidget *parent) :
QDialog(parent),
ui(new Ui::Dialog)
{
ui->setupUi(this);
openfile();
timer= new QTimer(this);
connect(timer,SIGNAL(timeout()),this,SLOT(repaint()));
timer->start(100);
}
int lineCount(CString fileName)
{
CStdioFile openfile(fileName,CFile::modeRead); //构造CStdioFile对象
CString str;
int count=0;
while(openfile.ReadString(str)) //读一行数据
{
count++;
}
return count;
}
int save_StringList(StringList *sl, char *file) {
AtomicFile *f;
if ((f = openfile(file, "w")) == NULL)
return -1;
while(sl != NULL) {
fprintf(f->f, "%s\n", sl->str);
sl = sl->next;
}
return closefile(f);
}
int main(int argc, char* argv[])
{
int i, fd;
for(i = 1; i < argc; ++i)
{
fd = openfile(argv[i]);
if(fd < 0) continue;
printlines(fd, argv[i], argc);
if(close(fd))
perror("Close");
}
if(argc < 2)
{
fd = openfile("-");
printlines(fd, "-", argc);
}
return 0;
}
int main(int argc, char *argv[])
{
int num_epochs = argc>1 ? atoi(argv[1]) : 0;
bool do_shuffle = argc>2 ? *argv[2] == 'y' : false;
FILE *train_file = openfile( argc>3 ? argv[3] : (char*)"perceptron_train.csv");
FILE *test_file = openfile( argc>4 ? argv[4] : (char*)"perceptron_test.csv");
XDATA xtrain, xtest;
YDATA ytrain, ytest;
read_data(train_file, xtrain, ytrain);
if (num_epochs == 0)
num_epochs = xtrain.size();
//read in training data and figure out w based on those
std::vector<float> w = p_train(xtrain, ytrain, num_epochs, do_shuffle);
fprintf(stdout, "weight vector = %f %f %f %f\n", w[0],w[1],w[2],w[3]);
int failcount = 0;
//read in test data
read_data(test_file, xtest, ytest);
for (int i=0; i<xtest.size(); i++){
//call classify on test_file and until it fails just keep going
int y = p_classify(xtest[i], w);
//if we fail, it means we need to re classify
if (y != ytest[i]) {
//update the weights since we failed
update_weights(xtest[i], ytest[i], w);
//change it so that we learned
y = p_classify(xtest[i], w);
if (y != ytest[i]) {
//update failure count so we know that we got better
failcount++;
}
}
}
fprintf(stdout, "Failures = %d\nEpochs = %d\n\n", failcount, num_epochs);
fprintf(stdout, "Failures in training: %d\n", test_fails);
return 0;
}
int main(int argc,char ** argv)
{
SignalMap * map;
int i;
FILE * sm;
Sequence * seq;
SignalSeq * ss;
FILE * sseqf;
PackAln * pal;
AlnBlock * alb;
DPRunImpl * dpri;
srandomdev();
sm = openfile(argv[1],"r");
dpri = new_DPRunImpl_from_argv(&argc,argv);
map = read_SignalMap(sm);
seq = read_fasta_file_Sequence(argv[2]);
sseqf = openfile(argv[3],"r");
ss = read_SignalSeq(sseqf);
assert(map != NULL);
assert(seq != NULL);
assert(ss != NULL);
pal = PackAln_bestmemory_SimpleSignalMat(ss,seq,map,-10,-2,NULL,dpri);
alb = convert_PackAln_to_AlnBlock_SimpleSignalMat(pal);
show_alignment_with_fit_SimpleSignalMat(alb,ss,seq,map,stdout);
}
Cell *awkgetline(Node **a, int n) /* get next line from specific input */
{ /* a[0] is variable, a[1] is operator, a[2] is filename */
Cell *r, *x;
extern Cell **fldtab;
FILE *fp;
char *buf;
int bufsize = recsize;
int mode;
if ((buf = (char *) malloc(bufsize)) == NULL)
FATAL("out of memory in getline");
fflush(stdout); /* in case someone is waiting for a prompt */
r = gettemp();
if (a[1] != NULL) { /* getline < file */
x = execute(a[2]); /* filename */
mode = ptoi(a[1]);
if (mode == '|') /* input pipe */
mode = LE; /* arbitrary flag */
fp = openfile(mode, getsval(x));
tempfree(x);
if (fp == NULL)
n = -1;
else
n = readrec(&buf, &bufsize, fp);
if (n <= 0) {
;
} else if (a[0] != NULL) { /* getline var <file */
x = execute(a[0]);
setsval(x, buf);
tempfree(x);
} else { /* getline <file */
setsval(fldtab[0], buf);
if (is_number(fldtab[0]->sval)) {
fldtab[0]->fval = atof(fldtab[0]->sval);
fldtab[0]->tval |= NUM;
}
}
} else { /* bare getline; use current input */
if (a[0] == NULL) /* getline */
n = getrec(&record, &recsize, 1);
else { /* getline var */
n = getrec(&buf, &bufsize, 0);
x = execute(a[0]);
setsval(x, buf);
tempfree(x);
}
}
setfval(r, (Awkfloat) n);
free(buf);
return r;
}
DWORD WINAPI
GetPrivateProfileSectionNames(LPTSTR lpszReturnBuffer,
DWORD nSize,
LPCTSTR lpFileName)
{
FILE *file;
char buffer[BUFSIZ];
char *ptr;
size_t len;
DWORD nResult;
APISTR((LF_APICALL,
"GetPrivateProfileSectionNames(LPTSTR=%s,DWORD=%x,LPCTSTR=%s)\n",
lpszReturnBuffer?lpszReturnBuffer:"NULL",
nSize,
lpFileName?lpFileName:"NULL"));
if ((lpszReturnBuffer == NULL)
|| (nSize == 0)
|| (lpFileName == NULL)
|| ((file = openfile(NULL, lpFileName, "r")) == NULL)
) {
APISTR((LF_APIRET,"GetPrivateProfileSection: returning DWORD %x\n",
0));
return (0);
}
*lpszReturnBuffer = '\0';
nResult = 0;
while (fgets(buffer, sizeof(buffer), file) != NULL)
{
if (*buffer != '[') continue;
ptr = strtok(buffer + 1, "]");
len = strlen(ptr);
strncpy(lpszReturnBuffer + nResult, ptr, nSize - nResult);
if (len >= nSize - nResult)
{
lpszReturnBuffer[nSize - 1] = '\0';
lpszReturnBuffer[nSize - 2] = '\0';
nResult = nSize - 2;
break;
}
nResult += len + 1;
}
fclose(file);
APISTR((LF_APIRET,"GetPrivateProfileSection: returning DWORD %x\n",nResult));
return (nResult);
}
struct chan *netifopen(struct ether *nif, struct chan *c, int omode)
{
int id;
struct netfile *f;
id = 0;
if (c->qid.type & QTDIR) {
if (!IS_RDONLY(omode))
error(Eperm);
} else {
switch (NETTYPE(c->qid.path)) {
case Ndataqid:
case Nctlqid:
id = NETID(c->qid.path);
openfile(nif, id);
break;
case Ncloneqid:
id = openfile(nif, -1);
c->qid.path = NETQID(id, Nctlqid);
break;
default:
if (!IS_RDONLY(omode))
error(Ebadarg);
}
switch (NETTYPE(c->qid.path)) {
case Ndataqid:
case Nctlqid:
f = nif->f[id];
if (netown(f, current->user, omode & 7) < 0)
error(Eperm);
break;
}
}
c->mode = openmode(omode);
c->flag |= COPEN;
c->offset = 0;
c->iounit = qiomaxatomic;
return c;
}
int main(int argc, Char *argv[])
{ /* distances from restriction sites or fragments */
#ifdef MAC
argc = 1; /* macsetup("Restdist",""); */
argv[0] = "Restdist";
#endif
#ifdef WIN32
phySetConsoleAttributes();
phyClearScreen();
#endif
strcpy(progname,argv[0]);
openfile(&infile,INFILE,"input data file","r",argv[0],infilename);
openfile(&outfile,OUTFILE,"output file","w",argv[0],outfilename);
ibmpc = IBMCRT;
ansi = ANSICRT;
mulsets = false;
datasets = 1;
firstset = true;
doinit();
for (ith = 1; ith <= datasets; ith++) {
getinput();
if (ith == 1)
firstset = false;
if (datasets > 1 && progress)
printf("\nData set # %ld:\n\n",ith);
makedists();
writedists();
}
FClose(infile);
FClose(outfile);
#ifdef MAC
fixmacfile(outfilename);
#endif
printf("Done.\n\n");
#ifdef WIN32
phyRestoreConsoleAttributes();
#endif
return 0;
} /* distances from restriction sites or fragments */
void doinput()
{
/* reads the input data */
inputnumbers(&spp, &chars, &nonodes, 1);
words = chars / bits + 1;
printf("%2ld species, %3ld characters\n", spp, chars);
printf("\nReading input file ...\n\n");
getoptions();
if (weights)
openfile(&weightfile,WEIGHTFILE,"weights file","r",progname,weightfilename);
if(ancvar)
openfile(&ancfile,ANCFILE,"ancestors file", "r",progname,ancfilename);
if(factors)
openfile(&factfile,FACTFILE,"factors file", "r",progname,factfilename);
alloctree(&treenode);
setuptree(treenode);
allocrest();
inputoptions();
inputdata(treenode, dollo, false, stdout);
} /* doinput */
void MPIOpenFile(FILE **fileptr, char *name, char *namestr, char *mode,
char *prog, char *name2)
{
char buffer[BSZ];
char namewnode[BSZ];
int i;
char *j;
int IAM;
MPI_Comm_rank(MPI_COMM_WORLD, &IAM);
sprintf(namewnode,"%s.%d",name,IAM);
sprintf(name2,"%s.%d",name,IAM);
openfile(fileptr,namewnode,namestr,mode,prog,name2);
}
void buildtree()
{
long i, j, nextnode;
node *p;
changed = false;
newtree = false;
switch (how) {
case arb:
arbitree();
break;
case use:
/* Open in binary: ftell() is broken for UNIX line-endings under WIN32 */
openfile(&intree,INTREE,"input tree file", "rb",progname,intreename);
names = (boolean *)Malloc(spp*sizeof(boolean));
firsttree = true; /**/
nodep = NULL; /**/
nextnode = 0; /**/
haslengths = 0; /**/
zeros = (long *)Malloc(chars*sizeof(long)); /**/
for (i = 0; i < chars; i++) /**/
zeros[i] = 0; /**/
treeread(intree, &root, treenode, &goteof, &firsttree, nodep, &nextnode,
&haslengths, &grbg, initdolmovenode,false,nonodes);
for (i = spp; i < (nonodes); i++) {
p = treenode[i];
for (j = 1; j <= 3; j++) {
p->stateone = (bitptr)Malloc(words*sizeof(long));
p->statezero = (bitptr)Malloc(words*sizeof(long));
p = p->next;
}
} /* debug: see comment at initdolmovenode() */
/*treeread(which, ch, &root, treenode, names);*/
for (i = 0; i < (spp); i++)
in_tree[i] = names[i];
free(names);
FClose(intree);
break;
case spec:
yourtree();
break;
}
outgrno = root->next->back->index;
if (in_tree[outgrno - 1])
reroot(treenode[outgrno - 1]);
} /* buildtree */
PhasedProtein * read_fasta_PhasedProtein_file(char * file)
{
PhasedProtein * pp;
FILE * ifp;
ifp = openfile(file,"r");
pp = read_fasta_PhasedProtein(ifp);
fclose(ifp);
return pp;
}
FILE *redirect(int a, Node *b) /* set up all i/o redirections */
{
FILE *fp;
Cell *x;
char *fname;
x = execute(b);
fname = getsval(x);
fp = openfile(a, fname);
if (fp == NULL)
FATAL("can't open file %s", fname);
tempfree(x);
return fp;
}