/[libtool]/libtool/exe/ltstr.tpl
ViewVC logotype

Diff of /libtool/exe/ltstr.tpl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.2.1 by bkorb, Sat May 12 16:06:21 2001 UTC revision 1.1.2.2 by bkorb, Sun May 13 02:45:50 2001 UTC
# Line 7  Line 7 
7    
8  IF (== (suffix) "h") =][=  IF (== (suffix) "h") =][=
9    
10    DEFINE test-or-exit
11    
12    =]if ([=test=]) > /dev/null 2>&1 ; then[=
13      invert "  :\nelse"=]
14      $echo "$modename: [=msg=]" 1>&2
15      $echo "$help" 1>&2
16      exit 1
17    fi[=
18    
19    ENDDEF  =][=
20    
21    (define guard (string-append "HDRGRD_" (string-upcase!    (define guard (string-append "HDRGRD_" (string-upcase!
22                  (string->c-name! (out-name)) )))                  (string->c-name! (out-name)) )))
23    (define hdr-name (out-name)) =]    (define hdr-name (out-name)) =]
# Line 77  tSCC zExplain[=(string-capitalize! (get Line 88  tSCC zExplain[=(string-capitalize! (get
88    IF (exist? "text")    IF (exist? "text")
89    
90  =][=  =][=
91      IF (== (suffix) "h") =]      IF (== (suffix) "c") =]
92  #define [=(string-upcase! (get "str_name"))=]_CMD_SIZE [=(+ 1 (len "text"))=]  tSCC z[= (string-capitalize! (get "str_name")) =]Cmd[] =
93  extern [=  [= (out-push-new ".lt.tpl") =][=
94      ELSE =]     text                     =][=
95  [=  ENDIF     (out-pop)
96  =]tCC z[=(string-capitalize! (get "str_name"))     (out-push-new ".lt.xxx") =][=
97               =]Cmd[ [=(string-upcase! (get "str_name"))=]_CMD_SIZE ][=     INCLUDE ".lt.tpl"        =][=
98      IF (== (suffix) "c") =] =     (out-pop)
99  [=(kr-string (get "text"))=][=     (kr-string (shell "cat .lt.xxx ; rm -f .lt.*")) =][=
100      ENDIF =];[=      ENDIF =];
101    
   ENDIF =]  
 [=  
   IF (== (suffix) "c") =]  
102  /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */[=  /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */[=
103    ENDIF =][=    ENDIF =][=
104    

Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.1.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26