7e14529975
linkage maps of markers segregating in experimental crosses. MAPMAKER/EXP performs full multipoint linkage analysis (simultaneous estimation of all recombination fractions from the primary data) for dominant, recessive, and co- dominant (e.g. RFLP-like) markers. MAPMAKER/EXP is an experimental-cross-only successor to the original MAPMAKER program. MAPMAKER/QTL is a companion program to MAPMAKER/EXP which allows one to map genes controlling polygenic quantitative traits in F2 intercrosses and BC1 backcrosses relative to a genetic linkage map. More information on MAPMAKER/QTL can be found in the technical report (included with MAPMAKER/QTL). WWW: http://www.broad.mit.edu/ftp/distribution/software/mapmaker3/ PR: ports/122452 Submitted by: Tassilo Philipp <tphilipp at potion-studios.com>
81 lines
2.5 KiB
C
81 lines
2.5 KiB
C
--- lib/shell.c.orig 2008-04-04 20:05:29.000000000 +0000
|
|
+++ lib/shell.c 2008-03-27 21:24:20.000000000 +0000
|
|
@@ -129,7 +129,7 @@
|
|
|
|
run {
|
|
strcpy(name,version_filename);
|
|
- if (!make_filename_in_dir(name,FORCE_EXTENSION,".v",
|
|
+ if (!make_filename_in_dir(name,FORCE_EXTENSION,WRS(".v"),
|
|
FORCE_DIR,CODE_DIR)) send(CANTOPEN);
|
|
fp=open_file(name,READ);
|
|
finput(fp,ln_,MAXLINE); p=ln_; /* don't hack &ln_ */
|
|
@@ -226,7 +226,7 @@
|
|
help_uses_wimp_help= FALSE;
|
|
|
|
help_file=NULL;
|
|
- if (make_filename_in_dir(help_filename,FORCE_EXTENSION,HELP_EXT,
|
|
+ if (make_filename_in_dir(help_filename,FORCE_EXTENSION,WRS(HELP_EXT),
|
|
DEFAULT_DIR,CODE_DIR)) {
|
|
run help_file=open_file(help_filename,READ);
|
|
except_when(CANTOPEN) {}
|
|
@@ -950,7 +950,7 @@
|
|
use_uncrunched_args();
|
|
get_one_arg(stoken,sREQUIRED,file_name);
|
|
|
|
- if (!make_filename(file_name,DEFAULT_EXTENSION,"in"))
|
|
+ if (!make_filename(file_name,DEFAULT_EXTENSION,WRS("in")))
|
|
error("bad input file name");
|
|
else redirect_input(file_name,TRUE); /* verbose -> messages */
|
|
}
|
|
@@ -972,7 +972,7 @@
|
|
usage_error(1);
|
|
|
|
} else if (!nullstr(file_name)) {
|
|
- if (!make_filename(file_name,DEFAULT_EXTENSION,"out"))
|
|
+ if (!make_filename(file_name,DEFAULT_EXTENSION,WRS("out")))
|
|
sf(ps,"error: Bad photo file name");
|
|
if (!photo_to_file(file_name,"a"))
|
|
sf(ps,"error: Unable to open photo file '%s'\n",file_name);
|
|
@@ -1080,12 +1080,12 @@
|
|
else if (topic_help_key[i]==HELPLESS) print(NO_HELP_KEY);
|
|
else {
|
|
fgoto_line(help_file,topic_help_key[i]);
|
|
- fgetln(help_file);
|
|
+ fgetln_(help_file);
|
|
got_any=FALSE;
|
|
while (ln[0]!='@') {
|
|
got_any=TRUE;
|
|
print(ln); nl();
|
|
- fgetln(help_file);
|
|
+ fgetln_(help_file);
|
|
}
|
|
if (!got_any) print(NO_HELP_KEY);
|
|
}
|
|
@@ -1131,12 +1131,12 @@
|
|
else if (cmd[i]->help_key==HELPLESS) print(NO_HELP_KEY);
|
|
else {
|
|
fgoto_line(help_file,cmd[i]->help_key);
|
|
- fgetln(help_file);
|
|
+ fgetln_(help_file);
|
|
got_any=FALSE;
|
|
while (ln[0]!='@') {
|
|
got_any=TRUE;
|
|
print(ln); nl();
|
|
- fgetln(help_file);
|
|
+ fgetln_(help_file);
|
|
}
|
|
if (!got_any) print(NO_HELP_KEY);
|
|
}
|
|
@@ -1164,10 +1164,10 @@
|
|
{ print(NO_HELP_KEY); nl(); print(SURROGATE_ABOUT); }
|
|
else {
|
|
fgoto_line(help_file,n);
|
|
- fgetln(help_file);
|
|
+ fgetln_(help_file);
|
|
while (ln[0]!='@') {
|
|
print(ln); nl();
|
|
- fgetln(help_file);
|
|
+ fgetln_(help_file);
|
|
}
|
|
}
|
|
nl(); print(MOREHELP0); print(MOREHELP1); print(MOREHELP2);
|