File: makesfx.com

package info (click to toggle)
unzip 5.40-1
  • links: PTS
  • area: non-free
  • in suites: potato
  • size: 4,120 kB
  • ctags: 5,900
  • sloc: ansic: 40,977; cpp: 3,778; makefile: 1,384; asm: 1,228; sh: 133
file content (32 lines) | stat: -rw-r--r-- 1,175 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
$!
$!  MAKESFX.COM:  command-procedure to create self-extracting ZIP archives
$!                usage:  @MAKESFX foo    (foo.zip -> foo.exe)
$!
$!  Martin P.J. Zinser 940804
$!
$!
$!  For this to work a symbol unzipsfx has to be defined which contains the 
$!  location of the unzip stub (e.g., unzipsfx:== device:[dir]unzipsfx.exe)
$!
$!  The zipfile given in p1 will be concatenated with unzipsfx and given a
$!  filename extension of .exe.  The default file extension for p1 is .zip
$!
$!  Use at your own risk, there is no guarantee here.  If it doesn't work,
$!  blame me (m.zinser@gsi.de), not the people from Info-ZIP.
$!
$!
$ inf = "''p1'"
$ usfx = f$parse("''unzipsfx'") - ";"
$ file = f$parse("''inf'",,,"DEVICE") + f$parse("''inf'",,,"DIRECTORY") + -
  f$parse("''inf'",,,"NAME") 
$ finf = "''file'" +f$parse("''inf'",".ZIP",,"TYPE") + -
  f$parse("''inf'",,,"VERSION")
$!
$! [GRR 940810:  what is the point of 'name'?  example?  commented out...]
$! $ name = f$extract(12,2,f$time()) + f$extract(15,2,f$time()) + -
$!   f$extract(18,2,f$time()) + f$extract(21,1,f$time())
$!
$ copy 'usfx','finf' 'file'.exe
$ if zip .nes. "" then
$     zip -"A" 'file'.exe
$ exit