home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a031 / template.exe / AS_UDF.COD < prev    next >
Encoding:
Text File  |  1992-03-10  |  5.2 KB  |  228 lines
  1. //
  2. // Module name: AS_UDF.COD
  3. // Description: Apgen User defined functions
  4. //
  5. {define dbfOpen(mdbf,mndx,mord,actflag)
  6.   var tempext, // temporary extension
  7.       filestr  // file string
  8. ;
  9.  tempext="";
  10.  filestr="";
  11. //
  12.  if mdbf and (filetype(mdbf) == "DBF" || !filetype(mdbf)) then
  13.    tempext=".DBF";
  14.  else
  15.    if mdbf then
  16.      tempext="."+filetype(mdbf);
  17.    endif
  18.  endif
  19. //
  20.  filestr="Error opening ";
  21.  if mdbf then
  22.    filestr=filestr+fileroot(mdbf)+tempext;
  23.  endif
  24.  if mndx then
  25.    if mdbf then
  26.      filestr=filestr+" or ";
  27.    endif
  28.    filestr=filestr+"index(es) "+upper(mndx);
  29.  endif}
  30. lc_message="0"
  31. ON ERROR lc_message=LTRIM(STR(ERROR()))+" "+MESSAGE()
  32. {if tempext == ".VUE" || tempext == ".QBE" || tempext == ".QBO" then}
  33. SET VIEW TO {mdbf}
  34. {else}
  35. {  if tempext == ".UPD" then}
  36. DO {mdbf}
  37. {  else}
  38. USE {mdbf}
  39. {  endif}
  40. {endif}
  41. {if mndx then}
  42. IF "" <> DBF()
  43.   SET INDEX TO {mndx}
  44. ENDIF
  45. {endif}
  46. {if mord then}
  47. SET ORDER TO {mord}
  48. {endif}
  49. ON ERROR
  50. gn_error=VAL(lc_message)
  51. IF gn_error > 0
  52.   DO Pause WITH "{filestr}"
  53. {case actflag of}
  54. {0:}
  55.   gn_error=0
  56.   lc_file="SET"+gc_prognum
  57.   DO &lc_file.
  58.   RETURN
  59. {1:}
  60.   lc_new='Y'
  61.   RETURN
  62. {endcase}
  63. ENDIF
  64. lc_new='Y'
  65. {return;
  66.  enddef;
  67. }
  68. //
  69. // UDF to handle item level help.
  70. //
  71. {define itmhlp();}
  72. {var hlprcnt;}
  73. {hlprcnt=1;  // line counter}
  74. {foreach Item_Help m in k}
  75. {  if ALLTRIM(Item_Help) then}
  76.     @ {hlprcnt+1},1 SAY "{Item_Help}"
  77. {  endif}
  78. {  ++hlprcnt;}
  79. {  if hlprcnt > 19 then}
  80. {    hlprcnt=1;}
  81. {  endif}
  82. {next m;}
  83. {return hlprcnt;}
  84. {enddef;}
  85. //
  86. // UDF to handle Text in Before and After code embeds and Menu help.
  87. //
  88. {define help_proc();}
  89. {var hlprcnt;}
  90. {hlprcnt=0;  // line counter}
  91. {foreach Menu_Help}
  92. {  if not hlprcnt then hlprcnt=1 endif;}
  93. {  if ALLTRIM(Menu_Help) then}
  94.     @ {hlprcnt+1},1 SAY "{Menu_Help}"
  95. {  endif}
  96. {  ++hlprcnt;}
  97. {  if hlprcnt > 19 then}
  98. {    hlprcnt=1;}
  99. {  endif}
  100. {next k;}
  101. {menucnt=hlprcnt;}
  102. {return;}
  103. {enddef;}
  104. //
  105. {
  106.  define color(getcolor);
  107.  var blink, forground, background, enhanced, incolor;
  108. //
  109.  forground = background = enhanced = 0;
  110. //
  111.  if getcolor != 255 then                      // black on black?
  112.    blink = getcolor >> 7;                     // high order bit set?
  113.    if blink then
  114.      getcolor = getcolor - 128;               // set high order bit to zero
  115.    endif
  116.    background = getcolor >> 4;                // getcolor divided by 16
  117.    forground  = getcolor - (background << 4); // (background times 16)
  118.    if forground > 7 then                      // high intensity?
  119.      enhanced = 1;
  120.      forground = forground - 8;
  121.    endif
  122.  endif
  123.  case forground of
  124.  0: incolor = "N";
  125.  1: incolor = "B";
  126.  2: incolor = "G";
  127.  3: incolor = "GB";
  128.  4: incolor = "R";
  129.  5: incolor = "RB";
  130.  6: incolor = "RG";
  131.  7: incolor = "W";
  132.  endcase
  133.  if blink then incolor = incolor + "*"; endif
  134.  if enhanced then
  135.    incolor = incolor + "+/";
  136.  else
  137.    incolor = incolor + "/";
  138.  endif
  139.  case background of
  140.  0: incolor = incolor + "N";
  141.  1: incolor = incolor + "B";
  142.  2: incolor = incolor + "G";
  143.  3: incolor = incolor + "GB";
  144.  4: incolor = incolor + "R";
  145.  5: incolor = incolor + "RB";
  146.  6: incolor = incolor + "RG";
  147.  7: incolor = incolor + "W";
  148.  endcase
  149.  return incolor;
  150. enddef;
  151. }
  152. {define itemover(cursor);
  153. //
  154. // these routines set a flag variable to indicate whether
  155. // an item in the menu has an overide to the menu database.
  156. // ---------------------------------------------------------
  157. // item database/view
  158. //
  159.     if (not itemview) then
  160.        if cursor.Item_View and (cursor.Item_View != Menu_View) then
  161.          itemview=1;
  162.        endif
  163.      endif
  164. //
  165. // item index
  166. //
  167.     if (not itemndx) then
  168.        if cursor.Item_NDX and (cursor.Item_NDX != Menu_NDX) then
  169.          itemndx=1;
  170.        endif
  171.      endif
  172. //
  173. // item index order
  174. //
  175.     if (not itemord) then
  176.        if cursor.Item_Order and (cursor.Item_Order != Menu_Order) then
  177.          itemord=1;
  178.        endif
  179.      endif
  180. // ---------------------------------------------------------
  181. //
  182.  return;
  183. enddef
  184. //
  185. define display_type()
  186.     // Find out the display type we are working on
  187.     var temp;
  188.     case display of
  189.        mono:   temp = "MONO"
  190.        cga:    temp = "COLOR"
  191.        ega25:  temp = "EGA25"
  192.        mono43: temp = "MONO43"
  193.        ega43:  temp = "EGA43"
  194.      endcase
  195.      return temp;
  196. enddef
  197.  
  198. define do_as_headr(cursor)
  199. }
  200. * Author.......: {if author then}{alltrim(author)}{endif}
  201. * Date.........: {ltrim(SUBSTR(DATE(),1,8))}
  202. * Notice.......: {if Copyright then}{alltrim(Copyright)}{endif}
  203. * Generated by.: dBASE IV version {db_version_no}
  204. { if cursor.Menu_Desc then}
  205. * Description..: {alltrim(cursor.Menu_Desc)}
  206. { endif
  207. return;
  208. enddef
  209.  
  210. define out_text_with_deli( cursor )
  211. //-------------------------------------------------------------------
  212. // Output to current file a delimited text string
  213. //-------------------------------------------------------------------
  214.   if at( '"', cursor.TEXT_ITEM ) then     // Check for double quote
  215.     }[{cursor.TEXT_ITEM}]{
  216.   else
  217.     if at( "'", cursor.TEXT_ITEM ) then   // Check for single quote
  218.       }[{cursor.TEXT_ITEM}]{
  219.     else
  220.       }"{cursor.TEXT_ITEM}"{
  221.     endif
  222.   endif
  223. return;
  224. enddef
  225.  
  226. }
  227. // EOP AS_UDF.COD
  228.