diff options
author | Akira TAGOH <akira@tagoh.org> | 2006-08-22 12:33:05 +0000 |
---|---|---|
committer | Akira TAGOH <akira@tagoh.org> | 2006-08-22 12:33:05 +0000 |
commit | fead978c8d6fd83f332244cb9a32515da03fceaa (patch) | |
tree | 57495ca797557d0889565c00bbaa907286d9f4b0 /lib | |
parent | 6e0c63db268460aeee3a595a0b483d390d6c7e69 (diff) |
2006-08-22 Akira TAGOH <at@gclab.org>
* hieroglyph/operator.c (_hg_operator_op_bind): ignore the writable check
during initialization.
* hieroglyph/vm.c (hg_vm_set_io): reflect the IO changes to HgLineEdit.
(hg_vm_startjob): just changes the IO with an initializer.
* hieroglyph/hglineedit.c (_hg_line_edit_real_set_flags): new function.
(_hg_line_edit_real_relocate): new function.
(_hg_line_edit__default_get_line): use HgFileObject instead of using low APIs.
(hg_line_edit_set_stdin): new function.
(hg_line_edit_set_stdout): new function.
* lib/hg_init.ps (start): implemented.
not entered into the loop here.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/hg_init.ps | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/lib/hg_init.ps b/lib/hg_init.ps index f6da26a..c3caa0e 100644 --- a/lib/hg_init.ps +++ b/lib/hg_init.ps @@ -203,6 +203,10 @@ systemdict /.statementedit known { /stack { 0 1 count 3 sub {index =} for } bind odef +% - start - +/start { + executive +} bind odef % key value store - /store { 1 index where { @@ -365,14 +369,4 @@ end %% .printversion -% if JOBSERVER isn't true, it means one gives the initializer to libretto_vm_startjob(). -% so no need to read PS from stdin. -serverdict /JOBSERVER get { - systemdict /.loadhistory known { - (.hghistory) .loadhistory - } if - .startjobserver executive - systemdict /.savehistory known { - (.hghistory) .savehistory - } if -} if +% /start will be invoked. |