Return to linkc.bat CVS log

Up to [Synchronet] / sbbs / lciol

Annotation of sbbs/lciol/linkc.bat, revision 1.1.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.