File: makeInitials.awk

package info (click to toggle)
polyml 5.7.1-5
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid
  • size: 40,616 kB
  • sloc: cpp: 44,142; ansic: 26,963; sh: 22,002; asm: 13,486; makefile: 602; exp: 525; python: 253; awk: 91
file content (65 lines) | stat: -rw-r--r-- 3,393 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
/NOT SUPPORTED/ { exit }

{ if ( NF >= 2 && $3 != "(callback)" )
  {
    type = "unknown" ;
    
    if ( $3 =="Atom" ) type = "XmRAtom" ;
    if ( $3 =="Cardinal" ) type = "XmRCardinal" ;
    if ( $3 =="Colormap" ) type = "XmRColormap" ;
    if ( $3 =="Cursor" ) type = "XmRCursor" ;
    if ( $3 =="Dimension" ) type = "XmRDimension" ;
    if ( $3 =="Drawable" ) type = "XmRPixmap" ;
    if ( $3 =="KeySym" ) type = "XmRKeySym" ;
    if ( $3 =="KeySym" && $4 == "list" ) type = "XmRKeySymTable" ;
    if ( $3 =="Pixel" ) type = "XmRPixel" ;
    if ( $3 =="Position" ) type = "XmRPosition" ;
    if ( $3 =="Visual" ) type = "XmRVisual" ;
    if ( $3 =="Widget" ) type = "XmRWidget" ;
    if ( $3 =="Widget" && $4 == "list" ) type = "XmRWidgetList" ;
    if ( $3 =="XFontStruct" && $4 == "list" ) type = "XmRFontList" ;
    if ( $3 =="XWMStateHint" ) type = "XmRInitialState" ;
    if ( $3 =="XtAccelerators" ) type = "XmRAcceleratorTable" ;
    if ( $3 =="XmAlignment" ) type = "XmRAlignment" ;
    if ( $3 =="XmArrowDirection" ) type = "XmRArrowDirection" ;
    if ( $3 =="XmAttachment" ) type = "XmRAttachment" ;
    if ( $3 =="XmButtonType" && $4 == "list" ) type = "XmRButtonTypeTable" ;
    if ( $3 =="XmCommandWindowLocation" ) type = "XmRCommandWindowLocation" ;
    if ( $3 =="XmDefaultButtonType" ) type = "XmRDefaultButtonType" ;
    if ( $3 =="XmDeleteResponse" ) type = "XmRDeleteResponse" ;
    if ( $3 =="XmDialogStyle" ) type = "XmRDialogStyle" ;
    if ( $3 =="XmDialogType" ) type = "XmRDialogType" ;
    if ( $3 =="XmEditMode" ) type = "XmREditMode" ;
    if ( $3 =="XmFileTypeMask" ) type = "XmRFileTypeMask" ;
    if ( $3 =="XmIndicatorType" ) type = "XmRIndicatorType" ;
    if ( $3 =="XmKeyboardFocusPolicy" ) type = "XmRKeyboardFocusPolicy" ;
    if ( $3 =="XmLabelType" ) type = "XmRLabelType" ;
    if ( $3 =="XmMultiClickType" ) type = "XmRMultiClick" ;
    if ( $3 =="XmNavigationType" ) type = "XmRNavigationType" ;
    if ( $3 =="XmOrientation" ) type = "XmROrientation" ;
    if ( $3 =="XmPacking" ) type = "XmRPacking" ;
    if ( $3 =="XmProcessingDirection" ) type = "XmRProcessingDirection" ;
    if ( $3 =="XmResizePolicy" ) type = "XmRResizePolicy" ;
    if ( $3 =="XmRowColumnType" ) type = "XmRRowColumnType" ;
    if ( $3 =="XmScrollBarDisplayPolicy" ) type = "XmRScrollBarDisplayPolicy" ;
    if ( $3 =="XmScrollBarPlacement" ) type = "XmRScrollBarPlacement" ;
    if ( $3 =="XmScrollingPolicy" ) type = "XmRScrollingPolicy" ;
    if ( $3 =="XmSelectionPolicy" ) type = "XmRSelectionPolicy" ;
    if ( $3 =="XmShadowType" ) type = "XmRShadowType" ;
    if ( $3 =="XmString" ) type = "XmRXmString" ;
    if ( $3 =="XmString" && $4 == "list" ) type = "XmRXmStringTable" ;
    if ( $3 =="XmStringDirection" ) type = "XmRStringDirection" ;
    if ( $3 =="XmTextPosition" ) type = "XmRInt" ;
    if ( $3 =="XmTextScanType" && $4 == "list" ) type = "XmRTextScanTypeTable" ;
    if ( $3 =="XmUnitType" ) type = "XmRUnitType" ;
    if ( $3 =="XmVisualPolicy" ) type = "XmRVisualPolicy" ;
    if ( $3 =="XtTranslations" ) type = "XmRTranslationTable" ;
    if ( $3 =="bool" ) type = "XmRBool" ;
    if ( $3 =="int" ) type = "XmRInt" ;
    if ( $3 =="short" ) type = "XmRShort" ;
    if ( $3 =="string" ) type = "XmRString" ;
    if ( $3 =="string" && $4 == "list" ) type = "XmRStringTable" ;
    
    printf ("val U = XtSetExceptionType %s %s ;\n",$1,type)
  }
}