home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / CLIPPER / PKB / MAKEZIP.H < prev    next >
C/C++ Source or Header  |  1993-01-30  |  3KB  |  63 lines
  1. /*┌──────────────────────────────────────────────────────────────────────┐
  2.  ▌│                                                                      │
  3.  ▌│ Program Name: MAKEZIP.H         Copyright: Gallagher Computing Corp. │
  4.  ▌│ Date Created: 01/30/93           Language: Clipper 5.0               │
  5.  ▌│ Time Created: 16:45:29             Author: Kevin S Gallagher         │
  6.  ▌│ c:/brief/clipper.src                                                 │
  7.  ▌└──────────────────────────────────────────────────────────────────────┘
  8.  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀           */
  9.  
  10.  
  11. #include "fileio.ch"
  12. #include "inkey.ch"
  13. //─── for replacement MENU TO in NANFOR.LIB
  14. #include "ftmenuto.ch"
  15. //─── undefine to keep old comment and listfile - default is to erase them!
  16. #define KILL_UM
  17. #define NANNY
  18. #undef K_SPACE
  19. #define K_SPACE 32
  20.  
  21. #define aBlock  { |x,y | x[1] < y[1] }
  22. #define bBlock  { | x  | WriteIt( x[1] ) }
  23. #define cBlock  { | v  | AEVAL( ASORT( DIRECTORY("*."+v),,,aBlock),bBlock) }
  24. #define dBlock  { | v  | WriteIt( v ) }
  25. #define sBlock  { | x  | VAL(SUBSTR(x,1,2)) == nParm }
  26.  
  27. #define MR      MAXROW()
  28. #define MC      MAXCOL()
  29. #define PKZ     "PKZIP "
  30. #define PKF     "PKZIP -f "
  31. #define INIFILE "INVENT.INI"
  32. #define ZIPFILE "INVENT.ZIP"
  33. #define C_FILE  "COMMENT.TXT"
  34. #define BOXTYPE {"╔═╗║╝═╚║ ","┌─┐│┘─└│ ","╒═╕│╛═╘│ ","╓─╖║╜─╙║ ","█▀███▄██ "}
  35.  
  36. #xtranslate LSTRINT( <n> )       => LTRIM(STR(INT( <n> ) ) )
  37. #xtranslate AKILL( <a>, <e> )    => ASIZE( ADEL( <a>, <e> ), LEN( <a> ) - 1 )
  38. #xcommand FWriteLine( <h>, <s> ) => FWrite( <h>, <s> + CHR(13) + CHR(10) )
  39.  
  40. #xcommand STABILIZE <x> => DISPBEGIN();;
  41.                            WHILE !(<x>:stabilize());;
  42.                            END;;
  43.                            DISPEND()
  44.  
  45. #xcommand EASYMENU [ <var> ]                                             ;
  46.                    [ FILE <cFile>           ]                            ;
  47.                    [ BOXFRAME <nBoxType>    ]                            ;
  48.                    [ BOXCOLOR <cBoxColor>   ]                            ;
  49.                    [ TEXTCOLOR <cTextColor> ]                            ;
  50.                    [ TBCOLOR <cColors>      ]                            ;
  51.                    [ BUTONCOLOR <cButtColor>]                            ;
  52.                    [ USESHADOW <lShadow>    ]                            ;
  53.                    [ SHADCOLOR <nShadColor> ]                            ;
  54.                                                =>                        ;
  55. [<var> :=] TBMenu(<cFile>,                                               ;
  56.                   <nBoxType>,                                            ;
  57.                   <cBoxColor>,                                           ;
  58.                   <cTextColor>,                                          ;
  59.                   <cColors>,                                             ;
  60.                   <cButtColor>,                                          ;
  61.                   <lShadow>,                                             ;
  62.                   <nShadColor>                                           )
  63.