Changeset 30 for trunk


Ignore:
Timestamp:
Feb 18, 2012, 7:49:17 PM (13 years ago)
Author:
chronos
Message:
  • Renamed: Compilers renamed to Targets. Interpretter will be one of possible targets.
Location:
trunk
Files:
4 deleted
8 edited
4 copied
2 moved

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UInterpretterForm.lfm

    r23 r30  
    231231      Left = 70
    232232      Top = 2
    233       Action = MainForm.AInterpretterRunToCursor
     233      Action = MainForm.AProgramRunToCursor
    234234    end
    235235    object ToolButton5: TToolButton
    236236      Left = 93
    237237      Top = 2
    238       Action = MainForm.AInterpretterStepInto
     238      Action = MainForm.AProgramStepInto
    239239    end
    240240    object ToolButton6: TToolButton
    241241      Left = 116
    242242      Top = 2
    243       Action = MainForm.AInterpretterStepOut
     243      Action = MainForm.AProgramStepOut
    244244    end
    245245    object ToolButton7: TToolButton
    246246      Left = 139
    247247      Top = 2
    248       Action = MainForm.AInterpretterStopOver
     248      Action = MainForm.AProgramStopOver
    249249    end
    250250  end

  • trunk/Forms/UMainForm.lfm

    r25 r30  
    55  Width = 643
    66  Caption = 'LazFuck'
    7   ClientHeight = 446
     7  ClientHeight = 440
    88  ClientWidth = 643
    99  Menu = MainMenu1
    … …  
    1616  object MemoSource: TMemo
    1717    Left = 0
    18     Height = 370
     18    Height = 363
    1919    Top = 56
    2020    Width = 643
    … …  
    3434  object StatusBar1: TStatusBar
    3535    Left = 0
    36     Height = 20
    37     Top = 426
     36    Height = 21
     37    Top = 419
    3838    Width = 643
    3939    Panels = <   
    … …  
    113113      Top = 2
    114114      Action = AProgramStop
     115    end
     116    object ToolButton12: TToolButton
     117      Left = 241
     118      Top = 2
     119      Caption = 'ToolButton12'
     120    end
     121    object ToolButton13: TToolButton
     122      Left = 264
     123      Top = 2
     124      Caption = 'ToolButton13'
     125    end
     126    object ToolButton14: TToolButton
     127      Left = 287
     128      Top = 2
     129      Caption = 'ToolButton14'
     130    end
     131    object ToolButton15: TToolButton
     132      Left = 310
     133      Top = 2
     134      Caption = 'ToolButton15'
    115135    end
    116136  end
    … …  
    538558        }
    539559      end
     560      object MenuItem32: TMenuItem
     561        Action = AProgramStepInto
     562      end
     563      object MenuItem33: TMenuItem
     564        Action = AProgramStopOver
     565      end
     566      object MenuItem34: TMenuItem
     567        Action = AProgramStepOut
     568      end
     569      object MenuItem35: TMenuItem
     570        Action = AProgramRunToCursor
     571      end
    540572    end
    541573    object MenuItem24: TMenuItem
    … …  
    549581      object MenuItem28: TMenuItem
    550582        Action = AGenerateNumber
     583        Bitmap.Data = {
     584          36040000424D3604000000000000360000002800000010000000100000000100
     585          2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
     586          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     587          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     588          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     589          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     590          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     591          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     592          FF000000008B000000B7FFFFFF000000008B000000FF000000FF000000FF0000
     593          008BFFFFFF00000000B7000000FF000000B7FFFFFF00FFFFFF00FFFFFF00FFFF
     594          FF000000008B000000B7FFFFFF0000000063000000FF00000063FFFFFF00FFFF
     595          FF0000000063000000B700000020000000FF00000063FFFFFF00FFFFFF00FFFF
     596          FF000000008B000000B7FFFFFF00FFFFFF00000000FF000000FF00000020FFFF
     597          FF00FFFFFF00FFFFFF00FFFFFF00000000FF0000008BFFFFFF00FFFFFF00FFFF
     598          FF000000008B000000B7FFFFFF00FFFFFF0000000040000000FF000000B7FFFF
     599          FF00FFFFFF00FFFFFF00FFFFFF00000000FF00000063FFFFFF00FFFFFF00FFFF
     600          FF000000008B000000B7FFFFFF00FFFFFF00FFFFFF000000008B000000FF0000
     601          0040FFFFFF00FFFFFF00000000FF00000040FFFFFF00FFFFFF00000000200000
     602          00B70000008B000000B7FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000FF0000
     603          008BFFFFFF00FFFFFF0000000020000000FF00000020FFFFFF00000000200000
     604          00FF000000FF000000B7FFFFFF00FFFFFF00FFFFFF00FFFFFF000000008B0000
     605          008BFFFFFF00FFFFFF00FFFFFF00000000FF00000040FFFFFF00FFFFFF000000
     606          0040000000FF000000B7FFFFFF0000000063000000B7FFFFFF00000000B70000
     607          0063000000630000008B00000020000000FF00000020FFFFFF00FFFFFF00FFFF
     608          FF0000000063000000B7FFFFFF00FFFFFF00000000FF000000FF000000B7FFFF
     609          FF00FFFFFF00000000FF000000FF0000008BFFFFFF00FFFFFF00FFFFFF00FFFF
     610          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     611          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     612          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     613          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     614          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     615          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     616          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     617          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
     618        }
    551619      end
    552620    end
    … …  
    694762    end
    695763    object ACompile: TAction
     764      Category = 'Program'
    696765      Caption = 'Compile'
    697766      ImageIndex = 8
    698767      OnExecute = ACompileExecute
     768      ShortCut = 16504
    699769    end
    700770    object ACompileAndRun: TAction
    … …  
    703773    end
    704774    object AProgramRun: TAction
     775      Category = 'Program'
    705776      Caption = 'Run'
    706777      ImageIndex = 1
    707778      OnExecute = AProgramRunExecute
     779      ShortCut = 120
    708780    end
    709781    object AAbout: TAction
    … …  
    715787    end
    716788    object AProgramPause: TAction
     789      Category = 'Program'
    717790      Caption = 'Pause'
    718791      ImageIndex = 11
    … …  
    720793    end
    721794    object AProgramStop: TAction
     795      Category = 'Program'
    722796      Caption = 'Stop'
    723797      ImageIndex = 10
    724798      OnExecute = AProgramStopExecute
     799      ShortCut = 16497
    725800    end
    726801    object AViewInterpretter: TAction
    … …  
    734809      OnExecute = AViewCompiledExecute
    735810    end
    736     object AInterpretterStepInto: TAction
     811    object AProgramStepInto: TAction
     812      Category = 'Program'
    737813      Caption = 'Step into'
    738     end
    739     object AInterpretterStopOver: TAction
     814      ShortCut = 118
     815    end
     816    object AProgramStopOver: TAction
     817      Category = 'Program'
    740818      Caption = 'Step over'
    741     end
    742     object AInterpretterRunToCursor: TAction
     819      ShortCut = 119
     820    end
     821    object AProgramRunToCursor: TAction
     822      Category = 'Program'
    743823      Caption = 'Run to cursor'
    744     end
    745     object AInterpretterStepOut: TAction
     824      ShortCut = 115
     825    end
     826    object AProgramStepOut: TAction
     827      Category = 'Program'
    746828      Caption = 'Step out'
     829      ShortCut = 8311
    747830    end
    748831    object ABreakpointToggle: TAction
    … …  
    13021385    object MenuItem29: TMenuItem
    13031386      Action = AGenerateNumber
     1387      Bitmap.Data = {
     1388        36040000424D3604000000000000360000002800000010000000100000000100
     1389        2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
     1390        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     1391        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     1392        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     1393        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     1394        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     1395        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     1396        FF000000008B000000B7FFFFFF000000008B000000FF000000FF000000FF0000
     1397        008BFFFFFF00000000B7000000FF000000B7FFFFFF00FFFFFF00FFFFFF00FFFF
     1398        FF000000008B000000B7FFFFFF0000000063000000FF00000063FFFFFF00FFFF
     1399        FF0000000063000000B700000020000000FF00000063FFFFFF00FFFFFF00FFFF
     1400        FF000000008B000000B7FFFFFF00FFFFFF00000000FF000000FF00000020FFFF
     1401        FF00FFFFFF00FFFFFF00FFFFFF00000000FF0000008BFFFFFF00FFFFFF00FFFF
     1402        FF000000008B000000B7FFFFFF00FFFFFF0000000040000000FF000000B7FFFF
     1403        FF00FFFFFF00FFFFFF00FFFFFF00000000FF00000063FFFFFF00FFFFFF00FFFF
     1404        FF000000008B000000B7FFFFFF00FFFFFF00FFFFFF000000008B000000FF0000
     1405        0040FFFFFF00FFFFFF00000000FF00000040FFFFFF00FFFFFF00000000200000
     1406        00B70000008B000000B7FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000FF0000
     1407        008BFFFFFF00FFFFFF0000000020000000FF00000020FFFFFF00000000200000
     1408        00FF000000FF000000B7FFFFFF00FFFFFF00FFFFFF00FFFFFF000000008B0000
     1409        008BFFFFFF00FFFFFF00FFFFFF00000000FF00000040FFFFFF00FFFFFF000000
     1410        0040000000FF000000B7FFFFFF0000000063000000B7FFFFFF00000000B70000
     1411        0063000000630000008B00000020000000FF00000020FFFFFF00FFFFFF00FFFF
     1412        FF0000000063000000B7FFFFFF00FFFFFF00000000FF000000FF000000B7FFFF
     1413        FF00FFFFFF00000000FF000000FF0000008BFFFFFF00FFFFFF00FFFFFF00FFFF
     1414        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     1415        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     1416        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     1417        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     1418        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     1419        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     1420        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     1421        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
     1422      }
    13041423    end
    13051424  end

  • trunk/Forms/UMainForm.lrt

    r25 r30  
    11TMAINFORM.CAPTION=LazFuck
     2TMAINFORM.TOOLBUTTON12.CAPTION=ToolButton12
     3TMAINFORM.TOOLBUTTON13.CAPTION=ToolButton13
     4TMAINFORM.TOOLBUTTON14.CAPTION=ToolButton14
     5TMAINFORM.TOOLBUTTON15.CAPTION=ToolButton15
    26TMAINFORM.MENUITEM1.CAPTION=Project
    37TMAINFORM.MENUITEMOPENRECENT.CAPTION=Open recent
    … …  
    2428TMAINFORM.AVIEWINTERPRETTER.CAPTION=Interpretter
    2529TMAINFORM.AVIEWCOMPILED.CAPTION=Compiled
    26 TMAINFORM.AINTERPRETTERSTEPINTO.CAPTION=Step into
    27 TMAINFORM.AINTERPRETTERSTOPOVER.CAPTION=Step over
    28 TMAINFORM.AINTERPRETTERRUNTOCURSOR.CAPTION=Run to cursor
    29 TMAINFORM.AINTERPRETTERSTEPOUT.CAPTION=Step out
     30TMAINFORM.APROGRAMSTEPINTO.CAPTION=Step into
     31TMAINFORM.APROGRAMSTOPOVER.CAPTION=Step over
     32TMAINFORM.APROGRAMRUNTOCURSOR.CAPTION=Run to cursor
     33TMAINFORM.APROGRAMSTEPOUT.CAPTION=Step out
    3034TMAINFORM.ABREAKPOINTTOGGLE.CAPTION=Toggle breakpoint
    3135TMAINFORM.AOPTIONS.CAPTION=Options

  • trunk/Forms/UMainForm.pas

    r28 r30  
    2727    AFormatSource: TAction;
    2828    AOptions: TAction;
    29     AInterpretterStepOut: TAction;
    30     AInterpretterRunToCursor: TAction;
    31     AInterpretterStopOver: TAction;
    32     AInterpretterStepInto: TAction;
     29    AProgramStepOut: TAction;
     30    AProgramRunToCursor: TAction;
     31    AProgramStopOver: TAction;
     32    AProgramStepInto: TAction;
    3333    AViewCompiled: TAction;
    3434    AViewInterpretter: TAction;
    … …  
    7272    MenuItem30: TMenuItem;
    7373    MenuItem31: TMenuItem;
     74    MenuItem32: TMenuItem;
     75    MenuItem33: TMenuItem;
     76    MenuItem34: TMenuItem;
     77    MenuItem35: TMenuItem;
    7478    MenuItemOpenRecent: TMenuItem;
    7579    MenuItemTarget: TMenuItem;
    … …  
    9094    ToolButton10: TToolButton;
    9195    ToolButton11: TToolButton;
     96    ToolButton12: TToolButton;
     97    ToolButton13: TToolButton;
     98    ToolButton14: TToolButton;
     99    ToolButton15: TToolButton;
    92100    ToolButton2: TToolButton;
    93101    ToolButton3: TToolButton;

  • trunk/Languages/LazFuckIDE.cs.po

    r28 r30  
    122122msgstr "Nápověda"
    123123
    124 #: tmainform.ainterpretterruntocursor.caption
    125 msgid "Run to cursor"
    126 msgstr "Spustit po ukazatel"
    127 
    128 #: tmainform.ainterpretterstepinto.caption
    129 msgid "Step into"
    130 msgstr "Vstoupit do"
    131 
    132 #: tmainform.ainterpretterstepout.caption
    133 msgid "Step out"
    134 msgstr "Vystoupit z"
    135 
    136 #: tmainform.ainterpretterstopover.caption
    137 msgid "Step over"
    138 msgstr "Přejít přes"
    139 
    140124#: tmainform.aoptions.caption
    141125msgctxt "tmainform.aoptions.caption"
    … …  
    151135msgstr "Spustit"
    152136
     137#: tmainform.aprogramruntocursor.caption
     138msgctxt "tmainform.aprogramruntocursor.caption"
     139msgid "Run to cursor"
     140msgstr "Spustit po ukazatel"
     141
     142#: tmainform.aprogramstepinto.caption
     143msgctxt "tmainform.aprogramstepinto.caption"
     144msgid "Step into"
     145msgstr "Vstoupit do"
     146
     147#: tmainform.aprogramstepout.caption
     148msgctxt "tmainform.aprogramstepout.caption"
     149msgid "Step out"
     150msgstr "Vystoupit z"
     151
    153152#: tmainform.aprogramstop.caption
    154153msgid "Stop"
    155154msgstr "Zastavit"
     155
     156#: tmainform.aprogramstopover.caption
     157msgctxt "tmainform.aprogramstopover.caption"
     158msgid "Step over"
     159msgstr "Přejít přes"
    156160
    157161#: tmainform.aprojectclose.caption
    … …  
    237241msgstr "Cíl"
    238242
     243#: tmainform.toolbutton12.caption
     244msgid "ToolButton12"
     245msgstr ""
     246
     247#: tmainform.toolbutton13.caption
     248msgid "ToolButton13"
     249msgstr ""
     250
     251#: tmainform.toolbutton14.caption
     252msgid "ToolButton14"
     253msgstr ""
     254
     255#: tmainform.toolbutton15.caption
     256msgid "ToolButton15"
     257msgstr ""
     258
    239259#: toptionsform.buttoncancel.caption
    240260msgid "Cancel"
    … …  
    267287
    268288#: ubrainfuck.sjumptablecolision
     289msgctxt "ubrainfuck.sjumptablecolision"
    269290msgid "Jump table colision"
    270291msgstr "Kolize skokové tabulky"
    271292
    272293#: ubrainfuck.sjumptableinsistent
     294msgctxt "ubrainfuck.sjumptableinsistent"
    273295msgid "Jump table is inconsistent"
    274296msgstr "Nekonzistentní skoková tabulka"
    275297
    276298#: ubrainfuck.smemorycelloutofrange
     299msgctxt "ubrainfuck.smemorycelloutofrange"
    277300msgid "Memory cell %s value out of range"
    278301msgstr "Hodnota paměťové buňky %s je mimo rozsah"
    279302
    280303#: ubrainfuck.sprogramlowerlimit
     304msgctxt "ubrainfuck.sprogramlowerlimit"
    281305msgid "Program run over lower limit"
    282306msgstr "Program překročil dolní omezení"
    283307
    284308#: ubrainfuck.sprogramupperlimit
     309msgctxt "ubrainfuck.sprogramupperlimit"
    285310msgid "Program run over upper limit"
    286311msgstr "Program překročil horní omezení"
    287312
    288313#: ubrainfuck.sreadinputerror
     314msgctxt "ubrainfuck.sreadinputerror"
    289315msgid "Read input error"
    290316msgstr "Chyba čtení vstupu"
    … …  
    330356msgstr "Program ukončen"
    331357
     358#: utarget.scompiledfilenotfound
     359msgctxt "utarget.scompiledfilenotfound"
     360msgid "Program compiled file \"%s\" not found"
     361msgstr ""
     362
     363#: utarget.scompilernotfound
     364msgctxt "utarget.scompilernotfound"
     365msgid "Compiler \"%s\" not found"
     366msgstr ""
     367
     368#: utargetinterpretter.sjumptablecolision
     369msgctxt "utargetinterpretter.sjumptablecolision"
     370msgid "Jump table colision"
     371msgstr "Kolize skokové tabulky"
     372
     373#: utargetinterpretter.sjumptableinsistent
     374msgctxt "utargetinterpretter.sjumptableinsistent"
     375msgid "Jump table is inconsistent"
     376msgstr "Nekonzistentní skoková tabulka"
     377
     378#: utargetinterpretter.smemorycelloutofrange
     379msgctxt "utargetinterpretter.smemorycelloutofrange"
     380msgid "Memory cell %s value out of range"
     381msgstr "Hodnota paměťové buňky %s je mimo rozsah"
     382
     383#: utargetinterpretter.sprogramlowerlimit
     384msgctxt "utargetinterpretter.sprogramlowerlimit"
     385msgid "Program run over lower limit"
     386msgstr "Program překročil dolní omezení"
     387
     388#: utargetinterpretter.sprogramupperlimit
     389msgctxt "utargetinterpretter.sprogramupperlimit"
     390msgid "Program run over upper limit"
     391msgstr "Program překročil horní omezení"
     392
     393#: utargetinterpretter.sreadinputerror
     394msgctxt "utargetinterpretter.sreadinputerror"
     395msgid "Read input error"
     396msgstr "Chyba čtení vstupu"
     397

  • trunk/Languages/LazFuckIDE.po

    r28 r30  
    113113msgstr ""
    114114
    115 #: tmainform.ainterpretterruntocursor.caption
    116 msgid "Run to cursor"
    117 msgstr ""
    118 
    119 #: tmainform.ainterpretterstepinto.caption
    120 msgid "Step into"
    121 msgstr ""
    122 
    123 #: tmainform.ainterpretterstepout.caption
    124 msgid "Step out"
    125 msgstr ""
    126 
    127 #: tmainform.ainterpretterstopover.caption
    128 msgid "Step over"
    129 msgstr ""
    130 
    131115#: tmainform.aoptions.caption
    132116msgctxt "TMAINFORM.AOPTIONS.CAPTION"
    … …  
    142126msgstr ""
    143127
     128#: tmainform.aprogramruntocursor.caption
     129msgctxt "TMAINFORM.APROGRAMRUNTOCURSOR.CAPTION"
     130msgid "Run to cursor"
     131msgstr ""
     132
     133#: tmainform.aprogramstepinto.caption
     134msgctxt "TMAINFORM.APROGRAMSTEPINTO.CAPTION"
     135msgid "Step into"
     136msgstr ""
     137
     138#: tmainform.aprogramstepout.caption
     139msgctxt "TMAINFORM.APROGRAMSTEPOUT.CAPTION"
     140msgid "Step out"
     141msgstr ""
     142
    144143#: tmainform.aprogramstop.caption
    145144msgid "Stop"
     145msgstr ""
     146
     147#: tmainform.aprogramstopover.caption
     148msgctxt "TMAINFORM.APROGRAMSTOPOVER.CAPTION"
     149msgid "Step over"
    146150msgstr ""
    147151
    … …  
    228232msgstr ""
    229233
     234#: tmainform.toolbutton12.caption
     235msgid "ToolButton12"
     236msgstr ""
     237
     238#: tmainform.toolbutton13.caption
     239msgid "ToolButton13"
     240msgstr ""
     241
     242#: tmainform.toolbutton14.caption
     243msgid "ToolButton14"
     244msgstr ""
     245
     246#: tmainform.toolbutton15.caption
     247msgid "ToolButton15"
     248msgstr ""
     249
    230250#: toptionsform.buttoncancel.caption
    231251msgid "Cancel"
    … …  
    258278
    259279#: ubrainfuck.sjumptablecolision
     280msgctxt "ubrainfuck.sjumptablecolision"
    260281msgid "Jump table colision"
    261282msgstr ""
    262283
    263284#: ubrainfuck.sjumptableinsistent
     285msgctxt "ubrainfuck.sjumptableinsistent"
    264286msgid "Jump table is inconsistent"
    265287msgstr ""
    266288
    267289#: ubrainfuck.smemorycelloutofrange
     290msgctxt "ubrainfuck.smemorycelloutofrange"
    268291msgid "Memory cell %s value out of range"
    269292msgstr ""
    270293
    271294#: ubrainfuck.sprogramlowerlimit
     295msgctxt "ubrainfuck.sprogramlowerlimit"
    272296msgid "Program run over lower limit"
    273297msgstr ""
    274298
    275299#: ubrainfuck.sprogramupperlimit
     300msgctxt "ubrainfuck.sprogramupperlimit"
    276301msgid "Program run over upper limit"
    277302msgstr ""
    278303
    279304#: ubrainfuck.sreadinputerror
     305msgctxt "ubrainfuck.sreadinputerror"
    280306msgid "Read input error"
    281307msgstr ""
    … …  
    321347msgstr ""
    322348
     349#: utarget.scompiledfilenotfound
     350msgctxt "utarget.scompiledfilenotfound"
     351msgid "Program compiled file \"%s\" not found"
     352msgstr ""
     353
     354#: utarget.scompilernotfound
     355msgctxt "utarget.scompilernotfound"
     356msgid "Compiler \"%s\" not found"
     357msgstr ""
     358
     359#: utargetinterpretter.sjumptablecolision
     360msgctxt "utargetinterpretter.sjumptablecolision"
     361msgid "Jump table colision"
     362msgstr ""
     363
     364#: utargetinterpretter.sjumptableinsistent
     365msgctxt "utargetinterpretter.sjumptableinsistent"
     366msgid "Jump table is inconsistent"
     367msgstr ""
     368
     369#: utargetinterpretter.smemorycelloutofrange
     370msgctxt "utargetinterpretter.smemorycelloutofrange"
     371msgid "Memory cell %s value out of range"
     372msgstr ""
     373
     374#: utargetinterpretter.sprogramlowerlimit
     375msgctxt "utargetinterpretter.sprogramlowerlimit"
     376msgid "Program run over lower limit"
     377msgstr ""
     378
     379#: utargetinterpretter.sprogramupperlimit
     380msgctxt "utargetinterpretter.sprogramupperlimit"
     381msgid "Program run over upper limit"
     382msgstr ""
     383
     384#: utargetinterpretter.sreadinputerror
     385msgctxt "utargetinterpretter.sreadinputerror"
     386msgid "Read input error"
     387msgstr ""
     388

  • trunk/LazFuckIDE.lpi

    r29 r30  
    9292      </Unit0>
    9393      <Unit1>
    94         <Filename Value="UBrainFuck.pas"/>
    95         <IsPartOfProject Value="True"/>
    96         <UnitName Value="UBrainFuck"/>
     94        <Filename Value="UApplicationInfo.pas"/>
     95        <IsPartOfProject Value="True"/>
     96        <UnitName Value="UApplicationInfo"/>
    9797      </Unit1>
    9898      <Unit2>
    99         <Filename Value="UApplicationInfo.pas"/>
    100         <IsPartOfProject Value="True"/>
    101         <UnitName Value="UApplicationInfo"/>
     99        <Filename Value="Common\ULastOpenedList.pas"/>
     100        <IsPartOfProject Value="True"/>
     101        <UnitName Value="ULastOpenedList"/>
    102102      </Unit2>
    103103      <Unit3>
    104         <Filename Value="Compiler\UCompiler.pas"/>
    105         <IsPartOfProject Value="True"/>
    106         <UnitName Value="UCompiler"/>
     104        <Filename Value="Common\URegistry.pas"/>
     105        <IsPartOfProject Value="True"/>
     106        <UnitName Value="URegistry"/>
    107107      </Unit3>
    108108      <Unit4>
    109         <Filename Value="Compiler\UCompilerDelphi.pas"/>
    110         <IsPartOfProject Value="True"/>
    111         <UnitName Value="UCompilerDelphi"/>
     109        <Filename Value="Forms\UCompiledForm.pas"/>
     110        <IsPartOfProject Value="True"/>
     111        <ComponentName Value="CompiledForm"/>
     112        <HasResources Value="True"/>
     113        <ResourceBaseClass Value="Form"/>
     114        <UnitName Value="UCompiledForm"/>
    112115      </Unit4>
    113116      <Unit5>
    114         <Filename Value="Compiler\UCompilerPHP.pas"/>
    115         <IsPartOfProject Value="True"/>
    116         <UnitName Value="UCompilerPHP"/>
     117        <Filename Value="Forms\UMainForm.pas"/>
     118        <IsPartOfProject Value="True"/>
     119        <ComponentName Value="MainForm"/>
     120        <HasResources Value="True"/>
     121        <ResourceBaseClass Value="Form"/>
     122        <UnitName Value="UMainForm"/>
    117123      </Unit5>
    118124      <Unit6>
    119         <Filename Value="Common\ULastOpenedList.pas"/>
    120         <IsPartOfProject Value="True"/>
    121         <UnitName Value="ULastOpenedList"/>
     125        <Filename Value="Forms\UOptionsForm.pas"/>
     126        <IsPartOfProject Value="True"/>
     127        <ComponentName Value="OptionsForm"/>
     128        <HasResources Value="True"/>
     129        <ResourceBaseClass Value="Form"/>
     130        <UnitName Value="UOptionsForm"/>
    122131      </Unit6>
    123132      <Unit7>
    124         <Filename Value="Common\URegistry.pas"/>
    125         <IsPartOfProject Value="True"/>
    126         <UnitName Value="URegistry"/>
     133        <Filename Value="Forms\UInterpretterForm.pas"/>
     134        <IsPartOfProject Value="True"/>
     135        <ComponentName Value="InterpreterForm"/>
     136        <HasResources Value="True"/>
     137        <ResourceBaseClass Value="Form"/>
     138        <UnitName Value="UInterpretterForm"/>
    127139      </Unit7>
    128140      <Unit8>
    129         <Filename Value="Forms\UCompiledForm.pas"/>
    130         <IsPartOfProject Value="True"/>
    131         <ComponentName Value="CompiledForm"/>
    132         <HasResources Value="True"/>
    133         <ResourceBaseClass Value="Form"/>
    134         <UnitName Value="UCompiledForm"/>
     141        <Filename Value="Forms\UCompilersForm.pas"/>
     142        <IsPartOfProject Value="True"/>
     143        <ComponentName Value="FormCompilers"/>
     144        <ResourceBaseClass Value="Form"/>
     145        <UnitName Value="UCompilersForm"/>
    135146      </Unit8>
    136147      <Unit9>
    137         <Filename Value="Forms\UMainForm.pas"/>
    138         <IsPartOfProject Value="True"/>
    139         <ComponentName Value="MainForm"/>
    140         <HasResources Value="True"/>
    141         <ResourceBaseClass Value="Form"/>
    142         <UnitName Value="UMainForm"/>
     148        <Filename Value="Target\UTarget.pas"/>
     149        <IsPartOfProject Value="True"/>
     150        <UnitName Value="UTarget"/>
    143151      </Unit9>
    144152      <Unit10>
    145         <Filename Value="Forms\UOptionsForm.pas"/>
    146         <IsPartOfProject Value="True"/>
    147         <ComponentName Value="OptionsForm"/>
    148         <HasResources Value="True"/>
    149         <ResourceBaseClass Value="Form"/>
    150         <UnitName Value="UOptionsForm"/>
     153        <Filename Value="Target\UTargetC.pas"/>
     154        <IsPartOfProject Value="True"/>
     155        <UnitName Value="UTargetC"/>
    151156      </Unit10>
    152157      <Unit11>
    153         <Filename Value="Forms\UInterpretterForm.pas"/>
    154         <IsPartOfProject Value="True"/>
    155         <HasResources Value="True"/>
    156         <UnitName Value="UInterpretterForm"/>
     158        <Filename Value="Target\UTargetDelphi.pas"/>
     159        <IsPartOfProject Value="True"/>
     160        <UnitName Value="UTargetDelphi"/>
    157161      </Unit11>
    158162      <Unit12>
    159         <Filename Value="Forms\UCompilersForm.pas"/>
    160         <IsPartOfProject Value="True"/>
    161         <ComponentName Value="FormCompilers"/>
    162         <ResourceBaseClass Value="Form"/>
    163         <UnitName Value="UCompilersForm"/>
     163        <Filename Value="Target\UTargetInterpretter.pas"/>
     164        <IsPartOfProject Value="True"/>
     165        <UnitName Value="UTargetInterpretter"/>
    164166      </Unit12>
    165167      <Unit13>
    166         <Filename Value="Compiler\UCompilerC.pas"/>
    167         <IsPartOfProject Value="True"/>
    168         <UnitName Value="UCompilerC"/>
     168        <Filename Value="Target\UTargetPHP.pas"/>
     169        <IsPartOfProject Value="True"/>
     170        <UnitName Value="UTargetPHP"/>
    169171      </Unit13>
    170172    </Units>
    … …  
    178180    <SearchPaths>
    179181      <IncludeFiles Value="$(ProjOutDir)"/>
    180       <OtherUnitFiles Value="Compiler;Common;Forms"/>
     182      <OtherUnitFiles Value="Common;Forms;Target"/>
    181183      <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
    182184    </SearchPaths>

  • trunk/LazFuckIDE.lpr

    r27 r30  
    99  {$ENDIF}
    1010  Interfaces, // this includes the LCL widgetset
    11   Forms, UBrainFuck, UApplicationInfo, UCompiledForm, UInterpretterForm,
    12   UMainForm, UOptionsForm, ULastOpenedList, URegistry, CoolTranslator, Common,
    13   TemplateGenerics, UCompiler, UCompilerDelphi, UCompilerPHP, UCompilerC,
    14   UCompilersForm;
     11  Forms, UApplicationInfo, UTarget, UTargetC, UTargetDelphi,
     12  UTargetInterpretter, UTargetPHP, UCompiledForm, UInterpretterForm, UMainForm,
     13  UOptionsForm, ULastOpenedList, URegistry, CoolTranslator, Common,
     14  TemplateGenerics, UCompilersForm;
    1515
    1616{$R *.res}

  • trunk/Target/UTarget.pas

    r29 r30  
    1 unit UCompiler;
     1unit UTarget;
    22
    33{$mode Delphi}{$H+}
    … …  
    1212  TCompilerOptimization = (coNone, coNormal);
    1313
    14   { TBrainFuckCompiler }
     14  { TTarget }
    1515
    16   TBrainFuckCompiler = class
     16  TTarget = class
    1717  protected
    1818    Indent: Integer;
    … …  
    3636  end;
    3737
    38   { TCompilerList }
     38  { TTargetList }
    3939
    40   TCompilerList = class(TListObject)
     40  TTargetList = class(TListObject)
    4141    procedure LoadFromRegistry(Root: HKEY; Key: string);
    4242    procedure SaveToRegistry(Root: HKEY; Key: string);
    … …  
    5252
    5353
    54 { TCompilerList }
     54{ TTargetList }
    5555
    56 procedure TCompilerList.LoadFromRegistry(Root: HKEY; Key: string);
     56procedure TTargetList.LoadFromRegistry(Root: HKEY; Key: string);
    5757var
    5858  I: Integer;
    … …  
    6363    OpenKey(Key + '\Compiler', True);
    6464    for I := 0 to Count - 1 do
    65     with TBrainFuckCompiler(Items[I]) do
     65    with TTarget(Items[I]) do
    6666      if ValueExists(Name) then CompilerPath := ReadString(Name);
    6767  finally
    … …  
    7070end;
    7171
    72 procedure TCompilerList.SaveToRegistry(Root: HKEY; Key: string);
     72procedure TTargetList.SaveToRegistry(Root: HKEY; Key: string);
    7373var
    7474  I: Integer;
    … …  
    7979    OpenKey(Key + '\Compiler', True);
    8080    for I := 0 to Count - 1 do
    81     with TBrainFuckCompiler(Items[I]) do
     81    with TTarget(Items[I]) do
    8282      if CompilerPath <> '' then WriteString(Name, CompilerPath)
    8383        else DeleteValue(Name);
    … …  
    8787end;
    8888
    89 { TBrainFuckCompiler }
     89{ TTarget }
    9090
    91 procedure TBrainFuckCompiler.AddLine(Text: string);
     91procedure TTarget.AddLine(Text: string);
    9292begin
    9393  Output := Output + DupeString('  ', Indent) + Text + LineEnding;
    9494end;
    9595
    96 function TBrainFuckCompiler.LongFileName(FileName: string): string;
     96function TTarget.LongFileName(FileName: string): string;
    9797begin
    9898  Result := FileName;
    … …  
    105105end;
    106106
    107 constructor TBrainFuckCompiler.Create;
     107constructor TTarget.Create;
    108108begin
    109109  Optimization := coNormal;
    110110end;
    111111
    112 procedure TBrainFuckCompiler.OptimizeSource;
     112procedure TTarget.OptimizeSource;
    113113begin
    114114  // Remove redundand code
    … …  
    116116end;
    117117
    118 procedure TBrainFuckCompiler.Compile;
     118procedure TTarget.Compile;
    119119begin
    120120
    121121end;
    122122
    123 procedure TBrainFuckCompiler.CompileToFile;
     123procedure TTarget.CompileToFile;
    124124var
    125125  Process: TProcess;
    … …  
    149149end;
    150150
    151 procedure TBrainFuckCompiler.Run;
     151procedure TTarget.Run;
    152152var
    153153  CompiledFile: string;

  • trunk/Target/UTargetC.pas

    r29 r30  
    1 unit UCompilerC;
     1unit UTargetC;
    22
    33{$mode Delphi}{$H+}
    … …  
    66
    77uses
    8   Classes, SysUtils, FileUtil, UCompiler, Process, Dialogs;
     8  Classes, SysUtils, FileUtil, UTarget, Process, Dialogs;
    99
    1010type
    1111
    12   { TBrainFuckCompilerC }
     12  { TTargetC }
    1313
    14   TBrainFuckCompilerC = class(TBrainFuckCompiler)
     14  TTargetC = class(TTarget)
    1515    constructor Create; override;
    1616    procedure Compile; override;
    … …  
    2121implementation
    2222
    23 { TBrainFuckCompilerC }
     23{ TTargetC }
    2424
    25 constructor TBrainFuckCompilerC.Create;
     25constructor TTargetC.Create;
    2626begin
    2727  inherited Create;
    … …  
    3737end;
    3838
    39 procedure TBrainFuckCompilerC.Compile;
     39procedure TTargetC.Compile;
    4040var
    4141  I: Integer;
    … …  
    104104end;
    105105
    106 procedure TBrainFuckCompilerC.CompileToFile;
     106procedure TTargetC.CompileToFile;
    107107var
    108108  Process: TProcess;
    … …  
    133133end;
    134134
    135 procedure TBrainFuckCompilerC.Run;
     135procedure TTargetC.Run;
    136136begin
    137137  inherited Run;

  • trunk/Target/UTargetDelphi.pas

    r29 r30  
    1 unit UCompilerDelphi;
     1unit UTargetDelphi;
    22
    33{$mode Delphi}{$H+}
    … …  
    66
    77uses
    8   Classes, SysUtils, UCompiler;
     8  Classes, SysUtils, UTarget;
    99
    1010type
    1111
    12   { TBrainFuckCompilerDelphi }
     12  { TTargetDelphi }
    1313
    14   TBrainFuckCompilerDelphi = class(TBrainFuckCompiler)
     14  TTargetDelphi = class(TTarget)
    1515    constructor Create; override;
    1616    procedure Compile; override;
    … …  
    1919implementation
    2020
    21 { TBrainFuckCompilerDelphi }
     21{ TTargetDelphi }
    2222
    23 constructor TBrainFuckCompilerDelphi.Create;
     23constructor TTargetDelphi.Create;
    2424begin
    2525  inherited Create;
    … …  
    3232end;
    3333
    34 procedure TBrainFuckCompilerDelphi.Compile;
     34procedure TTargetDelphi.Compile;
    3535var
    3636  I: Integer;

  • trunk/Target/UTargetInterpretter.pas

    r29 r30  
    1 unit UBrainFuck;
     1unit UTargetInterpretter;
    22
    33{$mode Delphi}{$H+}
    … …  
    99
    1010type
    11   TBrainFuckInterpretter = class;
     11  TTargetInterpretter = class;
    1212
    1313
    1414  TRunState = (rsStopped, rsPaused, rsRunning);
    1515
    16   { TBrainFuckInterpretterThread }
    17 
    18   TBrainFuckInterpretterThread = class(TThread)
    19     Parent: TBrainFuckInterpretter;
     16  { TTargetInterpretterThread }
     17
     18  TTargetInterpretterThread = class(TThread)
     19    Parent: TTargetInterpretter;
    2020    procedure Execute; override;
    2121  end;
    … …  
    2626  TCommandHandler = procedure of object;
    2727
    28   { TBrainFuckInterpretter }
    29 
    30   TBrainFuckInterpretter = class
     28  { TTargetInterpretter }
     29
     30  TTargetInterpretter = class
    3131  private
    3232    FCellSize: Integer;
    … …  
    3434    FState: TRunState;
    3535    FThreadState: Boolean;
    36     FThread: TBrainFuckInterpretterThread;
     36    FThread: TTargetInterpretterThread;
    3737    FStepCount: Integer;
    3838    FCommandTable: array[TBrainFuckCommand] of TCommandHandler;
    … …  
    8888  SMemoryCellOutOfRange = 'Memory cell %s value out of range';
    8989
    90 { TBrainFuckInterpretterThread }
    91 
    92 procedure TBrainFuckInterpretterThread.Execute;
     90{ TTargetInterpretterThread }
     91
     92procedure TTargetInterpretterThread.Execute;
    9393begin
    9494  repeat
    … …  
    103103end;
    104104
    105 { TBrainFuckInterpretter }
    106 
    107 procedure TBrainFuckInterpretter.SetState(AValue: TRunState);
     105{ TTargetInterpretter }
     106
     107procedure TTargetInterpretter.SetState(AValue: TRunState);
    108108begin
    109109  if FState = AValue then Exit;
    … …  
    112112end;
    113113
    114 function TBrainFuckInterpretter.GetMemorySize: Integer;
     114function TTargetInterpretter.GetMemorySize: Integer;
    115115begin
    116116  Result := Length(Memory);
    117117end;
    118118
    119 procedure TBrainFuckInterpretter.SetMemorySize(AValue: Integer);
     119procedure TTargetInterpretter.SetMemorySize(AValue: Integer);
    120120begin
    121121  SetLength(Memory, AValue);
    122122end;
    123123
    124 procedure TBrainFuckInterpretter.SetSource(AValue: string);
     124procedure TTargetInterpretter.SetSource(AValue: string);
    125125var
    126126  I: Integer;
    … …  
    146146end;
    147147
    148 procedure TBrainFuckInterpretter.SetThread(State: Boolean);
     148procedure TTargetInterpretter.SetThread(State: Boolean);
    149149begin
    150150  if FThreadState = State then Exit;
    151151  FThreadState := State;
    152152  if State then begin
    153     FThread := TBrainFuckInterpretterThread.Create(True);
     153    FThread := TTargetInterpretterThread.Create(True);
    154154    FThread.Parent := Self;
    155155    FThread.FreeOnTerminate := False;
    … …  
    160160end;
    161161
    162 procedure TBrainFuckInterpretter.PrepareJumpTable;
     162procedure TTargetInterpretter.PrepareJumpTable;
    163163var
    164164  Loop: array of Integer;
    … …  
    188188end;
    189189
    190 procedure TBrainFuckInterpretter.CommandInc;
     190procedure TTargetInterpretter.CommandInc;
    191191begin
    192192  Memory[MemoryPosition] := ((Memory[MemoryPosition] + 1) mod CellSize);
    193193end;
    194194
    195 procedure TBrainFuckInterpretter.CommandDec;
     195procedure TTargetInterpretter.CommandDec;
    196196begin
    197197  Memory[MemoryPosition] := ((Memory[MemoryPosition] - 1) mod CellSize);
    198198end;
    199199
    200 procedure TBrainFuckInterpretter.CommandPointerInc;
     200procedure TTargetInterpretter.CommandPointerInc;
    201201begin
    202202  if MemoryPosition < MemorySize then Inc(MemoryPosition)
    … …  
    204204end;
    205205
    206 procedure TBrainFuckInterpretter.CommandPointerDec;
     206procedure TTargetInterpretter.CommandPointerDec;
    207207begin
    208208  if MemoryPosition > 0 then Dec(MemoryPosition)
    … …  
    210210end;
    211211
    212 procedure TBrainFuckInterpretter.CommandInput;
     212procedure TTargetInterpretter.CommandInput;
    213213begin
    214214  while (InputPosition > Length(Input)) and (FState <> rsStopped) do begin
    … …  
    221221end;
    222222
    223 procedure TBrainFuckInterpretter.CommandOutput;
     223procedure TTargetInterpretter.CommandOutput;
    224224begin
    225225  if OutputPosition > Length(Output) then
    … …  
    229229end;
    230230
    231 procedure TBrainFuckInterpretter.CommandLoopStart;
     231procedure TTargetInterpretter.CommandLoopStart;
    232232begin
    233233  if Memory[MemoryPosition] = 0 then
    … …  
    235235end;
    236236
    237 procedure TBrainFuckInterpretter.CommandLoopEnd;
     237procedure TTargetInterpretter.CommandLoopEnd;
    238238begin
    239239  if Memory[MemoryPosition] > 0 then
    … …  
    241241end;
    242242
    243 procedure TBrainFuckInterpretter.Reset;
     243procedure TTargetInterpretter.Reset;
    244244var
    245245  I: Integer;
    … …  
    257257end;
    258258
    259 procedure TBrainFuckInterpretter.SingleStep;
     259procedure TTargetInterpretter.SingleStep;
    260260begin
    261261  FCommandTable[FSource[SourcePosition]];
    … …  
    264264end;
    265265
    266 procedure TBrainFuckInterpretter.Run;
     266procedure TTargetInterpretter.Run;
    267267begin
    268268  SetState(rsRunning);
    … …  
    272272end;
    273273
    274 procedure TBrainFuckInterpretter.Pause;
     274procedure TTargetInterpretter.Pause;
    275275begin
    276276  if State = rsRunning then SetState(rsPaused);
    277277end;
    278278
    279 procedure TBrainFuckInterpretter.Stop;
     279procedure TTargetInterpretter.Stop;
    280280begin
    281281  SetState(rsStopped);
    282282end;
    283283
    284 constructor TBrainFuckInterpretter.Create;
     284constructor TTargetInterpretter.Create;
    285285begin
    286286  MemorySize := 30000;
    … …  
    296296end;
    297297
    298 destructor TBrainFuckInterpretter.Destroy;
     298destructor TTargetInterpretter.Destroy;
    299299begin
    300300  FState := rsStopped;

  • trunk/Target/UTargetPHP.pas

    r29 r30  
    1 unit UCompilerPHP;
     1unit UTargetPHP;
    22
    33{$mode Delphi}{$H+}
    … …  
    66
    77uses
    8   Classes, SysUtils, UCompiler;
     8  Classes, SysUtils, UTarget;
    99
    1010type
    1111
    12   { TBrainFuckCompilerPHP }
     12  { TTargetPHP }
    1313
    14   TBrainFuckCompilerPHP = class(TBrainFuckCompiler)
     14  TTargetPHP = class(TTarget)
    1515    constructor Create; override;
    1616    procedure Compile; override;
    … …  
    2121implementation
    2222
    23 { TBrainFuckCompilerPHP }
     23{ TTargetPHP }
    2424
    25 constructor TBrainFuckCompilerPHP.Create;
     25constructor TTargetPHP.Create;
    2626begin
    2727  inherited Create;
    … …  
    3636end;
    3737
    38 procedure TBrainFuckCompilerPHP.Compile;
     38procedure TTargetPHP.Compile;
    3939var
    4040  I: Integer;
    … …  
    9393end;
    9494
    95 procedure TBrainFuckCompilerPHP.Run;
     95procedure TTargetPHP.Run;
    9696begin
    9797  inherited Run;
Note: See TracChangeset for help on using the changeset viewer.