Skip to content

GitLab

Commit e1f4cd2d authored by Diederik van Arkel's avatar Diederik van Arkel
Browse files

cleanup for Clean2 release

parent af9b4495
Hide whitespace changes
Inline Side-by-side
Showing with 448 additions and 930 deletions
Ed/EdAction.dcl
View file @ e1f4cd2d
definition module EdAction
//*********************************************************************************
// Original Clean Library Software Module
// Written for Clean version : 1.3
// Written for I/O version : 1.2
// Author : Diederik van Arkel
// Date :
// Last Modified by :
// Date :
// Copyright : 1999 Hilt - High Level Software Tools B.V.
// : University of Nijmegen
// e-mail : clean@cs.kun.nl or rinus@hilt.nl
//*********************************************************************************
// It is allowed to modify this module for your own purposes but it is NOT allowed
// to (re)distribute the code or the modified code in ANY form without written
// permission.
//*********************************************************************************
/*
* EdAction.dcl: performing editor Actions
*/
// performing editor Actions
import EdMonad, EdMovement
import EdCommon
......
Ed/EdAction.icl
View file @ e1f4cd2d
implementation module EdAction
//*********************************************************************************
// Original Clean Library Software Module
// Written for Clean version : 1.3
// Written for I/O version : 1.2
// Author : Diederik van Arkel
// Date :
// Last Modified by :
// Date :
// Copyright : 1999 Hilt - High Level Software Tools B.V.
// : University of Nijmegen
// e-mail : clean@cs.kun.nl or rinus@hilt.nl
//*********************************************************************************
// It is allowed to modify this module for your own purposes but it is NOT allowed
// to (re)distribute the code or the modified code in ANY form without written
// permission.
//*********************************************************************************
/*
* EdAction.icl: performing editor Actions
*/
import StdInt, StdArray, StdTuple, StdBool, StdChar, StdList, StdMisc
import StdIOCommon, StdPSt, StdWindow
import EdVisualCursor, EdVisualText, EdMovement, StrictList, EdMonad
......
Ed/EdActionType.dcl
View file @ e1f4cd2d
definition module EdActionType
//*********************************************************************************
// Original Clean Library Software Module
// Written for Clean version : 1.3
// Written for I/O version : 1.2
// Author : Diederik van Arkel
// Date :
// Last Modified by :
// Date :
// Copyright : 1999 Hilt - High Level Software Tools B.V.
// : University of Nijmegen
// e-mail : clean@cs.kun.nl or rinus@hilt.nl
//*********************************************************************************
// It is allowed to modify this module for your own purposes but it is NOT allowed
// to (re)distribute the code or the modified code in ANY form without written
// permission.
//*********************************************************************************
import StdOverloaded
import EdMovement
from EdText import :: TextFragment
......
Ed/EdActionType.icl
View file @ e1f4cd2d
implementation module EdActionType
//*********************************************************************************
// Original Clean Library Software Module
// Written for Clean version : 1.3
// Written for I/O version : 1.2
// Author : Diederik van Arkel
// Date :
// Last Modified by :
// Date :
// Copyright : 1999 Hilt - High Level Software Tools B.V.
// : University of Nijmegen
// e-mail : clean@cs.kun.nl or rinus@hilt.nl
//*********************************************************************************
// It is allowed to modify this module for your own purposes but it is NOT allowed
// to (re)distribute the code or the modified code in ANY form without written
// permission.
//*********************************************************************************
import StdOverloaded, StdArray, StdInt, StdString, StdChar, StdList
import StrictList
import EdMovement
......
Ed/EdFile.dcl
View file @ e1f4cd2d
/*
* EdFile.dcl: reading and writing text files
*/
definition module EdFile
from StdFile import class FileSystem
from EdText import :: Text
import StdError, StdMaybe
from UtilNewlinesFile import :: NewlineConvention
// reading and writing text files
import StdError, StdMaybe
from StdFile import class FileSystem
from EdText import :: Text
from UtilNewlinesFile import :: NewlineConvention
readText :: !String !*env -> ((Error Text,NewlineConvention,Bool), !*env) | FileSystem env
writeText :: !String !NewlineConvention !Text !*env -> (Maybe String, !*env) | FileSystem env
......
Ed/EdFile.icl
View file @ e1f4cd2d
/*
* EdFile.icl: reading and writing text files
*/
implementation module EdFile
// reading and writing text files
import StdBool, StdFile, StdArray, StdInt, StdString, StdChar, StdFunc
import UtilNewlinesFile
import EdText, StrictList
......
Ed/EdFind.dcl
View file @ e1f4cd2d
definition module EdFind
import StdMaybe
from StrictList import :: StrictList
import EdSelection
import StdMaybe
from StrictList import :: StrictList
import EdSelection
simpleLineSearch ::
// plain search
......
Ed/EdKeyMapping.dcl
View file @ e1f4cd2d
/*
* EdKeyMapping.dcl: configuring the key mapping of the editor
*/
definition module EdKeyMapping
// configuring the key mapping of the editor
from StdFile import :: Files
from StdPSt import :: PSt
from StdIOCommon import :: KeyboardState, :: SpecialKey
from StdMaybe import :: Maybe
from StdOverloaded import class ==, class toString, class fromString
from EdActionType import :: Action
//from EdMonad import EditMonad, EditState, StateM
:: KeyMapping
......@@ -19,6 +16,7 @@ from EdActionType import :: Action
// not allowed. The type should be:
// configureKeyMapping :: (PSt EditorState .p) -> (PSt EditorState .p)
// But then you have to import EdState which imports this module...
// => can be removed in Clean 2.0!
configureKeyMapping :: KeyMapping (KeyMapping (PSt .l) -> (PSt .l)) (PSt .l) -> (PSt .l)
......
Ed/EdKeyMapping.icl
View file @ e1f4cd2d
/*
* EdKeyMapping.icl: configuring the key mapping of the editor
*/
implementation module EdKeyMapping
//import StdEnv, StdIO
// configuring the key mapping of the editor
import StdArray,StdEnum, StdFunc, StdMisc,StdOrdList,StdTuple
import StdFileSelect,StdPStClass,StdWindow
import EdState, Table, StdListBox
......
Ed/EdKeyboard.dcl
View file @ e1f4cd2d
/*
* EdKeyboard.dcl: handling keyboard events
*/
definition module EdKeyboard
from StdIOCommon import :: KeyboardState
from StdPSt import :: PSt
//from EdState import EditorState
from EdKeyMapping import :: KeyMapping
import EdMonad, StdMaybe
import EdCommon
// handling keyboard events
import EdCommon, StdMaybe
from StdIOCommon import :: KeyboardState
from StdPSt import :: PSt
from EdKeyMapping import :: KeyMapping
editWindowKeyboard ::
KeyMapping KeyboardState !(!EditState, !PSt PLocState) -> (!EditState, !PSt PLocState)
......
Ed/EdKeyboard.icl
View file @ e1f4cd2d
/*
* EdKeyboard.icl: handling keyboard events
*/
implementation module EdKeyboard
// handling keyboard events
import StdClass, StdBool, StdArray, StdInt, StdChar, StdTuple, StdList, StdMisc
import StdIOCommon, StdWindow, StdPSt
import EdVisualText, EdVisualCursor, EdSelection,
EdAction, EdKeyMapping, EdState, StrictList
import EdVisualText, EdVisualCursor, EdSelection, EdAction, EdKeyMapping, EdState
import StrictList
import EdActionType
//from dodebug import trace_n`
......
Ed/EdLineText.dcl
View file @ e1f4cd2d
/*
* EdLineText.dcl: a type for dealing with line-oriented operations on texts
*/
definition module EdLineText
// a type for dealing with line-oriented operations on texts
from StrictList import :: StrictList
from EdPosition import :: LineNr
......
Ed/EdLineText.icl
View file @ e1f4cd2d
/*
* EdLineText.icl: a type for dealing with line-oriented operations on texts
*/
implementation module EdLineText
import StdString, StdClass, StdInt, StdList, StdBool, StdFunc, StdArray, StdTuple
import StrictList
from EdPosition import :: LineNr
import syncol
import Platform
// a type for dealing with line-oriented operations on texts
import StdString, StdClass, StdInt, StdList, StdBool, StdFunc, StdArray, StdTuple
import StrictList
from EdPosition import :: LineNr
import syncol
import Platform
//-- stuff we want to parametrise...
/*
......
Ed/EdLook.dcl
View file @ e1f4cd2d
/*
* EdLook.dcl: the edit window update function
*/
definition module EdLook
from StdPicture import :: Picture
from StdIOCommon import :: SelectState, :: UpdateState
import EdMonad
// the edit window update function
from StdPicture import :: Picture
from StdIOCommon import :: SelectState, :: UpdateState
import EdMonad
editWindowLook :: EditState SelectState !UpdateState -> (!*Picture -> *Picture)
// editWindowLook: defines the look of the editor window. This function
......
Ed/EdLook.icl
View file @ e1f4cd2d
/*
* EdLook.icl: the edit window update function
*/
implementation module EdLook
// the edit window update function
import StdInt, StdBool, StdClass
import StdIOCommon
import StdPicture
......@@ -30,15 +28,6 @@ where
(height,ds4) = getCursorHeight ds3
(selection=:{end},_) = getSelection ds4
/*
import StdDebug,dodebug
traceUpdate [] s = s
traceUpdate [h:t] s
#! s = trace_n h s
= traceUpdate t s
*/
cleanUpdate [] = []
cleanUpdate [h:t]
| h.corner1.x == h.corner2.x = cleanUpdate t
......
Ed/EdMessage.dcl
View file @ e1f4cd2d
/*
* EdMessage.dcl: message passing with the editor
*/
definition module EdMessage
// message passing with the editor
from StdId import class Ids
from StdPSt import :: PSt
from StdReceiver import :: Receiver2
......
Ed/EdMessage.icl
View file @ e1f4cd2d
/*
* EdMessage.icl: message passing with the editor
*/
implementation module EdMessage
// message passing with the editor
import StdFunc, StdMisc
import StdReceiver, StdPSt, StdId
import EdMonad
......
Ed/EdMonad.dcl
View file @ e1f4cd2d
/*
* EdMonad.dcl: the monad that keeps track of the local EditState and another state (mostly the program state)
*/
definition module EdMonad
// the monad that keeps track of the local EditState and another state (mostly the program state)
from StdPicture import :: Font, :: FontMetrics, :: Colour
from StdPSt import :: PSt, :: IOSt
from StdId import :: Id
......@@ -59,8 +57,6 @@ from EdSelection import :: Selection, :: Position, :: ColumnNr, :: LineNr
DefaultSyntaxColours :: !SyntaxColours
//:: CursorInfo
:: UndoInfo =
{ state :: !UndoState // undo or redo
, action :: !String // string describing action to be undone/redone
......
Ed/EdMonad.icl
View file @ e1f4cd2d
/*
* EdMonad.icl: the monad that keeps track of the local EditState and another state (mostly the program state)
*/
implementation module EdMonad
// the monad that keeps track of the local EditState and another state (mostly the program state)
import StdArray, StdBool, StdChar, StdClass, StdFunc, StdInt, StdMisc
import StdMenuElement, StdPSt, StdWindow, StdSystem
import UtilNewlinesFile, StateMonad
import StdId // P4
import StdId
import EdVisualText, EdSelection, EdLook
import EdAction
......@@ -522,7 +519,7 @@ getUndoInfo
setUndoInfo :: UndoInfo -> EditMonad (PSt .l) nothing
setUndoInfo undoInfo
= getEditState >>>= \{/*undomId,*/undoeId} ->
= getEditState >>>= \{undoeId} ->
appEnv (appPIO (mfun undoeId)) >>>
updateEditState update
where
......
Ed/EdMouse.dcl
View file @ e1f4cd2d
definition module EdMouse
//*********************************************************************************
// Original Clean Library Software Module
// Written for Clean version : 1.3
// Written for I/O version : 1.2
// Author : Diederik van Arkel
// Date :
// Last Modified by :
// Date :
// Copyright : 1999 Hilt - High Level Software Tools B.V.
// : University of Nijmegen
// e-mail : clean@cs.kun.nl or rinus@hilt.nl
//*********************************************************************************
// It is allowed to modify this module for your own purposes but it is NOT allowed
// to (re)distribute the code or the modified code in ANY form without written
// permission.
//*********************************************************************************
// handling mouse events
/*
* EdMouse.dcl: handling mouse events
*/
from StdIOCommon import :: MouseState
from StdPSt import :: PSt
import EdMonad, EdCommon
from StdIOCommon import :: MouseState
from StdPSt import :: PSt
import EdMonad, EdCommon
editWindowMouse :: MouseState (!EditState, !PSt PLocState) -> (EditState, PSt PLocState)
// editWindowMouse: handles mouse events in the edit window
......
Ed/EdMouse.icl
View file @ e1f4cd2d
implementation module EdMouse
//*********************************************************************************
// Original Clean Library Software Module
// Written for Clean version : 1.3
// Written for I/O version : 1.2
// Author : Diederik van Arkel
// Date :
// Last Modified by :
// Date :
// Copyright : 1999 Hilt - High Level Software Tools B.V.
// : University of Nijmegen
// e-mail : clean@cs.kun.nl or rinus@hilt.nl
//*********************************************************************************
// It is allowed to modify this module for your own purposes but it is NOT allowed
// to (re)distribute the code or the modified code in ANY form without written
// permission.
//*********************************************************************************
/*
* EdMouse.icl: handling mouse events
*/
// handling mouse events
import StdClass, StdInt, StdBool, StdArray, StdChar, StdList, StdTuple
import StdIOCommon, StdPSt, StdWindow
......@@ -34,11 +15,6 @@ platformCommand mods
/* editWindowMouse wraps the monadic mouse function, so that the type
* conforms to that of a call-back function in the Object I/O library
*/
/*
editWindowMouse :: Tree MouseState (!EditState, !PSt PLocState) -> (EditState, PSt PLocState)
editWindowMouse tree mouseState state
# state = p4mouse tree mouseState state // P4
*/
editWindowMouse :: MouseState (!EditState, !PSt PLocState) -> (EditState, PSt PLocState)
editWindowMouse mouseState state
= noResult
......@@ -46,6 +22,11 @@ editWindowMouse mouseState state
setVirtualX 0 >>>
mouse mouseState
) state
/* P4 version
editWindowMouse :: Tree MouseState (!EditState, !PSt PLocState) -> (EditState, PSt PLocState)
editWindowMouse tree mouseState state
# state = p4mouse tree mouseState state
*/
mouse :: MouseState -> EditMonad (PSt PLocState) nothing
mouse (MouseDown point mods=:{shiftDown} nrDown)
......@@ -162,7 +143,7 @@ noMouseMoved :: !MouseState -> Bool
noMouseMoved (MouseMove _ _) = doP4
noMouseMoved _ = True
//-- P4 --- !!! ZITTEN OOK NOG WIJZIGINGEN IN EdMonad !!!
//-- P4 --- !!! Also involves modifications to EdMonad !!!
doP4 :== False
noP4 :== True
......@@ -171,15 +152,15 @@ import StdTimer,tooltip,PmParse,UtilStrictLists,EdFile,treeparse
p4mouse boom mouseState state
| noP4 = state
# (winId,state) = getWindowId state // P4
# (timId,state) = getTimerId state // P4
# pos = getMouseStatePos mouseState // P4
# (oldpos,state) = getToolPt state // P4
# state = case (pos == oldpos) of // P4
True -> state // P4
_ -> p4fun boom timId winId pos state // P4
# (_,state) = setToolPt pos state // P4
= state // P4
# (winId,state) = getWindowId state
# (timId,state) = getTimerId state
# pos = getMouseStatePos mouseState
# (oldpos,state) = getToolPt state
# state = case (pos == oldpos) of
True -> state
_ -> p4fun boom timId winId pos state
# (_,state) = setToolPt pos state
= state
p4fun boom timerId windowId pos state
# (text,state) = getText state
......
Ed/EdMovement.dcl
View file @ e1f4cd2d
/*
* EdMovement.dcl: the Movement type and operations on it
*/
definition module EdMovement
from StdClass import class ==, class toString, class fromString
from EdSelection import :: Position, :: ColumnNr, :: LineNr
import EdMonad
from StdClass import class ==, class toString, class fromString
from EdSelection import :: Position, :: ColumnNr, :: LineNr
import EdMonad
:: Movement
= LineUp
......
Ed/EdMovement.icl
View file @ e1f4cd2d
/*
* EdMovement.icl: the Movement type and operations on it
*/
implementation module EdMovement
import StdMisc, StdInt, StdTuple, StdArray, StdChar, StdBool, StdList, StdFunc
......@@ -234,10 +230,10 @@ findWord isCorrectChar column line
= findRight (column+1)
= column
isWordChar c = isAlpha c || isDigit c || isMember c ['`_']
isFunnyChar c = isMember c ['~@#$%^?!+-*<>\\/|&=:.']
isWhiteSpace c = isMember c [' \t\r\n\f\b']
otherChar c = (==) c
isWordChar c = isAlpha c || isDigit c || isMember c ['`_']
isFunnyChar c = isMember c ['~@#$%^?!+-*<>\\/|&=:.']
isWhiteSpace c = isMember c [' \t\r\n\f\b']
otherChar c = (==) c
pageUp :: Position -> EditMonad (PSt .l) Position
pageUp position=:{col,row} =
......
Ed/EdPosition.dcl
View file @ e1f4cd2d
/*
* EdPosition.dcl: the Position type represents positions within a text (sigh)
*/
definition module EdPosition
from StdClass import class <, class ==
......@@ -16,4 +12,3 @@ from StdClass import class <, class ==
instance < Position
instance == Position
Ed/EdPosition.icl
View file @ e1f4cd2d
/*
* EdPosition.icl: the Position type represents positions within a text (sigh)
*/
implementation module EdPosition
import StdClass, StdBool, StdInt
......
Ed/EdSelection.dcl
View file @ e1f4cd2d
/*
* EdSelection.dcl: non-visual operations on selections
*/
definition module EdSelection
import EdPosition
from EdLineText import :: Text
// non-visual operations on selections
import EdPosition
from EdLineText import :: Text
:: Selection
= { start :: Position
......
Ed/EdSelection.icl
View file @ e1f4cd2d
/*
* EdSelection.icl: non-visual operations on selections
*/
implementation module EdSelection
// non-visual operations on selections
import StdList, StdFunc, StdBool, StdArray, StdTuple
import EdPosition, EdText
......
Ed/EdState.dcl
View file @ e1f4cd2d
/*
* EdState.dcl: the global state of the editor process
*/
definition module EdState