From f5e288805fd034256670c12d1595b48708285c8f Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Fri, 27 Aug 2021 20:26:34 +0200 Subject: [PATCH] Build IPAK from source. Edited to match the C library which has smatch(), not match(). --- build/misc.tcl | 2 ++ doc/programs.md | 1 + src/cprog/ipak.c | 5 ++--- 3 files changed, 5 insertions(+), 3 deletions(-) diff --git a/build/misc.tcl b/build/misc.tcl index d27518db..b9dfc6fd 100644 --- a/build/misc.tcl +++ b/build/misc.tcl @@ -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" diff --git a/doc/programs.md b/doc/programs.md index ac467153..9e02df3e 100644 --- a/doc/programs.md +++ b/doc/programs.md @@ -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. diff --git a/src/cprog/ipak.c b/src/cprog/ipak.c index f3486203..293c6489 100644 --- a/src/cprog/ipak.c +++ b/src/cprog/ipak.c @@ -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); } - \ No newline at end of file