HP3000-L Archives

January 2003, Week 4

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Stan Sieler <[log in to unmask]>
Reply To:
Stan Sieler <[log in to unmask]>
Date:
Wed, 22 Jan 2003 17:32:23 -0800
Content-Type:
text/plain
Parts/Attachments:
text/plain (112 lines)
Re:
> I'm currently looking for an avenue that would allow us to take a existing
> HP3000 application package on tape, which we manufacture, and output it
> into an executable so that it could be housed on a Web Server where our
> customers could download it to their HP3000 platform.

We package up our programs/applications into one or more of
three formats:

  LZW file ... using Telamon's excellent LZW program

  STORE-to-disk... using TurboSTORE.  Note that the restore-from-disk
  is on all systems, not just those thought bought TurboSTORE.

  compressed tar (tar.Z)

Here are some sample packages:

-rw-r--r--    1 sieler   sieler     109568 Jan 17 14:01 TIMEMPE.LZW
-rw-r--r--    1 sieler   sieler     139008 Jan 17 14:01 TIMEMPE.std
-rw-r--r--    1 sieler   sieler     107520 Jan 17 14:01 TIMEMPE.tar.Z

-rw-r--r--    1 sieler   sieler     181248 Jan 17 14:01 UPTIME.LZW
-rw-r--r--    1 sieler   sieler     264448 Jan 17 14:01 UPTIME.std
-rw-r--r--    1 sieler   sieler     171008 Jan 17 14:01 UPTIME.tar.Z


you might notice the size advantage of tar.Z and LZW.


I build an LZW package with the command file "makelzw.cmd":

   parm module, cmnm=NM
   anyparm files

   if finfo ("!module.LZW", "exists") then
      purge !module.LZW
      endif

   if "!cmnm"="CM" then
      setvar _flags "-m 12"
   else
      setvar _flags " "
      endif

   setvar _files repl ("!files", ",", " ")
   option list
   run lzw.pub.telamon;info="-terse -x !_flags -f !module.LZW -s !_files"

   tobyte.hpbin.sys "!module.LZW /tmp/!module.LZW"
   option nolist
   purge !module.LZW
   deletevar _flags

Then, to create an LZW package for FOO.@, I do:

    :makelzw FOO, FOO.PUB, FOO.JOB, FOO.HELP

which copies the files FOO.PUB, FOO.JOB, and FOO.HELP into
a temporary LZW-format file called FOO.LZW
and leaves the byte-stream file in /tmp/FOO.LZW

I create a STORE-to-disk package with "makestd.cmd":

   parm module
   anyparm files

   if finfo ("temp", "exists") then
      purge temp
      endif

   file temp; dev=disc
   option list
   store !files; *temp; compress; show

   tobyte.hpbin.sys "temp /tmp/!module.std"
   purge temp

And, I create a compressed TAR package with "maketar.cmd":

   parm module
   anyparm files

   if finfo ("TEMP", "exists") then
      purge TEMP
      endif

   setvar _files "!files"
   setvar _files repl (_files, "@", "*")
   setvar _files repl (_files, ",", " ")

   echo !_files

   option list
   echo tar cvzf /tmp/!module.tar.Z !_files > TEMP
   run sh.hpbin.sys < TEMP
   purge TEMP,temp

I then move the packages from /tmp to our web server via ftp.

Our web site has instructions on how to unpack each of the above
types of packages at http://www.allegro.com/software/hp3000/

Hope that helps!
--
Stan Sieler
[log in to unmask]
www.allegro.com/sieler/wanted/index.html

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2