/[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.2 by bkorb, Sun May 13 02:45:50 2001 UTC revision 1.1.2.3 by bkorb, Sun May 13 03:05:11 2001 UTC
# Line 52  ENDDEF  =][= Line 52  ENDDEF  =][=
52  #     define lt_ptr         char*  #     define lt_ptr         char*
53  #  endif  #  endif
54  #endif  #endif
55    
56    #define MODE_CT [=(+ 1 (high-lim "string"))=]
57    typedef void (emitScriptProc) LT_PARAMS(( int argc, char** argv ));
58    extern emitScriptProc emitScript;[=
59      FOR string=][=
60        % call-proc "\nextern emitScriptProc %s;" =][=
61      ENDFOR    =]
62  [=  [=
63    
64  ELSE  ELSE  not h suffix
65    
66  =]  =]
67  #include "[=(. hdr-name)=]"  #include "[=(. hdr-name)=]"
68  [=  [=
69    
 ENDIF =][=  
   
70  FOR string  FOR string
71    
72  =][=  =]
   
   IF (== (suffix) "c") =]  
73  /*  /*
74   *  [=(string-upcase! (get "str_name"))=] STRING   *  [=(string-upcase! (get "str_name"))=] STRING
75   */[=   */[=
# Line 83  tSCC zExplain[=(string-capitalize! (get Line 86  tSCC zExplain[=(string-capitalize! (get
86    
87  [=    ENDIF =][=  [=    ENDIF =][=
88      ENDIF   =][=      ENDIF   =][=
   ENDIF "c" =][=  
89    
90    IF (exist? "text")      IF (exist? "text")      =]
   
 =][=  
     IF (== (suffix) "c") =]  
91  tSCC z[= (string-capitalize! (get "str_name")) =]Cmd[] =  tSCC z[= (string-capitalize! (get "str_name")) =]Cmd[] =
92  [= (out-push-new ".lt.tpl") =][=  [= (out-push-new ".lt.tpl") =][=
93     text                     =][=     text                     =][=
# Line 96  tSCC z[= (string-capitalize! (get "str_n Line 95  tSCC z[= (string-capitalize! (get "str_n
95     (out-push-new ".lt.xxx") =][=     (out-push-new ".lt.xxx") =][=
96     INCLUDE ".lt.tpl"        =][=     INCLUDE ".lt.tpl"        =][=
97     (out-pop)     (out-pop)
98     (kr-string (shell "cat .lt.xxx ; rm -f .lt.*")) =][=     (kr-string (shell "cat .lt.xxx ; rm -f .lt.*")) =];
     ENDIF =];  
99    
100  /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */[=  /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */[=
101    ENDIF =][=     ENDIF =][=
   
 ENDFOR  
102    
103  =][=  ENDFOR =][=
104    
105  IF (== (suffix) "h")  ENDIF  c/h suffix
106    
107  =]#define MODE_CT [=(+ 1 (high-lim "string"))=]  =]
 typedef void (emitScriptProc) LT_PARAMS(( int argc, char** argv ));  
 extern emitScriptProc emitScript;[=  
   FOR string=][=  
     % call-proc "\nextern emitScriptProc %s;" =][=  
   ENDFOR    =][=  
 ENDIF =]  
108    
109  [=IF (== (suffix) "h")=]extern [=  [=IF (== (suffix) "h")=]extern [=
110    ENDIF=]tCC* apz_mode_explain[ MODE_CT ][=    ENDIF=]tCC* apz_mode_explain[ MODE_CT ][=

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

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