home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / yacl-012.zip / tools / translat.awk < prev   
Text File  |  1994-10-28  |  8KB  |  233 lines
  1.  
  2.  
  3.  
  4. #/*
  5. # *
  6. # *          Copyright (C) 1994, M. A. Sridhar
  7. # *  
  8. # *
  9. # *     This software is Copyright M. A. Sridhar, 1994. You are free
  10. # *     to copy, modify or distribute this software  as you see fit,
  11. # *     and to use  it  for  any  purpose, provided   this copyright
  12. # *     notice and the following   disclaimer are included  with all
  13. # *     copies.
  14. # *
  15. # *                        DISCLAIMER
  16. # *
  17. # *     The author makes no warranties, either expressed or implied,
  18. # *     with respect  to  this  software, its  quality, performance,
  19. # *     merchantability, or fitness for any particular purpose. This
  20. # *     software is distributed  AS IS.  The  user of this  software
  21. # *     assumes all risks  as to its quality  and performance. In no
  22. # *     event shall the author be liable for any direct, indirect or
  23. # *     consequential damages, even if the  author has been  advised
  24. # *     as to the possibility of such damages.
  25. # *
  26. # */
  27.  
  28.  
  29.  
  30.  
  31. #
  32. # An awk script for reading a .RC file (output from a resource editor)
  33. # and creating a C file containing a series of initializations of
  34. # an array of UI_ViewDescriptor structures. 
  35. #
  36. # Invoke with:
  37. #
  38. #        awk -f winbuild.awk incl=includefilename rcfilename
  39. #
  40. # where includefilename is the name of the file containing symbol
  41. # definitions for the RC file, without surrounding quotes.
  42. #
  43. # When translating button groups, this script assumes that:
  44. #    * The GROUPBOX is specified first, with attribute WS_GROUP but
  45. #      not WS_TABSTOP
  46. #    * All the buttons in the group follow, with the first button in
  47. #      the group having a WS_TABSTOP attribute set. No other buttons in
  48. #      the group must have WS_TABSTOP set.
  49. # This arrangement ensures proper tabbing behavior of the dialog.
  50. #    Also, the input RC file must have CONTROL statements for all
  51. # controls (set this option in the Resource Editor's Options menu).
  52. #
  53.  
  54. BEGIN {
  55.     n = split(ARGV[1], a, "=")
  56.     HeaderFile = a[2]       # Name of file containing definitions of
  57.                             # dialog symbols
  58.     print " "
  59.     print "/* C++ code file for creating control objects, generated via */"
  60.     print "/* AWK script translat.awk. Must be used with the UI_Composite */"
  61.     print "/* class. */ "
  62.     print  "\n\n#include \"ui/composit.h\"\n"
  63.     if (length(HeaderFile) > 0) printf "#include \"%s\"\n\n", HeaderFile
  64.     # We need to scale the sizes:
  65.     XFactor = 2.5
  66.     YFactor = 2.2
  67. }
  68.  
  69.  
  70.  
  71.  
  72. # {printf "%d: ", NR } # DEBUG
  73.  
  74. #
  75. # Process include directives
  76. #
  77. /^# *include/ {print; next}
  78.  
  79.  
  80. #
  81. # Target 0: look for the DIALOG specification
  82. #
  83. { 
  84.     if ($2 == "DIALOG") {
  85.         dialog_name = $1
  86.         rectn  = split($0, array, ", ")
  87.         dialog_shape = XFactor*$(NF-3) ", " YFactor*$(NF-2) ", " 
  88.         dialog_shape = dialog_shape XFactor*$(NF-1) ", " YFactor*$NF
  89.         next
  90.     }
  91. }
  92.  
  93. #
  94. # Target 1: match the BEGIN that starts a dialog spec
  95. #
  96. $1 ~ /BEGIN/        {
  97.     nBtnGroups = 0
  98.     if (length (dialog_name) > 0) {
  99.         # So that we don't process things inside menus
  100.         inside = 1   # We're now processing a dialog
  101.         inGroup = 0
  102.         dialogDesc = ""
  103.         ncontrols = 0
  104.  
  105.         map["LISTBOX"]       = "View_StringView"
  106.         map["EDITTEXT"]      = "View_StringEditor"
  107.         map["STATIC"]        = "View_Label"
  108.         map["LTEXT"]         = "View_Label"
  109.         map["RTEXT"]         = "View_Label"
  110.         map["CTEXT"]         = "View_Label"
  111.         map["PUSHBUTTON"]    = "View_PushButton"
  112.         map["DEFPUSHBUTTON"] = "View_PushButton"
  113.         map["RADIOBUTTON"]   = "View_ExOrToggleButton"
  114.         map["CHECKBOX"]      = "View_ToggleButton"
  115.         map["SCROLLBAR"]     = "View_ScrollBar"
  116.         map["GROUPBOX"]      = "View_ButtonGroup"
  117.  
  118.         next
  119.     }
  120.  
  121. }
  122.  
  123. $1 ~ /END/        {
  124.     if (length (dialog_name) > 0) {
  125.         for (s in buttonGroup) {
  126.             print "UI_ViewDescriptor FAR DLG_" dialog_name "_group" s "[] = {"
  127.             printf "%s",  buttonGroup[s]
  128.             print "{View_None, 0, 0}\n};\n\n"
  129.             delete buttonGroup[s]
  130.         }
  131.               
  132.         print "UI_RectangleStruct FAR  DLG_" dialog_name "_Shape = {"
  133.         print dialog_shape "\n};"
  134.         print "UI_ViewDescriptor FAR DLG_" dialog_name "_Item [] = {" 
  135.         printf "%s", dialogDesc
  136.         print "View_None, 0, 0\n}; \n"
  137.         inside = 0
  138.         dialog_name = ""
  139.         next
  140.     }
  141. }
  142.         
  143. #
  144. # Other targets: process the control statements
  145. #
  146. # 
  147. $1 ~ /LTEXT|CTEXT|RTEXT|CHECKBOX|PUSHBUTTON|RADIOBUTTON/   {
  148.     if (inside) {
  149.         # pos = match ($0, $1)
  150.         # m = RSTART + RLENGTH - 1
  151.         # print $1 ", " substr($0,m+1,length($0)-m) ", 0,"
  152.  
  153.         # Extract the type of control and its id number
  154.         nfields = split ($0, fld, ",")
  155.         nf = split (fld[1], f2, " ")
  156.         tabstop = ($1 ~ /TEXT/) ? "FALSE" : "TRUE"
  157.         AddEntry(map[$1], fld[2], fld[3], fld[4], fld[5], fld[6], tabstop,
  158.                    "TRUE",  f2[2], "NULL")
  159.         next
  160.     }
  161. }
  162.  
  163. $1 ~ /LISTBOX|EDITTEXT|SCROLLBAR/ {
  164.         nfields = split ($0, fld, ",")
  165.         nf = split (fld[1], f2, " ")
  166.         tabstop = ($1 ~ /SCROLLBAR/) ? "FALSE" : "TRUE"
  167.         AddEntry(map[f2[1]], f2[2], fld[2], fld[3], 
  168.                    tabstop, "TRUE", fld[4], fld[5], "NULL")
  169.         next
  170. }
  171.  
  172.  
  173. $1 ~ /CONTROL/    {
  174.     if (inside) {
  175.         nfields = split ($0, fld, ",")
  176.         label = fld[3]
  177.         gsub (/"/, "", label)
  178.         gsub (/ /, "", label)
  179.         if (label ~ /EDIT/) label = "EDITTEXT"
  180.         if (fld[4] ~ /RADIOBUTTON/) label = "RADIOBUTTON"
  181.         if (fld[4] ~ /CHECKBOX/) label = "CHECKBOX"
  182.         if (fld[4] ~ /PUSHBUTTON/) label = "PUSHBUTTON"
  183.         if (label  ~ /BorCheck/) label = "CHECKBOX"
  184.         if (label  ~ /BorRadio/) label = "RADIOBUTTON"
  185.         if (label  ~ /BorShade/) label = "GROUPBOX"
  186.         if (label == "button") label = "BUTTON"
  187.         if (label != "RADIOBUTTON" && label !=  "CHECKBOX") {
  188.             inGroup = 0
  189.         }
  190.         if (fld[4] ~ /GROUPBOX/) {
  191.             label = "GROUPBOX"
  192.         }
  193.         if (label in map) {
  194.             n = split (fld[1], f2, "\"")
  195.             tabstop = (fld[4] ~ /TABSTOP/) ? "TRUE" : "FALSE"
  196.             visible = (fld[4] ~ /VISIBLE/) ? "TRUE" : "FALSE"
  197.             if (label == "GROUPBOX") {
  198.                 children = "DLG_" dialog_name "_group" nBtnGroups+1
  199.             }
  200.             else children =  "NULL"
  201.             AddEntry(map[label], fld[2], fld[5], fld[6],
  202.                         fld[7], fld[8], tabstop, visible, f2[2], children)
  203.         } else {
  204.            print "Warning: Line " NR ": unrecognized control: " label
  205.         }
  206.         if (label == "GROUPBOX") {
  207.             nBtnGroups++
  208.             groupX = fld[5]
  209.             groupY = fld[6]
  210.             inGroup = 1
  211.         }
  212.         next
  213.     }
  214. }
  215.  
  216.                 
  217.  
  218. function AddEntry(type, id, x, y, w, h, tabst, vis, title, enclosed       ,s) {
  219.     entryFmt = "{%-16s, %s, %d, %d, %d, %d, %-5s,  \"%s\", %s},\n"
  220.     if (inGroup) {
  221.         s = sprintf(entryFmt, type, id, XFactor*(x-groupX), YFactor*(y-groupY),
  222.                     XFactor*w, YFactor*h, tabst,  title, enclosed)
  223.         s = buttonGroup[nBtnGroups] s
  224.         buttonGroup[nBtnGroups] = s
  225.     }
  226.     else {
  227.         s = sprintf(entryFmt, type, id, XFactor*x, YFactor*y,
  228.                     XFactor*w, YFactor*h, tabst,  title, enclosed)
  229.         dialogDesc = dialogDesc s
  230.     }
  231. }
  232.  
  233.