home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / p2demo21.exe / PEL / LANGUAGE.PEL < prev    next >
Text File  |  1995-04-21  |  11KB  |  241 lines
  1. # $Header:   P:\source\wmacros\language.pev   1.5   09 Mar 1995 13:07:08   WALKER  $
  2.  
  3. ##############################################################################
  4. #
  5. #       Compuware Corporation
  6. #         31440 Northwestern Highway
  7. #           Farmington Hills, Michigan 48334-2564
  8. #
  9. #   This source code listing contains information that is
  10. #   proprietary to Compuware Corporation and may not be copied
  11. #   duplicated, translated, transmitted, stored, retrieved
  12. #   or in any manner or by any method conveyed or disclosed
  13. #   to a third party or parties without express written
  14. #   permission from Compuware Corporation.
  15. #
  16. #  
  17. ##############################################################################
  18.  
  19. #### $Workfile:   language.pel  $:
  20.  
  21. ##############################################################################
  22. ##############################################################################
  23. ##  
  24. ##  WARNING:  The following section contains PREDITOR/2 generated code.
  25. ##            Changing code in this section will produce unpredictable
  26. ##            results.
  27. ##  
  28. ################################################################################
  29. ################################################################################
  30.  
  31. global function load_user_extensions()
  32. {
  33.    add_extension(".ada", "ada");
  34.    add_extension(".asm", "assembler");
  35.    add_extension(".awk", "awk");
  36.    add_extension(".bas", "basic");
  37.    add_extension(".bat", "batch");
  38.    add_extension(".c", "c");
  39.    add_extension(".cbl", "cobol");
  40.    add_extension(".cmd", "rexx");
  41.    add_extension(".cob", "cobol");
  42.    add_extension(".cpp", "c");
  43.    add_extension(".cxx", "c");
  44.    add_extension(".dlg", "rc");
  45.    add_extension(".f", "fortran");
  46.    add_extension(".for", "fortran");
  47.    add_extension(".h", "c");
  48.    add_extension(".hpp", "c");
  49.    add_extension(".hxx", "c");
  50.    add_extension(".ipf", "helpfile");
  51.    add_extension(".mak", "makefile");
  52.    add_extension(".pas", "pascal");
  53.    add_extension(".pel", "pel");
  54.    add_extension(".rc", "rc");
  55.    add_extension(".txt", "text");
  56.  
  57. } # End extensions
  58.  
  59. global function load_user_compilers()
  60. {
  61.    add_compiler("Advantage ADA", "ada $<", "ada", 0, "", 0, 0, 0, 0, 0);
  62.    add_compiler("Borland C++", "bcc -c $<", "turboc", 0, "", 0, 0, 0, 0, 0);
  63.    add_compiler("COBOL Compiler", "cobol $<", "other", 0, "", 0, 0, 0, 0, 0);
  64.    add_compiler("Clipper 5.0", "clipper $< /s /w /m", "clipper5", 0, "", 0, 0, 0, 0, 0);
  65.    add_compiler("Clipper Summer '87", "clipper $< -m -s", "clipper87", 0, "", 0, 0, 0, 0, 0);
  66.    add_compiler("Clipper Summer '87 (preprocessor)", "pre $<", "clipper87", 0, "", 0, 0, 0, 0, 0);
  67.    add_compiler("DOS Command Interpeter", "command.com /c $<", "none", 1, "", 1, 0, 0, 0, 512);
  68.    add_compiler("FORCE dBase Compiler", "force $<", "force", 0, "", 0, 0, 0, 0, 0);
  69.    add_compiler("IBM CSet++", "icc  $<", "generic", 0, "", 0, 0, 0, 0, 0);
  70.    add_compiler("INTERSOLV PVCS Builder", "build -f $<", "build", 0, "", 0, 0, 0, 0, 0);
  71.    add_compiler("INTERSOLV PolyMake", "make -f $<", "polymake", 0, "", 0, 0, 0, 0, 0);
  72.    add_compiler("Lahey FORTRAN 77", "f77l $<", "lahey", 0, "", 0, 0, 0, 0, 0);
  73.    add_compiler("Microsoft C", "cl -c $<", "c", 0, "", 0, 0, 0, 0, 0);
  74.    add_compiler("Microsoft Masm", "masm $<,nul,asm.err;", "asm", 0, "", 0, 0, 0, 0, 0);
  75.    add_compiler("Microsoft Quick BASIC", "qb $<", "bas", 0, "", 0, 0, 0, 0, 0);
  76.    add_compiler("NMake", "nmake -f $<", "nmake", 0, "", 0, 0, 0, 0, 0);
  77.    add_compiler("PEL Compiler", "d:\\rel21\\bbin\\wpel -o $a -adis $<", "pel", 0, "", 0, 0, 0, 0, 0);
  78.    add_compiler("REXX Interpeter", "cmd.exe /c $<", "none", 1, "", 1, 0, 0, 0, 0);
  79.    add_compiler("Resource Compiler", "rc -r $<", "generic", 0, "", 0, 0, 0, 0, 0);
  80.    add_compiler("Thompson Tools Awk Compiler", "awkc $<", "none", 0, "", 0, 0, 0, 0, 0);
  81.    add_compiler("Turbo C", "tcc -c -w $<", "turboc", 0, "", 0, 0, 0, 0, 0);
  82.    add_compiler("Turbo C++", "tcc -c $<", "turboc", 0, "", 0, 0, 0, 0, 0);
  83.    add_compiler("Turbo Pascal", "tpc $<", "generic", 0, "", 0, 0, 0, 0, 0);
  84.    add_compiler("Watcom C++", "wcc386 -c $<", "watcom", 0, "", 0, 0, 0, 0, 0);
  85.    add_compiler("Zortech C", "ztc -c -r $<", "zortech", 0, "", 0, 0, 0, 0, 0);
  86.    add_compiler("Zortech C++", "ztc -c -cpp -r $<", "zortech", 0, "", 0, 0, 0, 0, 0);
  87.    add_compiler("[None]", "$<", "none", 0, "", 0, 0, 0, 0, 0);
  88.  
  89. } # End compilers
  90.  
  91. global function load_user_types()
  92. {
  93.    add_type("Default", "", "", "9 17", "1  77", "{ } [ ] ( ) /* */ %if %endif #if #endif #ifdef #endif", "", 0, 0, 1, "", 0, 0);
  94.    add_type("ada", "Advantage ADA", "c", "5 9", "1 77", "begin end (* *) { }", "\\", 0, 0, 1, "()[];:,='", 1, 0);
  95.    add_type("assembler", "Microsoft Masm", "asm", "5 9", "1 77", "{ } [ ] ( ) /* */ #if #endif #ifdef #endif", "\\", 0, 0, 1, "()[];:,='", 1, 0);
  96.    add_type("awk", "Thompson Tools Awk Compiler", "awk", "4 7", "1 77", "{ } [ ] ( )", "\\", 0, 0, 1, "()[];:,='", 1, 0);
  97.    add_type("basic", "IBM Basic", "basic", "9 17", "1 77", "", "\\", 0, 0, 1, "()[];:,='", 1, 0);
  98.    add_type("batch", "DOS Command Interpeter", "[None]", "4 7", "1  77", "{ } [ ] ( ) /* */ %if %endif #if #endif #ifdef #endif", "", 8192, 0, 1, "", 0, 0);
  99.    add_type("c", "Borland C++", "c", "4 7", "1 77", "{ } [ ] ( ) /* */ #if #endif #ifdef #endif", "\\", 0, 0, 1, "()[];:,='", 1, 0);
  100.    add_type("cobol", "Microfocus 3.2", "cobol", "8 12", "1 80", "IF END-IF PERFORM END-PERFORM ADD END-ADD DIVIDE END-DIVIDE MULTIPLY END-MULTIPLY SEARCH END-SEARCH   SUBTRACT END-SUBTRACT", "\\", 8192, 0, 1, "()[];:='", 1, 0);
  101.    add_type("fortran", "Lahey FORTRAN 77", "text", "9 17", "1 77", "", "\\", 0, 0, 1, "()[];:,='", 1, 0);
  102.    add_type("helpfile", "IPFC", "text", "9 17", "1 77", "", "\\", 0, 0, 1, "()[];:,='", 1, 0);
  103.    add_type("makefile", "NMake", "text", "9 17", "1 77", "( ) %if %endif", "\\", 0, 0, 1, "()[];:,='", 1, 0);
  104.    add_type("pascal", "Turbo Pascal", "pascal", "5 9", "1 77", "begin end (* *) { }", "\\", 0, 0, 1, "()[];:,='", 0, 0);
  105.    add_type("pel", "PEL Compiler", "awk", "4 7", "1 77", "{ } [ ] ( )", "\\", 0, 0, 1, "()[];:,='", 1, 0);
  106.    add_type("rc", "Resource Compiler", "", "4 7", "1  77", "{ } [ ] ( ) /* */ %if %endif #if #endif #ifdef #endif begin end", "", 8192, 0, 1, "", 0, 0);
  107.    add_type("rexx", "REXX Interpeter", "rexx", "4 7", "1  77", "{ } [ ] ( ) /* */ %if %endif #if #endif #ifdef #endif", "\\", 8192, 0, 1, ".();,=':", 1, 0);
  108.    add_type("text", "", "text", "9 17", "1 77", "", "\\", 0, 0, 1, "()[];:,='", 1, 0);
  109.    add_type("vdiff_ref", "", "text", "4 7", "1 77", "", "\\", 0, 0, 1, "()[];:,='", 1, 0);
  110.    add_type("vdiff_target", "", "text", "4 7", "1 77", "", "\\", 0, 0, 1, "()[];:,='", 1, 0);
  111.  
  112. } # End types
  113.  
  114. global function load_user_awk_syntax()
  115. {
  116.    optional_function("load_factory_awk_syntax");
  117.  
  118. } # End awk_syntax
  119.  
  120. global function load_user_c_syntax()
  121. {
  122.    optional_function("load_factory_c_syntax");
  123.  
  124. } # End c_syntax
  125.  
  126. global function load_user_cobol_syntax()
  127. {
  128.    optional_function("load_factory_cobol_syntax");
  129.  
  130. } # End cobol_syntax
  131.  
  132. global function load_user_pascal_syntax()
  133. {
  134.    optional_function("load_factory_pascal_syntax");
  135.  
  136. } # End pascal_syntax
  137.  
  138. global function load_user_pel_syntax()
  139. {
  140.    optional_function("load_factory_pel_syntax");
  141.  
  142. } # End pel_syntax
  143.  
  144. global function load_user_rc_syntax()
  145. {
  146.    optional_function("load_factory_rc_syntax");
  147.  
  148. } # End rc_syntax
  149.  
  150. global function load_user_rexx_syntax()
  151. {
  152.    optional_function("load_factory_rexx_syntax");
  153.  
  154. } # End rexx_syntax
  155.  
  156. global function load_user_vdiff_ref_syntax()
  157. {
  158.    optional_function("load_factory_vdiff_ref_syntax");
  159.  
  160. } # End vdiff_ref_syntax
  161.  
  162. global function load_user_vdiff_target_syntax()
  163. {
  164.    optional_function("load_factory_vdiff_target_syntax");
  165.  
  166. } # End vdiff_target_syntax
  167.  
  168. global function load_user_syntax_colors()
  169. {
  170.    #  Foreground colors for syntax highlighting
  171.    syntax_colors_fg[65537] = 0xffffff;
  172.    syntax_colors_fg[65538] = 0x838383;
  173.    syntax_colors_fg[131073] = 0x0000ff;
  174.    syntax_colors_fg[131074] = 0x0000aa;
  175.    syntax_colors_fg[196609] = 0xff0000;
  176.    syntax_colors_fg[196610] = 0x800000;
  177.    syntax_colors_fg[262145] = 0xff00ff;
  178.    syntax_colors_fg[262146] = 0x8000aa;
  179.    syntax_colors_fg[327681] = 0x00ff00;
  180.    syntax_colors_fg[327682] = 0x009200;
  181.    syntax_colors_fg[393217] = 0x00ffff;
  182.    syntax_colors_fg[393218] = 0x0092aa;
  183.    syntax_colors_fg[458753] = 0xffff00;
  184.    syntax_colors_fg[458754] = 0x809200;
  185.    syntax_colors_fg[524289] = 0x000000;
  186.    syntax_colors_fg[524290] = 0xc9c9c9;
  187.  
  188.    #  Background colors for syntax highlighting
  189.    syntax_colors_bg[65537] = 0xffffff;
  190.    syntax_colors_bg[65538] = 0x838383;
  191.    syntax_colors_bg[131073] = 0x0000ff;
  192.    syntax_colors_bg[131074] = 0x0000aa;
  193.    syntax_colors_bg[196609] = 0xff0000;
  194.    syntax_colors_bg[196610] = 0x800000;
  195.    syntax_colors_bg[262145] = 0xff00ff;
  196.    syntax_colors_bg[262146] = 0x8000aa;
  197.    syntax_colors_bg[327681] = 0x00ff00;
  198.    syntax_colors_bg[327682] = 0x009200;
  199.    syntax_colors_bg[393217] = 0x00ffff;
  200.    syntax_colors_bg[393218] = 0x0092aa;
  201.    syntax_colors_bg[458753] = 0xffff00;
  202.    syntax_colors_bg[458754] = 0x809200;
  203.    syntax_colors_bg[524289] = 0x000000;
  204.    syntax_colors_bg[524290] = 0xc9c9c9;
  205.  
  206. } # End syntax_colors
  207.  
  208. global function load_user_styles()
  209. {
  210.    defined_styles[16777215][-1] = create_syntax_style(0xffffff, -1);
  211.    defined_styles[255][-1] = create_syntax_style(0xff, -1);
  212.    defined_styles[16711680][-1] = create_syntax_style(0xff0000, -1);
  213.    defined_styles[16711935][-1] = create_syntax_style(0xff00ff, -1);
  214.    defined_styles[65280][-1] = create_syntax_style(0xff00, -1);
  215.    defined_styles[65535][-1] = create_syntax_style(0xffff, -1);
  216.    defined_styles[16776960][-1] = create_syntax_style(0xffff00, -1);
  217.    defined_styles[0][-1] = create_syntax_style(0x0, -1);
  218.    defined_styles[8618883][-1] = create_syntax_style(0x838383, -1);
  219.    defined_styles[170][-1] = create_syntax_style(0xaa, -1);
  220.    defined_styles[8388608][-1] = create_syntax_style(0x800000, -1);
  221.    defined_styles[8388778][-1] = create_syntax_style(0x8000aa, -1);
  222.    defined_styles[37376][-1] = create_syntax_style(0x9200, -1);
  223.    defined_styles[37546][-1] = create_syntax_style(0x92aa, -1);
  224.    defined_styles[8425984][-1] = create_syntax_style(0x809200, -1);
  225.    defined_styles[13224393][-1] = create_syntax_style(0xc9c9c9, -1);
  226.    defined_styles[16777215][10824234] = create_syntax_style(0xffffff, 0xa52a2a);
  227.    defined_styles[16777215][2763429] = create_syntax_style(0xffffff, 0x2a2aa5);
  228.    defined_styles[2763429][2763429] = create_syntax_style(0x2a2aa5, 0x2a2aa5);
  229.  
  230. } # End styles
  231.  
  232. ################################################################################
  233. ################################################################################
  234. ##  
  235. ##  WARNING:  The previous section contains PREDITOR/2 generated code.
  236. ##            Changing code in this section will produce unpredictable
  237. ##            results.
  238. ##  
  239. ################################################################################
  240. ################################################################################
  241.