home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / clipper / def220.arj / DEFCHECK.PRG < prev   
Encoding:
Text File  |  1992-06-01  |  12.9 KB  |  485 lines
  1. ***************************************************************************
  2. * 
  3. *   Programmname : defcheck.prg
  4. * 
  5. *   Datum        : 1992.1.16
  6. * 
  7. *   Autor        : INRO
  8. * 
  9. *   Version      :  1.00
  10. * 
  11. *   Kurze Programmbeschreibung : 
  12. * 
  13. ***************************************************************************
  14.  
  15.  parameters par1,par2,par3,par4
  16.  
  17.  set exact on
  18.  
  19.  ? "IRH Define Checker Version 2.20"
  20.  ? "IRH Corp. 1992. Freeware."
  21.  ?
  22.  
  23.  if pcount() # 3  .and. pcount() # 4
  24.     ? "Use : DEFCHECK <File> <Org.language> <Checklanguage> [/P]"
  25.     ? "[/P] : Print error"
  26.     quit
  27.  endif
  28.  
  29.  printit = .f.
  30.  
  31.  if pcount() = 4 
  32.     par4 = alltrim(upper(par4))
  33.     if par4 # "/P"
  34.        ? "Wrong Option"
  35.        ? "Use : DEFCHECK <File> <Org.language> <Checklanguage> [/P]"
  36.        ? "[/P] : Print error"
  37.        quit
  38.     else
  39.        printit = .t.
  40.     endif
  41.  endif
  42.  
  43.  datei = alltrim(par1)
  44.  
  45.  if "*" $ datei .or. "?" $ datei
  46.     ? "No wildcards allowed"
  47.     quit
  48.  endif
  49.  
  50.  if .not. file(datei)
  51.     ? "File not found"
  52.     quit
  53.  endif
  54.  
  55.  olan = alltrim(upper(par2))
  56.  clan = alltrim(upper(par3))
  57.  
  58.  if olan == clan
  59.     ? "Always look on the bright side of life ...."
  60.     quit
  61.  endif
  62.  
  63.  filelen = filesize(datei)
  64.  fianzbyte = 0
  65.  
  66.  fc = fopen(datei,0)
  67.  if ferror() # 0
  68.     ? " Open Error : " + str(ferror())
  69.     quit
  70.  endif
  71.  
  72.  fseek(fc,0,0)
  73.  if ferror() # 0
  74.     ? " Seek Error : " + str(ferror())
  75.     quit
  76.  endif
  77.  fianzbyte = 0
  78.  aktlen = 0
  79.  string = ""
  80.  tlinenum = 0
  81.  olinenum = 0
  82.  clinenum = 0
  83.  olanlifo = 0
  84.  clanlifo = 0
  85.  
  86.  ? "File checking start                   "
  87.  ?
  88.  
  89.  do while aktlen <= filelen 
  90.     ostring = string
  91.     string = alltrim(readline())
  92.     tlinenum = tlinenum + 1
  93.     @ row(),0 say "Working line : " + alltrim(str(tlinenum)) 
  94.     @ row(),0 say ""
  95.     if olan $ upper(string) .and. substr(upper(string),1,6) == "#IFDEF"
  96.        olanlifo = fianzbyte - (len(string)+1)
  97.        olinenum = tlinenum - 1
  98.     endif
  99.     if clan $ upper(string) .and. substr(upper(string),1,6) == "#IFDEF"
  100.        clanlifo = fianzbyte - (len(string)+1)
  101.        clinenum = tlinenum - 1
  102.     endif
  103.     if substr(string,1,1) # "*" .and. substr(string,1,1) # "#" .and.;
  104.        len(string) > 0 
  105.        if printit
  106.           set print on
  107.        endif
  108.        ?? alltrim(upper(datei)) + "(" + alltrim(str(tlinenum)) + ")" +;
  109.           " Warning : Crazy line found "
  110.        ? "    LINE : " + string
  111.        ?
  112.        if printit
  113.           set print off
  114.        endif
  115.     endif
  116.  enddo
  117.  
  118.  ?? "File checking end                   "
  119.  ?
  120.  if substr(upper(ostring),1,6) == "#ENDIF"
  121.     ?? alltrim(upper(datei)) + " Warning : #ENDIF on last position in File !"
  122.     ?
  123.  endif
  124.  
  125.  if olanlifo = 0 
  126.     ?? alltrim(upper(datei)) + " Error : Original language not found"
  127.     ?
  128.     quit
  129.  endif
  130.  
  131.  if clanlifo = 0 
  132.     ?? alltrim(upper(datei)) + " Error : Check language not found"
  133.     ?
  134.     quit
  135.  endif
  136.  
  137.  fseek(fc,olanlifo,0)
  138.  if ferror() # 0
  139.     ? " Seek Error : " + str(ferror())
  140.     quit
  141.  endif
  142.  fianzbyte = 0
  143.  aktlen = 0
  144.  
  145.  olanfound = .f.
  146.  string = ""
  147.  oendifs = 0
  148.  
  149. * @ row(),0 say "Seek for original language ..."
  150. * ?
  151. *
  152. * for i = 1 to olanlifo
  153. *    readline()
  154. *    olinenum = olinenum + 1
  155. * next
  156.  
  157.  do while aktlen <= filelen 
  158.     string = alltrim(readline())
  159.     olinenum = olinenum + 1
  160.     @ row(),0 say "Working line : " + alltrim(str(olinenum)) 
  161.     @ row(),0 say ""
  162.     if substr(string,1,1) == "*"
  163.        loop
  164.     endif
  165.     if olanfound .and. substr(upper(string),1,6) == "#IFDEF"
  166.        oendifs = oendifs + 1
  167.     endif
  168.     if olan $ upper(string) .and. substr(upper(string),1,6) == "#IFDEF"
  169.        @ row(),0 say "Original language found at " + alltrim(str(olinenum))
  170.        ?
  171.        olanfound = .t.
  172.     endif
  173.     if olanfound .and. substr(upper(string),1,6) == "#ENDIF"
  174.        if oendifs <= 0
  175.           @ row(),0 say "Original language end at " + alltrim(str(olinenum))
  176.           ?
  177.           olanfound = .f.
  178.           exit
  179.        else
  180.           oendifs = oendifs - 1
  181.        endif
  182.     endif
  183.     if olanfound .and. substr(upper(string),1,7) == "#DEFINE"
  184.        if type ("odef") = "U"
  185.           odef = array(1,3)
  186.        else
  187.           aadd(odef,{"","",.f.})
  188.        endif
  189.        oarrlen =  len(odef)
  190.        odef [oarrlen,1] = token(string," ",2)
  191.        odef [oarrlen,3] = .f.
  192.        if numat("'",string) > 0
  193.              if printit
  194.                 set print on
  195.              endif
  196.              ?? alltrim(upper(datei)) + " Lan: " + olan + " (" + alltrim(str(olinenum)) + ")" +;
  197.                 " Error : >'< found "
  198.              ? "    DEFINE : " + token(string," ",2)
  199.              ? "    STRING : " + hstring
  200.              ?
  201.              if printit
  202.                 set print off
  203.              endif
  204.        endif
  205.        i = 3
  206.        hstring = ""
  207.        do while .not. empty(token(string," ",i))
  208.           hstring = hstring + " " + token(string," ",i)
  209.           i ++
  210.        enddo
  211.        hstring = alltrim(hstring)
  212.        if numat("'",string) > 0
  213.              if printit
  214.                 set print on
  215.              endif
  216.              ?? alltrim(upper(datei)) + " Lan: " + olan + " (" + alltrim(str(olinenum)) + ")" +;
  217.                 " Error : >'< found "
  218.              ? "    DEFINE : " + token(string," ",2)
  219.              ? "    STRING : " + hstring
  220.              ?
  221.              if printit
  222.                 set print off
  223.              endif
  224.        endif
  225.        if hstring = alltrim(str(val(hstring)))
  226.           odef [oarrlen,2] = "N"
  227.        elseif numat(chr(34),hstring) > 0
  228.           if numat(chr(34),hstring) # int(numat(chr(34),hstring)/2)*2
  229.              if printit
  230.                 set print on
  231.              endif
  232.              ?? alltrim(upper(datei)) + " Lan: " + olan + " (" + alltrim(str(olinenum)) + ")" +;
  233.                 " Error : Unterminated string"
  234.              ? "    DEFINE : " + token(string," ",2)
  235.              ? "    STRING : " + hstring
  236.              ?
  237.              if printit
  238.                 set print off
  239.              endif
  240.           endif
  241.           odef [oarrlen,2] = "S"
  242.        else
  243.           odef [oarrlen,2] = "C"
  244.        endif
  245.     endif
  246.  enddo
  247.  
  248.  if type("odef") = "U"
  249.     ?? alltrim(upper(datei)) + " Warning : No DEFINE found"
  250.     ?
  251.     quit
  252.  endif
  253.  
  254.  ?? "Checking " + clan
  255.  ?
  256.  
  257.  fseek(fc,clanlifo,0)
  258.  if ferror() # 0
  259.     ? " Seek Error : " + str(ferror())
  260.     quit
  261.  endif
  262.  fianzbyte = 0
  263.  aktlen = 0
  264.  
  265.  clanfound = .f.
  266.  string = ""
  267.  cendifs = 0
  268.  
  269. * @ row(),0 say "Seek for check language ..."
  270. * ?
  271. *
  272. * for i = 1 to clanlifo
  273. *    readline()
  274. *    clinenum = clinenum + 1
  275. * next
  276.  
  277.  do while aktlen <= filelen 
  278.     string = alltrim(readline())
  279.     clinenum = clinenum + 1
  280.     @ row(),0 say "Working line : " + alltrim(str(clinenum)) 
  281.     @ row(),0 say ""
  282.     if substr(string,1,1) == "*"
  283.        loop
  284.     endif
  285.     if clanfound .and. substr(upper(string),1,6) == "#IFDEF"
  286.        cendifs = cendifs + 1
  287.     endif
  288.     if clan $ upper(string) .and. substr(upper(string),1,6) == "#IFDEF"
  289.        @ row(),0 say "Check language found at " + alltrim(str(clinenum))
  290.        ?
  291.        clanfound = .t.
  292.     endif
  293.     if clanfound .and. substr(upper(string),1,6) == "#ENDIF"
  294.        if cendifs <= 0
  295.           @ row(),0 say "Check language end at " + alltrim(str(clinenum))
  296.           ?
  297.           clanfound = .f.
  298.           exit
  299.        else
  300.           cendifs = cendifs -1
  301.        endif
  302.     endif
  303.     if clanfound .and. substr(upper(string),1,7) == "#DEFINE"
  304.        i = 3
  305.        hstring = ""
  306.        do while .not. empty(token(string," ",i))
  307.           hstring = hstring + " " + token(string," ",i)
  308.           i ++
  309.        enddo
  310.        hstring = alltrim(hstring)
  311.        stringpos = 0
  312.        for i = 1 to len(odef)
  313.           if odef[i,1] == alltrim(token(string," ",2)) .and. .not. odef[i,3]
  314.              stringpos = i
  315.              exit
  316.           endif
  317.        next
  318.        if numat("'",string) > 0
  319.           if printit
  320.              set print on
  321.           endif
  322.           ?? alltrim(upper(datei)) + " Lan: "+ clan+ " (" + alltrim(str(clinenum)) + ")" +;
  323.              " Error : >'< found "
  324.           ? "    DEFINE : " + token(string," ",2)
  325.           ? "    STRING : " + hstring
  326.           ?
  327.           if printit
  328.              set print off
  329.           endif
  330.        endif
  331.        if stringpos = 0
  332.           if printit
  333.              set print on
  334.           endif
  335.           ?? alltrim(upper(datei)) + " Lan: "+ clan+ " (" + alltrim(str(clinenum)) + ")" +;
  336.              " Warning : Define not in original language "
  337.           ? "    DEFINE : " + token(string," ",2)
  338.           ? "    STRING : " + hstring
  339.           ?
  340.           if printit
  341.              set print off
  342.           endif
  343.        else
  344.           odef [stringpos,3] = .t.
  345.           if odef[stringpos,2] = "N"
  346.              if hstring # alltrim(str(val(hstring)))
  347.                 if printit
  348.                    set print on
  349.                 endif
  350.                 ?? alltrim(upper(datei)) + " Lan: "+ clan+ " (" + alltrim(str(clinenum)) + ")" +;
  351.                    " Error : Wrong type found "
  352.                 ? "    DEFINE : " + token(string," ",2)
  353.                 ? "    STRING : " + hstring
  354.                 ?
  355.                 if printit
  356.                    set print off
  357.                 endif
  358.              endif
  359.           elseif odef[stringpos,2] = "S"
  360.              if hstring = alltrim(str(val(hstring)))
  361.                 if printit
  362.                    set print on
  363.                 endif
  364.                 ?? alltrim(upper(datei)) + " Lan: "+ clan+ " (" + alltrim(str(clinenum)) + ")" +;
  365.                    " Error : Wrong type found "
  366.                 ? "    DEFINE : " + token(string," ",2)
  367.                 ? "    STRING : " + hstring
  368.                 ?
  369.                 if printit
  370.                    set print off
  371.                 endif
  372.              elseif numat(chr(34),hstring) > 0
  373.                 if numat(chr(34),hstring) # int(numat(chr(34),hstring)/2)*2
  374.                    if printit
  375.                       set print on
  376.                    endif
  377.                    ?? alltrim(upper(datei)) + " Lan: "+ clan+ " (" + alltrim(str(clinenum)) + ")" +;
  378.                       " Error : Unterminated string"
  379.                    ? "    DEFINE : " + token(string," ",2)
  380.                    ? "    STRING : " + hstring
  381.                    ?
  382.                    if printit
  383.                       set print off
  384.                    endif
  385.                 endif
  386.              else
  387.                 if printit
  388.                    set print on
  389.                 endif
  390.                 ?? alltrim(upper(datei)) + " Lan: "+ clan+ " (" + alltrim(str(clinenum)) + ")" +;
  391.                    " Error : Wrong type found "
  392.                 ? "    DEFINE : " + token(string," ",2)
  393.                 ? "    STRING : " + hstring
  394.                 ?
  395.                 if printit
  396.                    set print off
  397.                 endif
  398.              endif
  399.           elseif odef[stringpos,2] = "C"
  400.              if hstring = alltrim(str(val(hstring)))
  401.                 if printit
  402.                    set print on
  403.                 endif
  404.                 ?? alltrim(upper(datei)) + " Lan: "+ clan+ " (" + alltrim(str(clinenum)) + ")" +;
  405.                    " Error : Wrong type found "
  406.                 ? "    DEFINE : " + token(string," ",2)
  407.                 ? "    STRING : " + hstring
  408.                 ?
  409.                 if printit
  410.                    set print off
  411.                 endif
  412.              elseif numat(chr(34),hstring) > 0
  413.                 if printit
  414.                    set print on
  415.                 endif
  416.                 ?? alltrim(upper(datei)) + " Lan: "+ clan+ " (" + alltrim(str(clinenum)) + ")" +;
  417.                    " Error : Wrong type found "
  418.                 ? "    DEFINE : " + token(string," ",2)
  419.                 ? "    STRING : " + hstring
  420.                 ?
  421.                 if printit
  422.                    set print off
  423.                 endif
  424.              endif
  425.           endif
  426.        endif
  427.     endif
  428.  enddo
  429.  
  430.  for i = 1 to len(odef)
  431.     if .not. odef[i,3]
  432.        if printit
  433.           set print on
  434.        endif
  435.        ?? alltrim(upper(datei)) + " Lan: " + clan +;
  436.           " Error : Define in Checking Language missing "
  437.        ? "    DEFINE : " + odef[i,1]
  438.        ?
  439.        if printit
  440.           set print off
  441.        endif
  442.     endif
  443.  next
  444.  
  445.  @ row(),0 say "End of checking                                    "
  446.  
  447.  quit
  448.  
  449. *-------------------------------------------------------------------------
  450. * 
  451. * 
  452. * 
  453. *   Datum         : 1992.1.17
  454. * 
  455. *   Parameter     : 
  456. * 
  457. *   Returnwert    : 
  458. * 
  459. *   Aufgerufene Funktionen : 
  460. * 
  461. *   Kurze Beschreibung     : 
  462. * 
  463. *-------------------------------------------------------------------------
  464.  
  465.  function readline
  466.  
  467.  private string ,char1
  468.  
  469.  string = ""
  470.  
  471.  char1 = freadstr(fc,1)
  472.  fianzbyte = fianzbyte + 1
  473.  aktlen = aktlen + 1
  474.  
  475.  do while char1 # chr(13) .and. aktlen <= filelen
  476.     if asc(char1) > 31
  477.        string = string + char1
  478.     endif
  479.     char1 = freadstr(fc,1)
  480.     fianzbyte = fianzbyte + 1
  481.     aktlen = aktlen + 1
  482.  enddo
  483.  
  484.  return string
  485.