home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a031 / template.exe / DS_UDF.COD < prev    next >
Encoding:
Text File  |  1992-03-10  |  6.8 KB  |  276 lines
  1. //
  2. // Module Name: DS_UDF.COD
  3. // Description: UDF's used in the system
  4. //
  5. { 
  6. define scrndump()
  7.  
  8.   // This udf dumps the object image to the output stream with a ruler line.
  9.  
  10.   cnt = 0
  11.   forflag = barflag = 1; // same as .T.
  12. }
  13. Screen Image:
  14.    0         10        20        30        40        50        60        70
  15.   >.....+....|....+....|....+....|....+....|....+....|....+....|....+....|....+.
  16. {if graph_prt then
  17.   // call graphics screen dump.
  18.   include "ds_box.cod";
  19. else
  20.   // call ascii screen dump.
  21.    do while cnt < scrn_size
  22.      line = SCREEN(cnt)
  23.      if cnt < 10 then
  24.        linecnt = "0"+str(cnt)
  25.      else
  26.        linecnt = str(cnt)
  27.      endif
  28.      print(substr(linecnt+":"+line,1,80)+crlf);
  29.      ++cnt;
  30.    enddo
  31.  endif // if graph_prt
  32.  print("  >.....+....|....+....|....+....|....+....|....+....|....+....|....+....|....+."+crlf);
  33.  return;
  34. enddef
  35.  
  36. define endofpage()
  37.  
  38.   // This udf checks for End of Page. It uses the curline() and pageject() to
  39.   //  determine if more than 59 lines have been output to the file.  Once 
  40.   //  pageject() is called curline() is reset to zero.  On each new page we
  41.   //  output a page number and date.
  42.  
  43.   if curline() > 59 then
  44.     pagecnt=pagecnt+1
  45.     pageject()
  46.     print(crlf+"Page: "+str(pagecnt)+"  Date: "+ltrim(date())+crlf+crlf)
  47.   endif
  48.   return;
  49. enddef
  50.  
  51. define db_inlin()
  52.  
  53.   // This udf is used for processing Inline dBASE code.
  54.  
  55.   endofpage()
  56.   foreach Inline_Do l in flds
  57.     if Inline_Do then
  58.        print("  "+rtrim(Inline_Do)+crlf)
  59.        endofpage()
  60.     endif
  61.   next l
  62.   endofpage()
  63.   lmarg(2)
  64.  return;
  65. enddef
  66.  
  67. define color(getcolor)
  68.  
  69.  // This udf is used for processing colors from the generator.
  70.  //  The foreground and background colors are stored in one byte.
  71.  //  The formulas below show how to get the foreground and background color
  72.  //  out of the variable passed in.
  73.  
  74.  var blink, forground, background, enhanced, incolor;
  75.  
  76.  forground = background = enhanced = 0
  77.  
  78.  if getcolor != 255 then                      // black on black?
  79.    blink = getcolor >> 7                      // high order bit set?
  80.    if blink then 
  81.      getcolor = getcolor - 128                // set high order bit to zero
  82.    endif
  83.    background = getcolor >> 4                 // getcolor divided by 16
  84.    forground  = getcolor - (background << 4)  // (background times 16)
  85.    if forground > 7 then                      // high intensity?
  86.      enhanced = 1
  87.      forground = forground - 8
  88.    endif
  89.  endif
  90.  
  91.  // Set your dBASE manual for an explanation of the colors below
  92.  case forground of
  93.   0: incolor = "N"
  94.   1: incolor = "B"
  95.   2: incolor = "G"
  96.   3: incolor = "BG"
  97.   4: incolor = "R"
  98.   5: incolor = "RB"
  99.   6: incolor = "GR"
  100.   7: incolor = "W"
  101.  endcase
  102.  
  103.  if blink then incolor = incolor + "*" endif
  104.  if enhanced then
  105.    incolor = incolor + "+/"
  106.  else
  107.    incolor = incolor + "/"
  108.  endif
  109.  
  110.  case background of
  111.   0: incolor = incolor + "N"
  112.   1: incolor = incolor + "B"
  113.   2: incolor = incolor + "G"
  114.   3: incolor = incolor + "BG"
  115.   4: incolor = incolor + "R"
  116.   5: incolor = incolor + "RB"
  117.   6: incolor = incolor + "GR"
  118.   7: incolor = incolor + "W"
  119.  endcase
  120.  return incolor;
  121. enddef
  122.  
  123. define get_box_text(line,linecnt,textline,col_post)
  124.   // Used for procesing the lines between top and bottom of a graphics screen
  125.   // dump.
  126.  
  127.   if Menu_Type == bar then
  128.     if barflag then
  129.        if col_post-1 <= 0 then
  130.          mspace=""
  131.        else
  132.          mspace = space(col_post-1)
  133.        endif
  134.     else
  135.       mspace = space(col_post-( len(line)-col1() ))
  136.     endif
  137.   else
  138.      line = space(col1())
  139.      mspace = space(col_post-1)
  140.   endif
  141.   case Mnu_Border of
  142.    0: // panel box
  143.      if Menu_Type != bar then
  144.        line = line + chr(219) + mspace + Textline
  145.        mspace2 = space((col2()-len(line)))
  146.        line = line + mspace2 + chr(219)
  147.      else
  148.         if barflag then
  149.           line = line + chr(219) + mspace + Textline
  150.         else
  151.           line = line + mspace + Textline
  152.         endif
  153.      endif
  154.  
  155.    1: // single line box
  156.      if Menu_Type != bar then
  157.        line = line + chr(179) + mspace + Textline
  158.         mspace2 = space((col2()-len(line)))
  159.         line = line + mspace2 + chr(179)
  160.      else
  161.         if barflag then
  162.           line = line + chr(179) + mspace + Textline
  163.         else
  164.           line = line + mspace + Textline
  165.         endif
  166.      endif
  167.  
  168.    2: // double line box
  169.      if Menu_Type != bar then
  170.        line = line + chr(186) + mspace + Textline
  171.        mspace2 = space((col2()-len(line)))
  172.        line = line + mspace2 + chr(186)
  173.      else
  174.        if barflag then
  175.          line = line + chr(186) + mspace + Textline
  176.        else
  177.          line = line + mspace + Textline
  178.        endif
  179.      endif
  180.  
  181.    3: // no line box
  182.      if Menu_Type != bar then
  183.        line = line + " " + mspace + Textline
  184.        mspace2 = space((col2()-len(line)))
  185.        line = line + mspace2 + chr(186)
  186.      else
  187.        if barflag then
  188.          line = line + " " + mspace + Textline
  189.        else
  190.          line = line + mspace + Textline
  191.        endif
  192.      endif
  193.   endcase
  194.  
  195.   if cnt < 10 and barflag then
  196.     linecnt = "0"+str(cnt)
  197.   else
  198.     if barflag then // bar flag test for processing a bar menu
  199.       linecnt = str(cnt)
  200.     endif
  201.   endif
  202.  
  203.   if Menu_Type != bar then
  204.     print(substr(linecnt+":"+line,1,80)+crlf);
  205.     ++cnt;
  206.   else
  207.     barflag = 0
  208.   endif
  209.  
  210.  return;
  211. enddef
  212.  
  213. define message(message); 
  214.   // Message(<chrC>): expects a string to be passed & display's a message 
  215.   //                  centered on line 23 or 42
  216.   pmsg(center(message))
  217.   cget()
  218.   return;
  219. enddef
  220.  
  221.  
  222. define center(message);
  223.    // Center(<chrC>): expects a string to be passed in
  224.    //           and returns the string centered between 80 columns
  225.    var mspace;
  226.    mspace = space((40-(len(message)/2)))
  227.    message = mspace + message
  228.    return message;
  229.  enddef
  230.  
  231.  define get_item(miid,mhead,mline,mcursor)
  232.   //
  233.   // This udf is used for processing item level text.
  234.   //
  235.   endofpage()
  236.   print_head=1
  237.   foreach miid getext in mcursor
  238.      if getext.miid then
  239.         if print_head then
  240.            print(crlf+mhead+crlf+mline+crlf)
  241.            lmarg(4)
  242.            Print_head=0
  243.         endif
  244.         print(rtrim(getext.miid)+crlf)
  245.         endofpage()
  246.      endif
  247.   next getext
  248.   endofpage()
  249.   lmarg(2)
  250.  return;
  251. enddef
  252.  
  253. define get_frame(miid, mhead, mline);
  254.   //
  255.   // This udf is used for processing frame level text.
  256.   //
  257.   endofpage()
  258.   print_head=1
  259.   foreach miid getext
  260.      if getext.miid then
  261.         if print_head then
  262.            print(crlf+mhead+crlf+mline+crlf)
  263.            lmarg(2)
  264.            Print_head=0
  265.         endif
  266.         print(rtrim(getext.miid)+crlf)
  267.         endofpage()
  268.      endif
  269.   next getext
  270.   endofpage()
  271.   lmarg(0)
  272.  return;
  273. enddef
  274. }
  275. // EOP DS_UDF.COD
  276.