aboutsummaryrefslogtreecommitdiffstats
path: root/z03.c
diff options
context:
space:
mode:
authorJeffrey H. Kingston <jeff@it.usyd.edu.au>2010-09-14 20:37:27 +0000
committerJeffrey H. Kingston <jeff@it.usyd.edu.au>2010-09-14 20:37:27 +0000
commit7db8921aac3a0e1223af269ec7092bdd91a7c7a2 (patch)
tree4336d04fbb26c26d23f6d5a3d572b474dd1f70af /z03.c
parenta9f9ae0efa326dc2edc7f2d92ce270f5fdc15b60 (diff)
downloadlout-7db8921aac3a0e1223af269ec7092bdd91a7c7a2.tar.gz
Lout 3.24.
git-svn-id: http://svn.savannah.nongnu.org/svn/lout/trunk@17 9365b830-b601-4143-9ba8-b4a8e2c3339c
Diffstat (limited to 'z03.c')
-rw-r--r--z03.c14
1 files changed, 7 insertions, 7 deletions
diff --git a/z03.c b/z03.c
index eca204e..da93a8f 100644
--- a/z03.c
+++ b/z03.c
@@ -638,7 +638,7 @@ BOOLEAN check_lt, OBJECT *full_name, FILE_POS *xfpos, char *read_mode,
BOOLEAN *used_source_suffix)
{ FULL_CHAR buff[MAX_BUFF], buff2[MAX_BUFF];
OBJECT link, y, cpath; FILE *fp, *fp2;
- debug4(DFS, DD, "SearchPath(%s, %s, %s, %s, -)", str, EchoObject(fpath),
+ debug4(DFS, DD, "[ SearchPath(%s, %s, %s, %s, -)", str, EchoObject(fpath),
bool(check_ld), bool(check_lt));
*used_source_suffix = FALSE;
@@ -646,7 +646,7 @@ BOOLEAN *used_source_suffix)
/* if file name is "stdin" just return it */
if( StringEqual(str, STR_STDIN) )
{
- debug0(DFS, DD, " SearchPath returning stdin");
+ debug0(DFS, DD, "] SearchPath returning stdin");
*full_name = nilobj;
return stdin;
}
@@ -687,7 +687,7 @@ BOOLEAN *used_source_suffix)
debug1(DFS, DD, fp2 == null ? " fail %s" : " succeed %s", buff2);
if( fp2 != null )
{ fclose(fp2);
- debug0(DFS, DD, "SearchPath returning null (adjacent .ld file)");
+ debug0(DFS, DD, "] SearchPath returning null (adjacent .ld file)");
*full_name = nilobj;
return null;
}
@@ -724,7 +724,7 @@ BOOLEAN *used_source_suffix)
{ fclose(fp);
debug1(DFS, DD, "SearchPath calling StringRemove(%s)", buff);
StringRemove(buff);
- debug0(DFS, DD, "SearchPath returning null (.li out of date)");
+ debug0(DFS, DD, "] SearchPath returning null (.li out of date)");
*full_name = nilobj;
return null;
}
@@ -748,7 +748,7 @@ BOOLEAN *used_source_suffix)
}
}
- debug1(DFS, DD, "SearchPath returning (fp %s null)", fp==null ? "==" : "!=");
+ debug1(DFS, DD, "] SearchPath returning (fp %s null)", fp==null ? "==" : "!=");
*full_name = (fp == null || StringLength(string(y)) == 0) ? nilobj :
MakeWord(WORD, buff, xfpos);
return fp;
@@ -776,7 +776,7 @@ BOOLEAN *used_source_suffix)
FILE *OpenFile(FILE_NUM fnum, BOOLEAN check_ld, BOOLEAN check_lt)
{ FILE *fp; OBJECT fname, full_name, y; BOOLEAN used_source_suffix;
ifdebug(DPP, D, ProfileOn("OpenFile"));
- debug2(DFS, DD, "OpenFile(%s, %s)", FileName(fnum), bool(check_ld));
+ debug2(DFS, DD, "[ OpenFile(%s, %s)", FileName(fnum), bool(check_ld));
fname = ftab_num(file_tab, fnum);
if( Down(fname) != fname )
{ Child(y, Down(fname));
@@ -791,7 +791,7 @@ FILE *OpenFile(FILE_NUM fnum, BOOLEAN check_ld, BOOLEAN check_lt)
used_suffix(fname) = used_source_suffix;
}
ifdebug(DPP, D, ProfileOff("OpenFile"));
- debug1(DFS, DD, "OpenFile returning (fp %s null)", fp==null ? "==" : "!=");
+ debug1(DFS, DD, "] OpenFile returning (fp %s null)", fp==null ? "==" : "!=");
return fp;
} /* end OpenFile */