/* -----------------------------------------------------

  :Program.     IncIntVer.oed
  :Author.      Albert Weinert [awn]
  :Address.     Feldblumenweg 2, D-5000 Köln 71
  :Version.     V1.2
  :Date.        08-Nov-1992
  :Copyright.   Public Domain
  :Language.    ARexx
  :Translator.  ARexx 1.15
  :Contents.    Erhöhen der Internen Versionnummer eines mit WriteVersionModule.oed
  :Contents.    erstellt wurde. Danach UpdateVersionModule.oed starten.
  :Imports.     Nichts
  :History.     V0.0   [awn] 14-Jul-1992 : Begonnen
  :History.     V1.0   [awn] 14-Jul-1992 : Funktionierende Version
  :History.     V1.1   [awn] 22-Jul-1992 : UpdateVersionModule.oed wir jetzt automatisch
  :History.                                am Ende des Skript gestartet.
  :History.     V1.2   [awn] 08-Nov-1992 : Das UpdateVersionsModule.oed wird nicht mehr gestartet

---------------------------------------------------------*/

options results

address 'OEd'

'insertoff'; 'top'

'title "Erhöhe Interne Version"'
'findstr' ":InternalVer."; 'next'
'wright';'wright'
version = " "
Do ForEver
  'getasc'; cod = result
  IF cod = 32 THEN break
  IF cod = 0 THEN break
  version = INSERT(D2C(cod),version,LENGTH(version))
  'right'
END

IF version = " none" THEN DO
 ver = 0
 rev = 0
END
ELSE DO
 parse VAR version ver "." rev
 ver = ver +1
 rev = 0
END
top;'findstr ":InternalVer."';next;wright;wright
'write ' ver; 'write "."'; 'write' rev; 'write " "';deleol
inserton