home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume30 / parseargs / patch13 / PATCH13
Encoding:
Text File  |  1992-06-20  |  19.6 KB  |  536 lines
  1. *** patchlevel.h.parseargs_patch12    Sat May 30 18:10:20 1992
  2. --- patchlevel.h    Sat May 30 17:46:52 1992
  3. ***************
  4. *** 3,8 ****
  5. --- 3,13 ----
  6.   **
  7.   ** ^HISTORY:
  8.   **
  9. + **    05/30/92    Brad Appleton    <brad@ssd.csd.harris.com>
  10. + **    Patch13
  11. + **    - Finishing touches to get parseargs working successfully with
  12. + **      the tcl shell (parseargs.tcl works now).
  13. + **
  14.   **    05/18/92    Brad Appleton    <brad@ssd.csd.harris.com>
  15.   **    Patch12
  16.   **    - Fixes to the Makefile and for tcl.
  17. ***************
  18. *** 161,167 ****
  19.   
  20.   #define  VERSION     2
  21.   #define  REVISION    0
  22. ! #define  PATCHLEVEL  12
  23.   
  24.   #ifdef __STDC__
  25.      static const char
  26. --- 166,172 ----
  27.   
  28.   #define  VERSION     2
  29.   #define  REVISION    0
  30. ! #define  PATCHLEVEL  13
  31.   
  32.   #ifdef __STDC__
  33.      static const char
  34. ***************
  35. *** 168,171 ****
  36.   #else
  37.      static char
  38.   #endif
  39. !    _Ident[] = "@(#)parseargs  2.0  patchlevel 12";
  40. --- 173,176 ----
  41.   #else
  42.      static char
  43.   #endif
  44. !    _Ident[] = "@(#)parseargs  2.0  patchlevel 13";
  45. *** Makefile.parseargs_patch12    Sat May 30 18:10:17 1992
  46. --- Makefile    Sat May 30 17:46:42 1992
  47. ***************
  48. *** 23,28 ****
  49. --- 23,29 ----
  50.   LIBDIR = ${LOCAL}/lib
  51.   INCDIR = ${LOCAL}/include
  52.   PERLLIB = ${LIBDIR}/perl
  53. + TCLLIB = ${LIBDIR}/tcl
  54.   
  55.   ###
  56.   # compilation options
  57. ***************
  58. *** 99,106 ****
  59.           doc/sparseargs3.inc \
  60.           doc/usage3.inc \
  61.           doc/vparseargs3.inc
  62. ! SCRIPTS =    test.sh  test.csh  test.ksh  test.rc  test.awk  test.pl
  63.   PERLSUB =    ${NAME}.pl
  64.   XXFILES =    Intro  README  MANIFEST  Makefile  VMSbuild.com
  65.   
  66.   HDRS =    ${NAME}.h \
  67. --- 100,108 ----
  68.           doc/sparseargs3.inc \
  69.           doc/usage3.inc \
  70.           doc/vparseargs3.inc
  71. ! SCRIPTS =    test.sh  test.csh  test.ksh  test.rc  test.awk  test.pl test.tcl
  72.   PERLSUB =    ${NAME}.pl
  73. + TCLSUB  =    ${NAME}.tcl
  74.   XXFILES =    Intro  README  MANIFEST  Makefile  VMSbuild.com
  75.   
  76.   HDRS =    ${NAME}.h \
  77. ***************
  78. *** 138,144 ****
  79.   PROG_OBJS =  ${NAME}.o   unix_man.o
  80.   TEST_OBJS =  stest.o
  81.   
  82. ! FILES =    ${XXFILES} ${DOCS} ${HDRS} ${SRCS} ${PERLSUB} ${SCRIPTS}
  83.   
  84.   ###
  85.   # target dependencies
  86. --- 140,146 ----
  87.   PROG_OBJS =  ${NAME}.o   unix_man.o
  88.   TEST_OBJS =  stest.o
  89.   
  90. ! FILES =    ${XXFILES} ${DOCS} ${HDRS} ${SRCS} ${PERLSUB} ${TCLSUB} ${SCRIPTS}
  91.   
  92.   ###
  93.   # target dependencies
  94. ***************
  95. *** 184,203 ****
  96.            ${LIBDIR}/${LIBFILE} \
  97.            ${LOCAL}/${PROGRAM}
  98.   
  99. !  ${INCDIR}/${NAME}.h: ${NAME}.h useful.h
  100.       ( ${CHDIR} ${INCDIR}; ${DEL} ${NAME}.h useful.h )
  101.       ${COPY} ${NAME}.h useful.h ${INCDIR}
  102.   
  103. !  ${LIBDIR}/${LIBFILE}: ${LIBARGS}
  104.       ${DEL}   ${LIBDIR}/${LIBFILE}
  105.       ${COPY} ${LIBARGS}   ${LIBDIR}/${LIBFILE}
  106.       ${RANLIB}   ${LIBDIR}/${LIBFILE}
  107.   
  108. !  ${LOCAL}/${PROGRAM}: ${PROGRAM} ${PERLSUB}
  109. !     ${DEL} ${LOCAL}/${PROGRAM} ${PERLIB}/${PERLSUB}
  110.       ${COPY} ${PROGRAM} ${LOCAL}
  111.       ${STRIP} ${LOCAL}/${PROGRAM}
  112. !     ${COPY} ${PERLSUB} ${PERLLIB}
  113.   
  114.   ###
  115.   # maintenance dependencies
  116. --- 186,206 ----
  117.            ${LIBDIR}/${LIBFILE} \
  118.            ${LOCAL}/${PROGRAM}
  119.   
  120. ! ${INCDIR}/${NAME}.h: ${NAME}.h useful.h
  121.       ( ${CHDIR} ${INCDIR}; ${DEL} ${NAME}.h useful.h )
  122.       ${COPY} ${NAME}.h useful.h ${INCDIR}
  123.   
  124. ! ${LIBDIR}/${LIBFILE}: ${LIBARGS}
  125.       ${DEL}   ${LIBDIR}/${LIBFILE}
  126.       ${COPY} ${LIBARGS}   ${LIBDIR}/${LIBFILE}
  127.       ${RANLIB}   ${LIBDIR}/${LIBFILE}
  128.   
  129. ! ${LOCAL}/${PROGRAM}: ${PROGRAM} ${PERLSUB} ${TCLSUB}
  130. !     -${DEL} ${LOCAL}/${PROGRAM} ${PERLIB}/${PERLSUB} ${TCLLIB}/${TCLSUB}
  131.       ${COPY} ${PROGRAM} ${LOCAL}
  132.       ${STRIP} ${LOCAL}/${PROGRAM}
  133. !     -${COPY} ${PERLSUB} ${PERLLIB}
  134. !     -${COPY} ${TCLSUB} ${TCLLIB}
  135.   
  136.   ###
  137.   # maintenance dependencies
  138. *** test.tcl.parseargs_patch12    Sat May 30 18:10:20 1992
  139. --- test.tcl    Sat May 30 17:46:55 1992
  140. ***************
  141. *** 1,7 ****
  142. ! #!/usr/bin/tcl -q
  143.   
  144. ! source parseargs.tcl
  145.   
  146.   set arguments {
  147.     { '?', ARGHIDDEN, argUsage, NULL,    "Help : print usage and exit" },
  148.     { 'S', ARGVALOPT, argStr,   string,  "STRing : optional string arg" },
  149. --- 1,9 ----
  150. ! #!/usr/local/bin/tcl
  151.   
  152. ! load "parseargs.tcl"
  153.   
  154. + set scriptName "test.tcl"
  155. + 
  156.   set arguments {
  157.     { '?', ARGHIDDEN, argUsage, NULL,    "Help : print usage and exit" },
  158.     { 'S', ARGVALOPT, argStr,   string,  "STRing : optional string arg" },
  159. ***************
  160. *** 20,32 ****
  161.   set count 1
  162.   set dirname "."
  163.   set sepch ","
  164. ! set xflag ""
  165. ! set yflag "TRUE"
  166.   set files {}
  167.   set groups {}
  168. - set name ""
  169.   set string ""
  170. - set string_flag ""
  171.   
  172.   eval [ parseargs -u -a $arguments $scriptName $argv ]
  173.   
  174. --- 22,32 ----
  175.   set count 1
  176.   set dirname "."
  177.   set sepch ","
  178. ! set xflag 0
  179. ! set yflag 1
  180.   set files {}
  181.   set groups {}
  182.   set string ""
  183.   
  184.   eval [ parseargs -u -a $arguments $scriptName $argv ]
  185.   
  186. ***************
  187. *** 41,47 ****
  188.   echo "SepChar = $sepch"
  189.   echo "Name = $name"
  190.   echo "Files = $files"
  191. ! if {( "$string_flag" != "") } {
  192.     if {( "$string" == "" )} {
  193.       set string "!string arg ommitted on cmd-line!"
  194.     }
  195. --- 41,47 ----
  196.   echo "SepChar = $sepch"
  197.   echo "Name = $name"
  198.   echo "Files = $files"
  199. ! if {( [info exists string_flag] )} {
  200.     if {( "$string" == "" )} {
  201.       set string "!string arg ommitted on cmd-line!"
  202.     }
  203. *** doc/parseargs.man1.parseargs_patch12    Sat May 30 18:10:18 1992
  204. --- doc/parseargs.man1    Sat May 30 17:46:46 1992
  205. ***************
  206. *** 348,359 ****
  207.   specified to \fBparseargs\fP.
  208.   .\"-----------------------------------------------------------
  209.   .SH FILES
  210. ! .IP "\fI/usr/local/parseargs.pl\fP"
  211.   This file defines a \fIperl\fP function named \fIparseargs\fP to parse
  212.   arguments more conveniently for perl-scripts. The function is 
  213.   both documented and implemented in this file. The user should
  214.   ``require'' this file in his/her perl-script before invoking the
  215.   function.
  216.   .IP "\fI/usr/local/parseargs.awk\fP"
  217.   This file defines an \fIawk\fP function named \fIparseargs\fP to parse
  218.   arguments more conveniently for awk-scripts. The function is 
  219. --- 348,365 ----
  220.   specified to \fBparseargs\fP.
  221.   .\"-----------------------------------------------------------
  222.   .SH FILES
  223. ! .IP "\fI/usr/local/lib/perl/parseargs.pl\fP"
  224.   This file defines a \fIperl\fP function named \fIparseargs\fP to parse
  225.   arguments more conveniently for perl-scripts. The function is 
  226.   both documented and implemented in this file. The user should
  227.   ``require'' this file in his/her perl-script before invoking the
  228.   function.
  229. + .IP "\fI/usr/local/lib/tcl/parseargs.tcl\fP"
  230. + This file defines a \fItcl\fP procedure named \fIparseargs\fP to parse
  231. + arguments more conveniently for tcl-scripts. The procedure is 
  232. + both documented and implemented in this file. The user should
  233. + ``load'' this file in his/her tcl-script before invoking the
  234. + procedure.
  235.   .IP "\fI/usr/local/parseargs.awk\fP"
  236.   This file defines an \fIawk\fP function named \fIparseargs\fP to parse
  237.   arguments more conveniently for awk-scripts. The function is 
  238. *** parseargs.tcl.parseargs_patch12    Sat May 30 18:10:19 1992
  239. --- parseargs.tcl    Sat May 30 17:46:49 1992
  240. ***************
  241. *** 13,21 ****
  242.   # ^PROCEDURE: parseargs - parse command-line argument lists
  243.   #
  244.   # ^SYNOPSIS:
  245. ! #    parseargs <options> -- $scriptName arg [arg ...]
  246.   #
  247.   #        where <options> is any valid option combination for parseargs(1)
  248.   #
  249.   # ^DESCRIPTION:
  250.   #    Parseargs will invoke parseargs(1) with the options and arguments
  251. --- 13,22 ----
  252.   # ^PROCEDURE: parseargs - parse command-line argument lists
  253.   #
  254.   # ^SYNOPSIS:
  255. ! #    parseargs <options> -- $scriptName $argv
  256.   #
  257.   #        where <options> is any valid option combination for parseargs(1)
  258. + #        and $argv is a list.
  259.   #
  260.   # ^DESCRIPTION:
  261.   #    Parseargs will invoke parseargs(1) with the options and arguments
  262. ***************
  263. *** 22,122 ****
  264.   #    specified by the caller.
  265.   #
  266.   # ^RETURN-VALUE:
  267. ! #    A string of variable settings for the caller to evaluate
  268.   #
  269.   # ^EXAMPLE:
  270. ! #     #!/usr/bin/tcl -q
  271.   #     
  272. ! #     source parseargs.tcl
  273.   #     
  274.   #     set arguments {
  275. ! #       { '?', ARGHIDDEN, argUsage, NULL,    "Help : print usage and exit" },
  276. ! #       { 'S', ARGVALOPT, argStr,   string,  "STRing : optional string arg" },
  277. ! #       { 'g', ARGLIST,   argStr,   groups,  "newsGROUPS : groups to test" },
  278. ! #       { 'r', ARGOPT,    argInt,   count,   "REPcount : group repeat count" },
  279. ! #       { 'd', ARGOPT,    argStr,   dirname, "DIRectory : working directory" },
  280. ! #       { 'x', ARGOPT,    argBool,  xflag,   "Xflag : turn on X-mode" },
  281. ! #       { 'y', ARGOPT,    argUBool, yflag,   "Yflag : turn off Y-mode" },
  282. ! #       { 's', ARGOPT,    argChar,  sepch,   "SEPchar : field separator" },
  283. ! #       { 'f', ARGLIST,   argStr,   files,   "files : files to process" },
  284. ! #       { 'n', ARGREQ|ARGPOS, argStr, name,  "name : name to use" },
  285. ! #       { ' ', ARGLIST,   argStr,   argv,    "argv : remaining arguments" },
  286. ! #       ENDOFARGS
  287.   #     }
  288.   #     
  289.   #     set count 1 ;    set dirname "." ;   set sepch "," ;
  290. ! #     set xflag "" ;   set yflag "TRUE" ;
  291. ! #     set files {} ;   set groups {} ;  set name "" ;
  292. ! #     set string "" ;  set string_flag "" ;
  293.   #     
  294. ! #     eval [ parseargs -u -a $arguments $scriptName $argv ]
  295.   #
  296. - #
  297. - # ^ALGORITHM:
  298. - #    We need to do an "eval exec parseargs $args" in order have exec
  299. - #    treat $args as many arguments instead of just one argument. Before
  300. - #    we can do that however, we must quote each argument in $args and
  301. - #    escape any special characters that it contains.  Hence we have the
  302. - #    following algorithm:
  303. - #
  304. - #       - quote and escape special character for each arg in $args
  305. - #       - do an "eval exec $args" and save the results
  306. - #       - if parseargs(1) exit-status is non-zero than exit (and make
  307. - #            sure the parseargs message(s) is/are printed).
  308. - #         else
  309. - #            return the standard-output of parseargs(1)
  310. - #         endif
  311. - #
  312. - #
  313. - # ^BUGS:
  314. - #    Actually - this procedure doesnt work. It has some problems,
  315. - #    some of which I know about and can describe below:
  316. - #
  317. - # 1) TCL refuses to let ME do the error-checking after exec'ing parseargs(1).
  318. - #    What I need to do is look at the exit-status and exit if it is non-zero.
  319. - #    If parseargs happens to write anything to stderr (which it always does
  320. - #    if it prints usage or a syntax error) then TCL automatically terminates
  321. - #    my procedure (not the process) and doesnt let me check the exit-status.
  322. - #
  323. - # 2) Error messages printed by parseargs(1) are prefixed with "Error: "
  324. - #    and suffixed by some other error-message info added by TCL. I dont
  325. - #    want ANY of this, just let parseargs(1) print the error text and dont
  326. - #    embellish it. As a fix, I tried to have parseargs(1) write error messages
  327. - #    to stdout (for TCL only) and exit with a non-zero status. This didnt
  328. - #    work at all (and Im not completely sure as to why).
  329. - #
  330. - # 3) I ought to be able to use far fewer "regsub" statements below but I
  331. - #    couldnt seem to get "&" or "\0" to work as documented as substitution
  332. - #    strings.
  333. - #
  334. - # If you happen to get this procedure (along with test.tcl) working, then
  335. - # please, PLEASE let me know and tell me how you did it!!
  336. - #
  337.   ###^^####
  338.   proc parseargs args {
  339. !    set escaped_args {}
  340. !    foreach arg $args {
  341. !       regsub -all "\\\\" "$arg" "\\\\" arg
  342. !       regsub -all "\\\$" "$arg" "\\\$" arg
  343. !       regsub -all "\\\[" "$arg" "\\\[" arg
  344. !       regsub -all "\]" "$arg" "\\\]" arg
  345. !       regsub -all "\{" "$arg" "\\\{" arg
  346. !       regsub -all "\]" "$arg" "\\\]" arg
  347. !       regsub -all "\"" "$arg" "\\\"" arg
  348. !       regsub -all "\t" "$arg" "\\t" arg
  349. !       regsub -all "\n" "$arg" "\\n" arg
  350. !       regsub -all "\r" "$arg" "\\r" arg
  351. !       regsub -all "\v" "$arg" "\\v" arg
  352. !       regsub -all "\f" "$arg" "\\f" arg
  353. !       regsub -all "\b" "$arg" "\\b" arg
  354. !       append escaped_args " \"$arg\""
  355.      }
  356. -    set  errorCode {}
  357. -    set  opt_settings [ eval exec parseargs -s tcl $escaped_args ]
  358. -    if {( $errorCode != {} )} { 
  359. -       ## echo $opt_settings
  360. -       exit [lindex $errorCode 2]
  361. -    }
  362. -    return  $opt_settings ;
  363.   }
  364.   
  365. --- 23,97 ----
  366.   #    specified by the caller.
  367.   #
  368.   # ^RETURN-VALUE:
  369. ! #    A string of variable settings for the caller to evaluate. 
  370. ! #    If parseargs(1) exits with a non-zero status, then execution
  371. ! #    is terminated.
  372.   #
  373.   # ^EXAMPLE:
  374. ! #     #!/usr/local/bin/tcl
  375.   #     
  376. ! #     load parseargs.tcl
  377.   #     
  378.   #     set arguments {
  379. ! #        { '?', ARGHIDDEN, argUsage, NULL,    "Help : print usage and exit" },
  380. ! #        { 'S', ARGVALOPT, argStr,   string,  "STRing : optional string arg" },
  381. ! #        { 'g', ARGLIST,   argStr,   groups,  "newsGROUPS : groups to test" },
  382. ! #        { 'r', ARGOPT,    argInt,   count,   "REPcount : group repeat count" },
  383. ! #        { 'd', ARGOPT,    argStr,   dirname, "DIRectory : working directory" },
  384. ! #        { 'x', ARGOPT,    argBool,  xflag,   "Xflag : turn on X-mode" },
  385. ! #        { 'y', ARGOPT,    argUBool, yflag,   "Yflag : turn off Y-mode" },
  386. ! #        { 's', ARGOPT,    argChar,  sepch,   "SEPchar : field separator" },
  387. ! #        { 'f', ARGLIST,   argStr,   files,   "files : files to process" },
  388. ! #        { 'n', ARGREQ|ARGPOS, argStr, name,  "name : name to use" },
  389. ! #        { ' ', ARGLIST,   argStr,   argv,    "argv : any remaining args" },
  390. ! #        ENDOFARGS
  391.   #     }
  392.   #     
  393.   #     set count 1 ;    set dirname "." ;   set sepch "," ;
  394. ! #     set xflag 0 ;    set yflag 1 ;
  395. ! #     set files {} ;   set groups {} ;
  396. ! #     set string "" ;
  397.   #     
  398. ! #     eval [ parseargs -decls $arguments $scriptName $argv ]
  399.   #
  400.   ###^^####
  401.   proc parseargs args {
  402. !       ## set temp-file name
  403. !    if {( ! [info exists env] )}  { set env(TMP) "/tmp" }
  404. !    if {( $env(TMP) == "" )}  { set env(TMP) "/tmp" }
  405. !    set tmpFileName "$env(TMP)/tmp[id process]"
  406. ! 
  407. !        ## isolate the last argument (a list) from the rest
  408. !    set last [expr {[llength $args] - 1}]
  409. !    set cmdArgv [lindex $args $last]
  410. !    set cmdOpts [lrange $args 0 [expr {$last - 1}]]
  411. ! 
  412. !       ## fork and exec
  413. !    if {( [set childPid [fork]] == 0 )} {
  414. !          ## This is the child ...
  415. !          ##    redirect stdout to temp-file and exec parseargs(1)
  416. !          ##
  417. !       set tmpFile [open $tmpFileName "w"]
  418. !       close stdout
  419. !       dup $tmpFile stdout
  420. !       close $tmpFile
  421. !       execl parseargs [concat -s tcl $cmdOpts $cmdArgv]
  422. !    } else {
  423. !          ## This is the parent ...
  424. !          ##    wait for the child, check its status, then return its output
  425. !          ##    dont forget to remove the temp-file.
  426. !          ##
  427. !       set childStatus [wait $childPid]
  428. !       set how [lindex $childStatus 1]
  429. !       set ret [lindex $childStatus 2]
  430. !       if {( ($how == "EXIT")  &&  ($ret == 0) )} {
  431. !          set variableSettings [exec cat $tmpFileName]
  432. !          unlink -nocomplain $tmpFileName
  433. !          return $variableSettings
  434. !       } else {
  435. !          unlink -nocomplain $tmpFileName
  436. !          exit [expr {$how == "EXIT" ? $ret : 127}]
  437. !       }
  438.      }
  439.   }
  440.   
  441. *** MANIFEST.parseargs_patch12    Sat May 30 18:10:16 1992
  442. --- MANIFEST    Sat May 30 17:46:39 1992
  443. ***************
  444. *** 5,11 ****
  445.    Makefile                   2    makefile for parseargs library
  446.    README                     1    release information
  447.    VMSbuild.com               2    VMS makefile for the parseargs library
  448. !  amiga_args.c               5    parse AmigaDOS command-lines
  449.    arglist.c                  3    implement the listXxxx functions for arglists
  450.    argtype.c                  5    implement the argXxxx argument type functions
  451.    doc                        1    directory containing documentation
  452. --- 5,11 ----
  453.    Makefile                   2    makefile for parseargs library
  454.    README                     1    release information
  455.    VMSbuild.com               2    VMS makefile for the parseargs library
  456. !  amiga_args.c               4    parse AmigaDOS command-lines
  457.    arglist.c                  3    implement the listXxxx functions for arglists
  458.    argtype.c                  5    implement the argXxxx argument type functions
  459.    doc                        1    directory containing documentation
  460. ***************
  461. *** 34,40 ****
  462.    doc/parsecntl.man3         1    {n,t}roff source for parsecntl(3)
  463.    doc/parsecntl3.inc         1    describe parsecntl(3)
  464.    doc/parsecntls.inc         2    describe function-codes for parsecntl(3)
  465. !  doc/parseflags.inc         3    describe parse flags
  466.    doc/parsemodes.inc         1    describe modes for parsecntl(3)
  467.    doc/returns.inc            2    describe function return values
  468.    doc/sh_arrays.inc          3    describe handling of shell arrays
  469. --- 34,40 ----
  470.    doc/parsecntl.man3         1    {n,t}roff source for parsecntl(3)
  471.    doc/parsecntl3.inc         1    describe parsecntl(3)
  472.    doc/parsecntls.inc         2    describe function-codes for parsecntl(3)
  473. !  doc/parseflags.inc         2    describe parse flags
  474.    doc/parsemodes.inc         1    describe modes for parsecntl(3)
  475.    doc/returns.inc            2    describe function return values
  476.    doc/sh_arrays.inc          3    describe handling of shell arrays
  477. ***************
  478. *** 43,52 ****
  479.    doc/usage3.inc             1    describe usage(3)
  480.    doc/vparseargs3.inc        1    describe vparseargs(3)
  481.    exit_codes.h               1    #defines for arguments to exit(3C)
  482. !  ibm_args.c                 6    parse MS-DOS and OS/2 command-lines
  483.    parseargs.awk              3    parseargs for awk
  484. !  parseargs.c               10    C source for parseargs(1)
  485. !  parseargs.h                8    include file for parseargs library
  486.    parseargs.pl               2    parseargs for perl
  487.    parseargs.tcl              2    parseargs for tcl
  488.    patchlevel.h               3    list of patches (most recent first)
  489. --- 43,52 ----
  490.    doc/usage3.inc             1    describe usage(3)
  491.    doc/vparseargs3.inc        1    describe vparseargs(3)
  492.    exit_codes.h               1    #defines for arguments to exit(3C)
  493. !  ibm_args.c                 5    parse MS-DOS and OS/2 command-lines
  494.    parseargs.awk              3    parseargs for awk
  495. !  parseargs.c                9    C source for parseargs(1)
  496. !  parseargs.h                7    include file for parseargs library
  497.    parseargs.pl               2    parseargs for perl
  498.    parseargs.tcl              2    parseargs for tcl
  499.    patchlevel.h               3    list of patches (most recent first)
  500. ***************
  501. *** 53,59 ****
  502.    pgopen.c                   4    pipe output to a pager
  503.    pgopen.h                   1    include file for pgopen.c
  504.    stest.c                    4    test program for parseargs(3)
  505. !  strfuncs.c                 7    string library
  506.    strfuncs.h                 2    include file for strfuncs.c
  507.    syserr.c                   3    diagnostic message printing routines
  508.    test.awk                   3    awk test program for parseargs(1)
  509. --- 53,59 ----
  510.    pgopen.c                   4    pipe output to a pager
  511.    pgopen.h                   1    include file for pgopen.c
  512.    stest.c                    4    test program for parseargs(3)
  513. !  strfuncs.c                 6    string library
  514.    strfuncs.h                 2    include file for strfuncs.c
  515.    syserr.c                   3    diagnostic message printing routines
  516.    test.awk                   3    awk test program for parseargs(1)
  517. ***************
  518. *** 66,73 ****
  519.    test.zsh                   2    Z shell test program for parseargs(1)
  520.    unix_args.c                5    parse Unix command-lines
  521.    unix_man.c                 4    print Unix manual-page templates
  522. !  useful.h                   4    common include file for the library
  523.    vms_args.c                 6    parse VAX/VMS DCL command-lines
  524.    vprintf.c                  3    portable vfprintf, vprintf, and vsprintf
  525.    winsize.c                  3    determine # rows and # columns of window
  526. !  xparse.c                   9    implement the parseargs library
  527. --- 66,73 ----
  528.    test.zsh                   2    Z shell test program for parseargs(1)
  529.    unix_args.c                5    parse Unix command-lines
  530.    unix_man.c                 4    print Unix manual-page templates
  531. !  useful.h                   3    common include file for the library
  532.    vms_args.c                 6    parse VAX/VMS DCL command-lines
  533.    vprintf.c                  3    portable vfprintf, vprintf, and vsprintf
  534.    winsize.c                  3    determine # rows and # columns of window
  535. !  xparse.c                   8    implement the parseargs library
  536.