home *** CD-ROM | disk | FTP | other *** search
- .key src,typ,verbose/s
- .bra {
- .ket }
-
- ; $VER: fd2lib 1.00 (17.7.94)
- ; Create a library from an fd file
-
- If "{src}" EQ ""
- Echo "fd2lib -- V1.01 Quick FD file to library tranformer"
- Echo "Usage: fd2lib [SRC] <filename> [TYP] ASM or C or PASCAL or OBJECT [VERBOSE]"
- Quit 0
- EndIf
- If "{typ}" EQ "ASM"
- lk QDSTOP FDLIB {src} FDINCLUDE {verbose}
- Else
- If "{typ}" EQ "C"
- lk QDSTOP FDLIB {src} FDHEADER {verbose}
- Else
- If "{typ}" EQ "PASCAL"
- lk QDSTOP FDLIB {src} FDPASCAL {verbose}
- Else
- If "{typ}" EQ "OBJECT"
- lk QDSTOP FDLIB {src} FDOBJECT
- Else
- Echo "fd2lib -- V1.01 Quick FD file to library tranformer"
- Echo "Usage: fd2lib [SRC] <filename> [TYP] ASM or C or PASCAL or OBJECT [VERBOSE]"
- Echo ""
- Echo "ERROR: invalid type."
- Quit 5
- EndIf
- EndIf
- EndIf
- EndIf
-