/[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.5 by bkorb, Sun May 13 16:43:25 2001 UTC revision 1.1.2.6 by bkorb, Sun May 13 17:41:27 2001 UTC
# Line 55  ELSE  not h suffix Line 55  ELSE  not h suffix
55  =]  =]
56  #include "[=(. hdr-name)=]"  #include "[=(. hdr-name)=]"
57  [=  [=
58  (define tpl-name "") =][=  (define tpl-name  "")
59    (define cmd-list  "")
60    (define proc-list "")
61    (define Cmd-Name  "") =][=
62    
63  FOR string  FOR string           =][=
64    
65      (set! Cmd-Name (string-capitalize! (get "str_name")))
66    
67  =]  =]
68  /*  /*
# Line 68  FOR string Line 73  FOR string
73     IF (exist? "explain")     IF (exist? "explain")
74    
75  =]  =]
76  tSCC zExplain[=(string-capitalize! (get "str_name"))=][ [=  tSCC zExplain[=(. Cmd-Name)=][ [=
77    (+ 1 (len "explain")) =] ] =    (+ 1 (len "explain")) =] ] =
78  [=(kr-string (get "explain"))=];[=  [=(kr-string (get "explain"))=];[=
79     ENDIF   =][=     ENDIF   =][=
# Line 79  tSCC zExplain[=(string-capitalize! (get Line 84  tSCC zExplain[=(string-capitalize! (get
84        IF (exist? "explain")     =]        IF (exist? "explain")     =]
85    
86  [=    ENDIF                     =]  [=    ENDIF                     =]
87  tSCC z[= (string-capitalize! (get "str_name")) =]Cmd[] =[=  tSCC z[= (. Cmd-Name) =]Cmd[] =[=
88     (out-push-new ".lt.sh")      =][=     (out-push-new ".lt.sh")      =][=
89     INCLUDE (. tpl-name)         =][=     INCLUDE (. tpl-name)         =][=
90     (out-pop)     (out-pop)
91     (kr-string (shell "cat .lt.sh ; rm -f .lt.sh")) =];     (set! cmd-list (string-append cmd-list "z" Cmd-Name "Cmd\n"))
92       (kr-string (shell "cat .lt.sh ; rm -f .lt.sh"))
93       =];
94    
95  /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */[=  /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */[=
96       ELIF (exist? "use_cmd")      =][=
97          (set! cmd-list (string-append cmd-list "z"
98                (string-capitalize! (get "use_cmd")) "Cmd\n"))  =][=
99       ELSE  =][=
100          (set! cmd-list (string-append cmd-list "(tCC*)NULL\n" )) =][=
101     ENDIF =][=     ENDIF =][=
102    
103  ENDFOR =][=  ENDFOR =][=
# Line 112  ENDIF =]; Line 124  ENDIF =];
124    
125  [=IF (== (suffix) "h")=]extern [=  [=IF (== (suffix) "h")=]extern [=
126    ENDIF=]tCC* apz_mode_cmd[     MODE_CT ][=    ENDIF=]tCC* apz_mode_cmd[     MODE_CT ][=
127  IF (== (suffix) "c") =] = {[=  IF (== (suffix) "c") =] = {
128    [=(shellf "columns -I4 -S, <<_EOF_\n%s_EOF_" cmd-list) =]
   FOR string , =]  
     [=  
     IF   (exist? "use_cmd")  
           =]z[=(string-capitalize! (get "use_cmd"))=]Cmd[=  
     ELIF (exist? "text")  
           =]z[=(string-capitalize! (get "str_name"))=]Cmd[=  
     ELSE  =](tCC*)NULL[=  
     ENDIF =][=  
   ENDFOR  =]  
129  }[=  }[=
130  ENDIF =];  ENDIF =];
131    
# Line 131  ENDIF =]; Line 134  ENDIF =];
134  IF (== (suffix) "c") =] = {[=  IF (== (suffix) "c") =] = {[=
135    
136    FOR string , =]    FOR string , =]
137      [=      [=?% call-proc "%s" emitScript=][=
     IF (or (exist? "use_cmd") (exist? "text"))  
           =][=?% call-proc "%s" emitScript=][=  
     ELSE  =](emitScriptProc*)NULL[=  
     ENDIF =][=  
138    ENDFOR  =]    ENDFOR  =]
139  };[=  };[=
140    

Legend:
Removed from v.1.1.2.5  
changed lines
  Added in v.1.1.2.6

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