Return to linkc.bat CVS log

Up to [Synchronet] / sbbs / lciol

Annotation of sbbs/lciol/linkc.bat, revision 1.1

1.1     ! root        1: @echo off
        !             2: goto start
        !             3: rem   ************************************************************************
        !             4: rem   *                                                                             *
        !             5: rem   *                linkc: link multiple objects with Turbo C libraries          *
        !             6: rem   *                                                                             *
        !             7: rem   *                syntax: linkc {model} main[,sub1[,sub2...]]                  *
        !             8: rem   *                        where {model} is t, s, c, m, l, or h                 *
        !             9: rem   *                                                                             *
        !            10: rem   *                searches: directories specified in env variable LIB for      *
        !            11: rem   *                Turbo C object and library files of required model.          *
        !            12: rem   *                Currently substitutes C0S.LIB for C0T.LIB.  R1 SD 8/90       *
        !            13: rem   *                                                                             *
        !            14: rem   ************************************************************************
        !            15: :start
        !            16: echo.
        !            17: if not %2x==x goto ga1
        !            18: echo %0 arg 2: no object specified
        !            19: goto end
        !            20: :ga1
        !            21: set space=
        !            22: set zmdl=x
        !            23: for %%a in (q t s c m l h) do if %%a==%1 set zmdl=%%a
        !            24: if not %zmdl%==x goto ga2
        !            25: echo %0 arg 1: model must be t, s, c, m, l, or h
        !            26: goto end
        !            27: :ga2
        !            28: set zco=c0%zmdl%.obj
        !            29: for %%a in (%lib%) do if exist %%a\%zco% set pzco=%%a\%zco%
        !            30: if not %pzco%x==x goto ga3
        !            31: echo %0: missing %zco% in (%lib%)
        !            32: goto end
        !            33: :ga3
        !            34: if %zmdl%==t set zmdl=s
        !            35: set zcl=c%zmdl%.lib
        !            36: for %%a in (%lib%) do if exist %%a\%zcl% set pzcl=%%a\%zcl%
        !            37: if not %pzcl%x==x goto ga4
        !            38: echo %0: missing %zcl% in (%lib%)
        !            39: goto end
        !            40: :ga4
        !            41: set zobj=%2
        !            42: set zout=%2
        !            43: :next
        !            44: if %3x==x goto link
        !            45: shift
        !            46: set zobj=%zobj%+%2
        !            47: goto next
        !            48: :link
        !            49: echo [%pzco%+%zobj%,%zout%,%zout%,%pzcl%]
        !            50: rem link /noi %pzco%+%zobj%,%zout%,%zout%,%pzcl%
        !            51: tlink /c /m %pzco%+%zobj%,%zout%,%zout%,%pzcl%
        !            52: :end
        !            53: set zmdl=
        !            54: set zco=
        !            55: set pzco=
        !            56: set zcl=
        !            57: set pzcl=
        !            58: set zobj=
        !            59: set zout=
        !            60: echo.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.