home *** CD-ROM | disk | FTP | other *** search
/ Der Mediaplex Sampler - Die 6 von Plex / 6_v_plex.zip / 6_v_plex / DISK5 / DOS_01 / 4DVC31.ZIP / 4DVC.BTM next >
Text File  |  1991-01-04  |  12KB  |  242 lines
  1. @echo off
  2.    setlocal
  3.    unalias *
  4.    cls
  5.    set VCAUTO=
  6.    set VCPATH=%@search[4DVCCHK.BTM]
  7.    iff "%VCPATH" EQ "" then
  8.       echo Cannot locate 4DVCCHK.BTM
  9.       echo This file needs to either be in your current directory
  10.       echo       (%_CWD)
  11.       echo or in one of the directories specified in your PATH Environment Variable.
  12.       set VCPATH=
  13.       quit
  14.    else
  15.       call 4DVCCHK.BTM
  16.    endiff
  17. :VCENTRY
  18.    iff "%VCAUTO" NE "" then
  19.       set VCAUTO=
  20.       cls
  21.       quit
  22.    endiff
  23.    drawbox 00 00 24 79 0 bri whi on blu fill blu
  24.    drawbox 00 16 10 63 2 bri whi on red fill red
  25.    scrput 01 18 bri whi on red `      ▄██   ██▀▀▀▀▀█▄  ██      ██  ▄█▀▀▀▀█▄ `
  26.    scrput 02 18 bri whi on red `    ▄█▀██   ██      ██ ██      ██ ██      ▀█`
  27.    scrput 03 18 bri whi on red `  ▄█▀  ██   ██      ██ ██      ██ ██        `
  28.    scrput 04 18 bri whi on red `▄█▀    ██   ██      ██  ██    ██  ██        `
  29.    scrput 05 18 bri whi on red `██▄▄▄▄▄██▄▄ ██      ██   ██  ██   ██        `
  30.    scrput 06 18 bri whi on red `       ██   ██      ██    ████    ██      ▄█`
  31.    scrput 07 18 bri whi on red `       ██   ██▄▄▄▄▄█▀      ██      ▀█▄▄▄▄█▀ `
  32.    scrput 09 34 bri whi on red Version 3.10
  33.    drawbox 01 00 09 15 4     yel on bla fill bla
  34.    scrput 02 06 bri yel on bla 4DOS
  35.    scrput 03 05 bri yel on bla Version
  36.    scrput 04 05 bri yel on bla Control
  37.    scrput 05 02     yel on bla A Poor-Man's
  38.    scrput 06 05     yel on bla Version
  39.    scrput 07 05     yel on bla Control
  40.    scrput 08 05     yel on bla System
  41.    drawbox 01 64 09 79 4     yel on bla fill bla
  42.    scrput 02 66 bri yel on bla Released to
  43.    scrput 03 65 bri yel on bla Public-Domain
  44.    scrput 05 67 bri yel on bla 10/22/90
  45.    scrput 07 66     yel on bla by Ric Naff
  46.    scrput 08 66     yel on bla Dallas, TX
  47.    drawbox 11 15 22 64 4 bri whi on blu fill blu
  48.    scrput 12 17 bri whi on blu A   Add files to Version-Control Archive
  49.    scrput 14 17 bri whi on blu X   Xtract files from Version-Control Archive
  50.    scrput 15 21     whi on blu     (This will create/overlay existing files)
  51.    scrput 17 17 bri whi on blu K   Kill files in Version-Control Archive
  52.    scrput 19 17 bri whi on blu P   Pack archive files (use after Kill)
  53.    scrput 21 17 bri whi on blu I   Information about 4DVC
  54.    drawvline  11 19 12 2 bri whi on blu
  55.    drawhline  13 15 50 1 bri whi on blu
  56.    drawhline  16 15 50 1 bri whi on blu
  57.    drawhline  18 15 50 1 bri whi on blu
  58.    drawhline  20 15 50 2 bri whi on blu
  59.    scrput 23 19 bri whi on red Your Choice (A X K P I or Enter to quit)?
  60. :VCTOP
  61.    screen 23 60
  62.    iff "%1" NE "" then
  63.       set VCRESP=%1
  64.       shift
  65.       set VCAUTO=X
  66.    else
  67.       inkey /W180 %%VCRESP
  68.    endiff
  69.    iff "%VCRESP" EQ "" then
  70.       cls
  71.       quit
  72.    endiff
  73.    set VCRESP=%@upper[%VCRESP]
  74.    if "%VCRESP" EQ "A" goto VCADD
  75.    if "%VCRESP" EQ "X" goto VCXTR
  76.    if "%VCRESP" EQ "K" goto VCKILL
  77.    if "%VCRESP" EQ "P" goto VCPAK
  78.    if "%VCRESP" EQ "I" goto VCINQ
  79.    if "%VCRESP" EQ "" quit
  80.    set VCAUTO=
  81.    shift %#
  82.    goto VCTOP
  83. :VCADD
  84.    unset VCRESP
  85.    cls
  86.    drawbox 00 00 24 79 0 bri whi on blu fill blu
  87.    scrput  01 00 bri whi on red ` ADD file(s) to an archive. `
  88.    scrput  02 01 bri whi on blu Enter File-Specs for SELECT or press ENTER to accept defaults:
  89.    scrput  03 00     whi on blu [                                                                              ]
  90.    scrput  05 00     whi on blu Example: *.C *.H *.MAK *.BAT *.BTM
  91.    scrput  06 00     whi on blu The above will SELECT all files that end in C, H, MAK, BAT, and BTM.
  92.    scrput  07 00     whi on blu You will then be given a 4DOS SELECT screen to individually mark those files
  93.    scrput  08 00     whi on blu which you actually want to archive.
  94.    scrput  10 00     whi on blu Defaults:
  95.    scrput  11 00     whi on blu *.C?? *.H?? *.ASM *.PAS *.COB *.FOR *.BAT *.BTM *.MAK *.DOC *.DAT
  96.    screen  03 01                `                                                                              `
  97.    screen  03 01
  98.    iff "%1" NE "" then
  99.       set VCRESP=%1&
  100.       shift %#
  101.    else
  102.       input /W180 %%VCRESP
  103.    endiff
  104.    iff "%VCRESP" EQ "" then
  105.       call 4DVCBKUP *.C?? *.H?? *.ASM *.PAS *.COB *.FOR *.BAT *.BTM *.MAK *.DOC *.DAT
  106.    else
  107.       call 4DVCBKUP %VCRESP
  108.    endiff
  109.    goto VCENTRY
  110. :VCXTR
  111.    unset VCRESP
  112.    cls
  113.    drawbox 00 00 24 79 0 bri whi on blu fill blu
  114.    scrput  01 00 bri whi on red ` XTRACT file(s) from an archive. `
  115.    scrput  02 01 bri whi on blu Enter File-Specs for SELECT or press ENTER to accept defaults:
  116.    scrput  03 00     whi on blu [                                                                              ]
  117.    scrput  05 00     whi on blu Example: C H MAK
  118.    scrput  06 00     whi on blu The above will process archive files 4DVCC.ZIP 4DVCH.ZIP and 4DVCMAK.ZIP.
  119.    scrput  07 00     whi on blu You will then be given a 4DOS SELECT screen to individually mark those files
  120.    scrput  08 00     whi on blu which you actually want to extract from the archive files.
  121.    scrput  10 00     whi on blu Defaults:
  122.    scrput  11 00     whi on blu C?? H?? ASM PAS COB FOR BAT BTM MAK DOC DAT
  123.    scrput  13 00 bri whi on red ` CAUTION: During the extraction process, any existing file will be overlaid by  `
  124.    scrput  14 00 bri whi on red ` the extracted file. Also, files are extracted in the order processed by the    `
  125.    scrput  15 00 bri whi on red ` 4DOS SELECT statement, so if more than one file of the same name is extracted, `
  126.    scrput  16 00 bri whi on red ` only the last one extracted will be 'current'.                                           `
  127.    scrput  18 00     whi on blu Optional File-Specs Format:
  128.    scrput  19 03     whi on blu If you use only the extensions of files (as in the defaults above), then
  129.    scrput  20 03     whi on blu all files in each archive are presented in the SELECT statement. Thus,
  130.    scrput  21 03     whi on blu entering "ASM" above will present all versions of all files in 4DVCASM.ZIP.
  131.    scrput  22 03     whi on blu However, if you enter a filename+extension ("ABC*.ASM"), then only the
  132.    scrput  23 03     whi on blu versions of ABC*.ASM are presented in the SELECT. You may mix-and-match
  133.    scrput  24 03     whi on blu both forms of file-specs.
  134.    screen  03 01                `                                                                              `
  135.    screen  03 01
  136.    iff "%1" NE "" then
  137.       set VCRESP=%1&
  138.       shift %#
  139.    else
  140.       input /W180 %%VCRESP
  141.    endiff
  142.    iff "%VCRESP" EQ "" then
  143.       call 4DVCXTRC C?? H?? ASM PAS COB FOR BAT BTM MAK DOC DAT
  144.    else
  145.       call 4DVCXTRC %VCRESP
  146.    endiff
  147.    goto VCENTRY
  148. :VCKILL
  149.    unset VCRESP
  150.    cls
  151.    drawbox 00 00 24 79 0 bri whi on blu fill blu
  152.    scrput  01 00 bri whi on red ` KILL (Delete) file(s) in an archive. `
  153.    scrput  02 01 bri whi on blu Enter File-Specs for SELECT or press ENTER to accept defaults:
  154.    scrput  03 00     whi on blu [                                                                              ]
  155.    scrput  05 00     whi on blu Example: C H MAK
  156.    scrput  06 00     whi on blu The above will process archive files 4DVCC.ZIP 4DVCH.ZIP and 4DVCMAK.ZIP.
  157.    scrput  07 00     whi on blu You will then be given a 4DOS SELECT screen to individually mark those files
  158.    scrput  08 00     whi on blu which you actually want to remove from the archive files.
  159.    scrput  10 00     whi on blu Defaults:
  160.    scrput  11 00     whi on blu C?? H?? ASM PAS COB FOR BAT BTM MAK DOC DAT
  161.    scrput  13 00     whi on blu Optional File-Specs Format:
  162.    scrput  14 03     whi on blu If you use only the extensions of files (as in the defaults above), then
  163.    scrput  15 03     whi on blu all files in each archive are presented in the SELECT statement. Thus,
  164.    scrput  16 03     whi on blu entering "ASM" above will present all versions of all files in 4DVCASM.ZIP.
  165.    scrput  17 03     whi on blu However, if you enter a filename+extension ("ABC*.ASM"), then only the
  166.    scrput  18 03     whi on blu versions of ABC*.ASM are presented in the SELECT. You may mix-and-match
  167.    scrput  19 03     whi on blu both forms of file-specs.
  168.    screen  03 01                `                                                                              `
  169.    screen  03 01
  170.    iff "%1" NE "" then
  171.       set VCRESP=%1&
  172.       shift %#
  173.    else
  174.       input /W180 %%VCRESP
  175.    endiff
  176.    iff "%VCRESP" EQ "" then
  177.       call 4DVCDLET C?? H?? ASM PAS COB FOR BAT BTM MAK DOC DAT
  178.    else
  179.       call 4DVCDLET %VCRESP
  180.    endiff
  181.    goto VCENTRY
  182. :VCPAK
  183.    cls
  184.    set VCRESP=
  185.    iff not exist 4DVC???.ZIP then
  186.       shift %#
  187.       echo 
  188.       echo There are no 4DVC archive files in the current directory to PACK.
  189.       pause
  190.       goto VCENTRY
  191.    endiff
  192.    drawbox 00 00 24 79 0 bri whi on blu fill blu
  193.    scrput  01 00 bri whi on red ` PACK version numbers in an archive. `
  194.    scrput  02 00 bri whi on blu Before proceding, you should note that this function can take a long time
  195.    scrput  03 00 bri whi on blu if the archive file you SELECT has lots of data in it.
  196.    scrput  05 03     whi on blu The purpose of this function is to "reduce" the version numbers of your
  197.    scrput  06 03     whi on blu archived files to a range of "1" to "number-of-versions". For example,
  198.    scrput  07 03     whi on blu after adding and killing multiple versions of your file, you might wind-up
  199.    scrput  08 03     whi on blu with versions 4, 12, 13, and 19. By running PACK, these versions are
  200.    scrput  09 03     whi on blu "renamed" to 1, 2, 3, and 4 respectively. The next version you add will
  201.    scrput  10 03     whi on blu be version 5. This comes in handy if you add/kill a lot.
  202.    scrput  12 03     whi on blu Press a key and you will be given a list of 4DVC archive files to SELECT.
  203.    scrput  13 03     whi on blu For each archive you select, the PACK function will run automatically and
  204.    scrput  14 03     whi on blu "reduce" your version numbers. This can take a long time, so run it while
  205.    scrput  15 03     whi on blu you will be away from your computer for a while.
  206.    scrput  17 03     whi on blu The basic process is: 1) unzip *ALL* of the files in the 4DVC archive,
  207.    scrput  18 03     whi on blu 2) attach comments to those files (taken out of the archive), 3) run
  208.    scrput  19 03     whi on blu through all of the files and reduce version numbers to an inclusive range
  209.    scrput  20 03     whi on blu (a little special handling on version ".000"), 4) ZIP ALL of the new files
  210.    scrput  21 03     whi on blu (and their comments), and 5) if everything went OK, overlay the original
  211.    scrput  22 03     whi on blu 4DVC archive.
  212.    screen  22 16
  213.    iff "%VCAUTO" NE "" then
  214.       shift %#
  215.    else
  216.       input /W180 %%VCRESP
  217.       set VCRESP=
  218.    endiff
  219.    echo ================================================================================ >&! 4DVCPACK.0
  220.    echo     4DVC-PACK: Results of Archive File Reduction (%_DATE %_TIME): >> 4DVCPACK.0
  221.    echo ================================================================================ >>&! 4DVCPACK.0
  222.    echo   >>&! 4DVCPACK.0
  223.    select call 4DVCPACK.BTM (4DVC???.ZIP)
  224.    list 4DVCPACK.0
  225.    del /q 4DVCPACK.0 >&! NUL
  226.    goto VCENTRY
  227. :VCINQ
  228.    if "%1" NE "" shift %#
  229.    set VCPATH=%@search[4DVCREAD.ME]
  230.    iff "%VCPATH" NE "" then
  231.       list %VCPATH
  232.       set VCPATH=
  233.       goto VCENTRY
  234.    else
  235.       cls
  236.       echo 
  237.       echo Cannot locate 4DVCREAD.ME in your PATH Environment Variable.
  238.       echo It, and all other 4DVC*.BTM files need to be in a directory which
  239.       echo is included in your PATH environment variable.
  240.       quit
  241.    endiff
  242.