home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / library / mslang / make_de / makede.ksh
Text File  |  1994-06-15  |  10KB  |  298 lines
  1. ##
  2. ## $Id: makedef.ksh 1.6 94/01/22 13:41:19 ETIENNE Exp Locker: ETIENNE $
  3. ############################################################################
  4. ## (c)  A.T.L.P.                         by  Etienne Rossignon
  5. ##      15 rue du Buisson aux Fraises
  6. ##      F-91741 Massy Cedex 
  7. ##      France
  8. ##      Tel : 33 - 1 - 69 30 75 75
  9. ##      Fax : 33 - 1 - 69 30 22 42 
  10. ##      CompuServe 100277,2305
  11. ##
  12. ## (please:do not remove this note)
  13. ############################################################################
  14. ##
  15. ##   DEFINING AN DLL EXPORT FILE FOR C++ 
  16. ##   see usage functions to know how to use this script
  17. ##
  18. ############################################################################
  19. ## $Log:    makedef.ksh $
  20. # Revision 1.6  94/01/22  13:41:19  ETIENNE
  21. # remove bug that make the script stop when definition do not exit.
  22. # 
  23. # Revision 1.5  94/01/16  18:14:28  ETIENNE
  24. # add on-line options (-d -n and -f )
  25. # 
  26. # Revision 1.4  94/01/16  15:24:47  ETIENNE
  27. # now handle relative pathname (thank to MKS support inquiry@mks.com)
  28. # 
  29. # Revision 1.3  94/01/08  14:14:39  ETIENNE
  30. # now get obj file name from a list.
  31. # add usage functions
  32. # add functions to handle MKS revision 
  33. # 
  34. # Revision 1.2  93/12/22  14:12:17  ETIENNE
  35. # improve numbering method
  36. # 
  37. # Revision 1.1  93/06/12  14:10:25  ETIENNE
  38. # Initial revision
  39. # 
  40.  
  41. ##
  42. ## Helper Functions
  43. ##       
  44. ##
  45. ############################################################################
  46. ##
  47. ## Awk script to handle pathname
  48. ##  usage: to  replace \ with /  :  awk -v dest="sh"  "$awk_path" 
  49. ##         to  replace / with \\ :  awk -v dest="dos" "$awk_path"
  50. ##
  51. ############################################################################
  52. ##
  53. awk_path='BEGIN { slash = "/" ; bslash = "\\\\" } 
  54. function bslash_path(path)
  55. { 
  56.    gsub(slash, "\\\\\\", path) 
  57.    return path 
  58. }
  59. function slash_path(path)
  60. {
  61.     gsub( bslash, "/", path)
  62.     return path 
  63. }              
  64. { 
  65.   if (dest=="sh") 
  66.      print slash_path($1);
  67.   else 
  68.      print bslash_path($1)
  69.   endif
  70. }
  71. '
  72. ##
  73. ######################################################################
  74. ## bslash_path : replace slash in $1 with doubled backslask
  75. ##               and echo the result to stdout
  76. ######################################################################
  77. ##
  78. function bslash_path
  79. {
  80.   echo    $1 | awk -v dest="dos" "$awk_path"
  81. }
  82. ##
  83. ######################################################################
  84. ## Usage
  85. ######################################################################
  86. ##
  87. function usage {
  88.  echo   "USAGE :"
  89.  echo   '   makedef <opts> <libname> [ [ -f <listfile> | <objectfile> ]...]'
  90.  echo  
  91.  echo   '<opts>          :'
  92.  echo   '        -d      : output some debug info '
  93.  echo   '        -n      : force to use directly the nm on object file  '
  94.  echo   '                  do not perform the MKS version test'
  95.  echo   '<libname>       : name of dll to create : this is the root name'
  96.  echo   '                  do not specify extension'
  97.  echo   '-f <listfile>   : file that contains all object files to analyse'
  98.  echo   '                  (ie : created with the command ls *.obj > listobj)'
  99.  echo   '                  *.obj can be given with a relative path'
  100.  echo   '                  (ie : ..\\foo.obj or ../bar/foo.obj are CORRECT file name)'
  101.  echo   '                  this sequence can appears any number of time'
  102.  echo   ' <objectfile>   : specify an object to analyse'
  103. }
  104. ##
  105. ############################################################################
  106. ## _GetMangledNameOldMKS 
  107. ##  Version for Old MKS : 
  108. ##  o use this function if your nm version do not recognize new .OBJ FILE
  109. ##    but can analyse correctly library file.
  110. ##  o this function create a temp. lib to old the specify .obj files ($1)
  111. ##    and extract mangled name from the .lib file. 
  112. ############################################################################
  113. ##
  114. function _GetMangledNameOldMKS  
  115. {
  116. #
  117. #  Create a dummy librairy
  118. #
  119.     dosname=`bslash_path $1`   
  120.     echo ${dosname}.lib         >  tmp.tmp
  121.     echo y                      >> tmp.tmp
  122.     echo +${dosname}.obj        >> tmp.tmp
  123.     echo                        >> tmp.tmp   
  124.     
  125.     LIB /nologo < tmp.tmp > NULL
  126. #
  127. # Extract external functions 
  128. #
  129.     nm $1.lib | grep -v 0:0000 | grep \? > $2
  130.  
  131. #
  132. # destruction de lib & tmp
  133. #
  134.    rm $1.lib tmp.tmp
  135. }
  136. ##
  137. ############################################################################
  138. ## _GetMangledNameNewMKS
  139. ##  Version for New MKS (version 4 and sup)
  140. ##  o used if the MKS toolkit recognize the .OBJ format
  141. ############################################################################
  142. ##
  143. function _GetMangledNameNewMKS
  144. {  
  145.    nm $1.obj | grep -v 0:0000 | grep \? > $2
  146. }
  147. ##%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  148. ## START 
  149. ##%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  150. ##
  151. ##  command options  analyse
  152. ##
  153. filelist=tmpflist.tmp
  154. debug=no
  155. forceNewNM=no
  156. if  test $# -lt 2
  157. then
  158.     usage
  159.     exit -2
  160. fi
  161.  
  162. nextcommand=none
  163. nb=1
  164. if test -f $filelist; then;rm $filelist;fi
  165. for i in $*
  166. do
  167. { 
  168.   if test "$debug" = "yes" ; then; echo CURRENT ARGUMENT  = $i ; fi
  169.   case $nextcommand in
  170.    "none"        ) {  
  171.                       case $i in  
  172.                           "-n" )  forceNewNM=yes         ;;
  173.                           "-f" )  nextcommand=getlistfile ;;
  174.                           "-d" )  debug=yes ; nextcommand=none  ;;
  175.                           *    ) { 
  176.                                       if test $nb -eq 1 ;then
  177.                                            deffileroot=$i
  178.                                       else
  179.                                            if ! ( test -f $i )
  180.                                            then
  181.                                               echo file \<$i\> not found
  182.                                               exit -2
  183.                                            else
  184.                                               echo $i >> $filelist
  185.                                            fi 
  186.                                            let nb=$nb+1 
  187.                                        fi
  188.                                  } ;;
  189.                       esac
  190.                    } ;;
  191.    "getlistfile" ) {
  192.                       file=$i 
  193.                       if ! ( test -f $file )  
  194.                       then
  195.                          echo list of object \<$file\> not found 
  196.                          exit -2
  197.                       fi
  198.                       for f in $(cat $i | awk -v dest="sh" "$awk_path" ) 
  199.                       do 
  200. if test "$debug" = "yes" ; then; echo testing $f ; fi
  201.                            if ! ( test -f $f )
  202.                            then
  203.                                echo file \<$f\> in file \<$i\> not found
  204.                                exit -2
  205.                            fi
  206.                       done
  207.                       echo $(cat $i | awk -v dest="sh" "$awk_path" )  >> $filelist
  208.                       nextcommand=none
  209.                     } ;;
  210.   esac
  211. }
  212. done
  213.  
  214.  
  215. ############################################################################
  216. # Choose Mangled Function
  217. ############################################################################
  218. MKSVER=`cat $ROOTDIR/product.cfg | grep -i Toolkit | awk '{ print $1 }'`
  219. if  ( test $[MKSVER+0] -le 3 )  && ( test $forceNewNM = "no" )
  220. then
  221.    echo ------------------------------------
  222.    echo $MKSVER : Old Version
  223.    echo ------------------------------------
  224.    GetMangledNameFunc=_GetMangledNameOldMKS
  225. else
  226.    echo ------------------------------------
  227.    echo $MKSVER : New Version
  228.    echo ------------------------------------
  229.    GetMangledNameFunc=_GetMangledNameNewMKS
  230. fi
  231. ###########################################################################
  232. ## Test Arguments
  233. ###########################################################################
  234. deffile=${deffileroot:?Must Specify Definition File}.def
  235. rm -i $deffile
  236. mangledfile=mangled.tmp
  237. ############################################################################
  238. ## write .DEF header
  239. ############################################################################
  240. #echo LIBRARY   $1                              >  $deffile
  241. echo LIBRARY                                    >  $deffile
  242. echo EXETYPE   WINDOWS                          >> $deffile
  243. echo CODE      PRELOAD MOVEABLE DISCARDABLE     >> $deffile
  244. echo DATA      PRELOAD MOVEABLE SINGLE          >> $deffile
  245. echo HEAPSIZE  1024                             >> $deffile
  246. echo EXPORTS                                    >> $deffile
  247. echo      WEP PRIVATE                           >> $deffile
  248. ###########################################################################
  249. ## debut de la numerotation
  250. nb=10                              
  251. #echo $GetMangledNameFunc
  252. for i in $(cat $filelist)
  253. do {
  254.  
  255. #    echo DOSPATH1=$i | awk -v dest="dos" "$awk_path"
  256. #    echo DOSPATH2= `bslash_path $i`
  257.     
  258.     rootname=${i%.obj}
  259.     print -n CURRENT FILE  : $i 
  260.     #
  261.     # extract mangled name
  262.     #
  263.     $GetMangledNameFunc $rootname $mangledfile
  264.     #
  265.     # Append to .DEF FILE
  266.     #
  267.     echo ";------------------------------------------------------------" $rootname >> $deffile
  268.     aww="{ print \" \" \$3 \"   @\"num \" NONAME\" ; num=num+1 }"
  269.     cat $mangledfile | awk -v num=$nb "$aww" >> $deffile
  270.     #
  271.     #  Calculate Increment
  272.     #
  273.     increment=`cat $mangledfile | wc | awk '{ print $1 }'`
  274.     print   "\t... : $increment exported func."
  275.     nb=$[nb + increment] 
  276. }
  277. done                       
  278. rm $mangledfile
  279. if test -f $filelist; then;rm $filelist;fi
  280. ###############################################################
  281. ## thank's to MKS support that gave me the method
  282. ## to convert DOS full path name to ksh name as a awk script 
  283. ###############################################################
  284. ## BEGIN { slash = "/" ; bslash = "\\\\" }
  285. ## function bslash_path(path)
  286. ## {
  287. ##    gsub(slash, "\\", path)
  288. ##    return path
  289. ##}
  290. ##
  291. ##function slash_path(path)
  292. ##{
  293. ##    gsub( bslash, "/", path)
  294. ##    return path
  295. ##}
  296. ##{ print slash_path($1); print bslash_path($1) }
  297.  
  298.