github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-02-27 01:09:49 +00:00
Code Issues Releases Wiki Activity

Build IPAK from source.

Browse Source 
Edited to match the C library which has smatch(), not match().
This commit is contained in:
Lars Brinkhoff
2021-08-27 20:26:34 +02:00
parent 70addc4165
commit f5e288805f
3 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
build/misc.tcl
View File

@@ -1500,6 +1500,8 @@ build_c_program "cprog/shell" "sys2/ts.shell" {clib/c10job.stk}
build_c_program "cprog/search" "sys2/ts.search"
build_c_program "cprog/ipak" "sys2/ts.ipak"
# Versatec spooler
# This has some harmless unresolved symbols (FOO, XE4).
respond "*" ":midas sys3;ts versa_dcp; versa\r"

1
doc/programs.md
View File

@@ -168,6 +168,7 @@
- INQUPD, processes INQUIR change requests.
- LSRINI, creates an empty INQUIR database.
- INSTAL, install executables on other ITS machines.
- IPAK, manage archives with encryption.
- IPLJOB, plot display lists.
- ITSDEV, ITS device server.
- ITSTER, Donald Fisk's block-stacking puzzle game.

5
src/cprog/ipak.c
View File

@@ -200,12 +200,12 @@ imatch (s, dp) char *s; desc *dp;
if (fs.fn1)
{c6tos (fs.fn1, pattern);
c6tos (dp->name1, buffer);
if (!match (pattern, buffer)) return (FALSE);
if (!smatch (pattern, buffer)) return (FALSE);
}
if (fs.fn2)
{c6tos (fs.fn2, pattern);
c6tos (dp->name2, buffer);
if (!match (pattern, buffer)) return (FALSE);
if (!smatch (pattern, buffer)) return (FALSE);
}
return (TRUE);
}
@@ -442,4 +442,3 @@ error (s, a1, a2)
{cprint (cerr, s, a1, a2);
cputc ('\n', cerr);
}